Jak przechwycić wiele dopasowań z tego samego wyrażenia Perl?

Question

Próbuję przeanalizować pojedynczy ciąg i pobrać wiele fragmentów danych z tego samego ciągu znaków z tymi samymi warunkami wyrażeń regularnych. Ja parsowania pojedynczy dokument HTML, który jest statyczny (za nieujawnioną powodu nie mogę używać parser HTML, aby wykonać zadanie.) Mam wyraz, który wygląda tak:

$string =~ /\<img\ssrc\="(.*)"/; 

i chcę uzyskać wartość 1 $. Jednak w jednym ciągu istnieje wiele tagów img takich jak to, więc potrzebuję czegoś takiego jak tablica zwrócona (@ 1?) Jest to możliwe?

Answer 1

Jako odpowiedź Jima, użyj modyfikatora/g (w kontekście listowym lub w pętli).

Ale uwaga na chciwość, nie chcesz, aby .* dopasować więcej niż to konieczne (i nie uciec < =, nie są specjalne).

while($string =~ /<img\s+src="(.*?)"/g) { 
    ... 
} 

Answer 2

Użyj/g modyfikatora i kontekst listy po lewej stronie, tak jak w

@result = $string =~ /\<img\ssrc\="(.*)"/g; 

Answer 3

Wystarczy globalnego modyfikatora/g pod koniec meczu. Następnie pętli aż Nie znaleziono żadnego meczu pozostały

my @matches; 
while ($string =~ /\<img\ssrc\="(.*)"/g) { 
     push(@matches, $1); 
} 

Answer 4

@list = ($string =~ m/\<img\ssrc\="(.*)"/g); 

g modyfikator pasuje do wszystkich wystąpień w ciągu. Kontekst list zwraca wszystkie dopasowania. Zobacz operatora m // w perlop.