+ Bir karakterin ilk örneğinde nasıl durulur + perl'deki normal ifadelerle son değil mi?

Question

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

ile birlikte:

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

Şu anki kodum:

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

Ancak sonuç olarak bunun sonucu şudur:

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

Şimdi ne olduğunu görebiliyorum, <font size ="..... all the way up to the end of the <font colour blue"> ile eşleşiyor, istediğim gibi değil, 'in ilk örneğinde durmasını istiyorum " son değil, düşündüğüm şey budur?" Ancak, her zaman aynı sonuca sahip olan +. +?. * ve. *?

Yanlış yaptığım herhangi bir fikrim var mı?

Answer 1

Answer 2

.+?her yerde yazarak her maçın açgözlü olmasını sağlayın. Ayrıca, HTML'yi ayrıştırmak için normal ifadeleri kullanmaktan kaçınmayı da deneyin. Mümkünse bir HTML ayrıştırıcısı kullanın. Mark dediği gibi, sadece bunun için CPAN kullanmak

Answer 3

Sen ... .+ yerine, "bir " değil bir şey eşleşmesi" "Bir şey eşleştirmek" nin [^"]+ (için değişebilir.

#!/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> 

Ancak bu, kendi özel durumunuz için çalışır:

#!/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>