Foro - Perl en Español

foreach (@newresults) {
        my $elimino =~ s/<span class=\"term\">//g;
        $elimino =~ s/<\/span>//g;
        next;
}

foreach (@newresults) {
    s/<span class="term">\s*//g;
    s/\s*<\/span>//g;
}

foreach my $linea (@newresults) {      
        $linea =~ s/<span class=\"term\">//g;
        $linea =~ s/<\/span>//g;               
        next;
}

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my @newresults = (
    'Este es un ejemplo 1 de texto con marcas <span class="term">span</span> dentro de otro mayor.',
    'Este es un ejemplo de <span class="term">span</span> con <span class="term">mas marcas</span>.',
    'Este es un ejemplo de texto sin marcas.',
);

foreach (@newresults) {
    s/<span class="term">\s*//g;
    s/\s*<\/span>//g;
}

print join("\n", @newresults), "\n";

__END__

foreach (@newresults) {
                        my $clean = $_->{isbn} or next;
                        unless (
                                $clean =~ /\b(\d{13})\b/ or
                                $clean =~ /\b(\d{10})\b/ or
                                $clean =~ /\b(\d{9}X)\b/i
                        ) {
                                next;
                        }
                        $_ ->{'clean_isbn'} = $1;
}

my @newresults = searchResults( $query_desc,$hits,$results_per_page,$offset,$scan,@{$results_hashref->{$server}->{"RECORDS"}});

if (C4::Context->preference("OpacHighlightedWords")){
            my $searchhighlightblob;
            for my $highlight_field ( $marcrecord->fields ) {
   
    # FIXME: need to skip title, subtitle, author, etc., as they are handled below
                next if $highlight_field->tag() =~ /(^00)/;    # skip fixed fields
                for my $subfield ($highlight_field->subfields()) {
                    my $match;
                    next if $subfield->[0] eq '9';
                    my $field = $subfield->[1];
                    for my $term ( keys %$span_terms_hashref ) {
                        if ( ( $field =~ /$term/i ) && (( length($term) > 3 ) || ($field =~ / $term /i)) ) {
                            $field =~ s/$term/<span class=\"term\">$&<\/span>/gi;
                        $match++;
                        }
                    }
                    $searchhighlightblob .= $field . " ... " if $match;
                }
   
            }
            $searchhighlightblob = ' ... '.$searchhighlightblob if $searchhighlightblob;
            $oldbiblio->{'searchhighlightblob'} = $searchhighlightblob;
        }

# Add search-term highlighting to the title, subtitle, etc. fields
        for my $term ( keys %$span_terms_hashref ) {
            my $old_term = $term;
            if ( length($term) > 3 ) {
                $term =~ s/(.*=|\)|\(|\+|\.|\?|\[|\]|\\|\*)//g;
                                foreach(qw(title subtitle author publishercode place pages notes size)) {
                        $oldbiblio->{$_} =~ s/$term/<span class=\"term\">$&<\/span>/gi;
                                }
            }
        }

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my $hash_ref = {
           'damagedcount' => 0,
           'illus' => ' : il.',
           'biblioitemnumber' => '17',
           'wthdrawn' => '0',
           'intransitcount' => 0,
           'items_count' => 1,
           'orderedcount' => 0,
           'notforloan' => '0',
           'isbn' => '8445315358',
           'othercount' => 0,
           'itemnumber' => '5',
           'descriptionmaterialtype' => 'Libros',
           'itemlost' => '2009-04-14 | 0 | 0 | 0',
           'barcode' => '5',
           'description' => undef,
           'imageurlmaterialtype' => '/opac-tmpl/prog/itemtypeimg/icons/book.png',
           'items.cn_source' => 'udc',
           'result_number' => 4,
           'toggle' => 1,
           'datelastseen' => '2009-04-14',
          'title' => "Campa\x{f1}a 1989",
           'publicationyear' => '1995',
           'pages' => '287 p.',
           'searchhighlightblob' => " ...  / Xunta de <span class=\"term\">Galicia</span>, Direcci\x{f3}n Xeral do Patrimonio Hist\x{f3}rico e Documental ... Arqueolox\x{ed}a (<span class=\"term\">Galicia</span>. Xunta) ... -<span class=\"term\">Galicia</span> ... -<span class=\"term\">Galicia</span> ... -<span class=\"term\">Galicia</span> ... <span class=\"term\">Galicia</span> ... ",
           'place' => '[Santiago de Compostela]',
           'homebranch' => 'LAXE1',
           'author' => undef,
           'wthdrawncount' => 0,
           'size' => ' ; 24 cm',
           'onloancount' => 0,
           'seriestitle' => "Arqueolox\x{ed}a (Galicia. Xunta)",
           'biblionumber' => '17',
           'holdingbranch' => 'LAXE1',
           'onloan_items_loop' => [],
           'damaged' => '0',
           'publishercode' => " : Direcci\x{f3}n Xeral do Patrimonio Hist\x{f3}rico e Documental",
           'other_items_loop' => [],
           'availablecount' => 1,
           'available_items_loop' => [
                                       {
                                         'imageurl' => '/opac-tmpl/prog/itemtypeimg/',
                                         'count' => 1,
                                         'location' => undef,
                                         'itemcallnumber' => undef,
                                        'branchname' => 'B.P.M. de Laxe'
                                       }
                                     ],
           'volume' => ' ; 3',
           'itemlostcount' => 0,
           'author_nospan' => undef,
           'title_nospan' => "Campa\x{f1}a 1989",
           'materialtype' => '1',
           'subtitle' => undef,
           'dateaccessioned' => '2009-04-14',
           'amazonisbn' => '8445315358',
           'notes' => undef
         };

## Extracció de los valores interesantes
my @valores_interesantes = qw(
    title author pages publishercode place publicationyear isbn
    descriptionmaterialtype serialstitle size notes
);

foreach my $clave ( @valores_interesantes ) {
    my $valor = $hash_ref->{$clave};
    $valor = (defined $valor) ? $valor : '';

    print "$clave => $valor\n";
}

## Extracción y filtrado de las marcas
my $searchhighlightblob = $hash_ref->{searchhighlightblob};

print "Antes: [$searchhighlightblob]\n";

$searchhighlightblob =~ s/<span class="term">\s*//g;
$searchhighlightblob =~ s/\s*<\/span>//g;

print "Despues: [$searchhighlightblob]\n";

__END__

$field =~ s/$term/<span class=\"term\">$&<\/span>/gi;

$oldbiblio->{$_} =~ s/$term/<span class=\"term\">$&<\/span>/gi;

my @valores = (qw(title subtitle author publishercode place pages notes size));

foreach (@newresults) {
        foreach my $clave ( @valores ) {
                my $clean = $_->{$clave} or next;
                $clean =~ s/<span class="term">/ /gi;
                $clean =~ s/<\/span>/ /gi;

                $_ ->{$clave} = $clean;
        }
}

foreach (@newresults) {
    my $clean = $_->{isbn} or next;

foreach my $dato (@newresults) {
    my %hash = %{$dato};

    # ... aquí trabajas con %hash
}

my @valores = qw(
    title subtitle author publishercode
    place pages    notes  size
);

for my $resultado (@newresults) {
    for my $clave (@valores   ) {
        my $clean =  $resultado->{$clave} or next;
           $clean =~ s/<span class="term">/ /gi;
           $clean =~ s/<\/span>/ /gi;

        $resultado->{$clave} = $clean;
    }
}