Jak zatrzymać. + Przy pierwszym wystąpieniu znaku, a nie jako ostatni z wyrażeń regularnych w perlu?

Question

Chcę wymienić:

'''<font size="3"><font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font></font>''' 

Z:

='''<font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font>'''= 

Teraz mój istniejący kod jest:

$html =~ s/\n(.+)<font size=\".+?\">(.+)<\/font>(.+)\n/\n=$1$2$3=\n/gm 

Jednak to kończy się to na skutek:

=''' SUMMER/WINTER CONFIGURATION FILES</font>'''= 

Teraz mogę zobaczyć, co się dzieje, to pasuje <font size ="..... all the way up to the end of the <font colour blue">, co nie jest tym, co chcę, chcę zatrzymać się na pierwszym wystąpieniu " nie ostatni, myślałem, że to, co oddanie? Oznacz by to zrobić, jednak próbowałem. +. +? .* i .*? z tym samym wynikiem za każdym razem.

Ktoś ma pomysły, co robię źle?

Answer 1

Jak powiedział Mark, wystarczy użyć CPAN do tego.

#!/usr/bin/env perl 

use strict; use warnings; 
use HTML::TreeBuilder; 

my $s = q{<font size="3"><font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font></font>}; 

my $tree = HTML::TreeBuilder->new; 
$tree->parse($s); 
print $tree->find_by_attribute(color => 'blue')->as_HTML; 

# => <font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font> 

działa to dla konkretnego przypadku, jednakże:

#!/usr/bin/env perl 

use strict; use warnings; 

my $s = q{<font size="3"><font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font></font>}; 

print $s =~ m{ 
       < .+? > 
       (.+)? 
       </.+? >     
      }mx; 

# => <font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font> 

Answer 2

Napisz .+?we wszystkich miejscach, aby każdy mecz był nie chciwy.

 
$html =~ s/\n(.+?)<font size=\".+?\">(.+?)<\/font>(.+?)\n/\n=$1$2$3=\n/gm 
       ^   ^ ^  ^

Staraj się również unikać wyrażeń regularnych do parsowania HTML. Jeśli to możliwe, użyj analizatora składni HTML.

Answer 3

Można zmienić .+ do [^"]+ (zamiast "pasuje do niczego", "pasuje do niczego, co nie jest "" ...