Regulärer Ausdruck mehrmals pro String - #61368 (Allgemeines zu Perl)

Gast Gast

2005-12-26 02:30

Hallo!

Ich möchte aus einem HTML-File alle Bilder raussuchen. Dazu lese ich die Datei ein

Code: (dl )

1
2
3

open(EIN, "<test.html") or die("Kann HTML-File nicht oeffnen.\n");
@html = <EIN>; 
close(EIN);

Nun wende ich folgenden regulären Ausdruck an, um alle Image-Dateinamen zu bekommen

Code: (dl )

foreach (@html)
{ 
    if (/\<img.*src\=\"(.*)\".*\>/) { print $1, "\n"; }
}

Soweit sogut, angenommen ich hab in einer Zeile folgendes stehen

Code: (dl )

<img border="0" src="button1.jpg"><img width="100" border="0" src="button2.jpg">

dann bekomme ich nur button1.jpg zurück.

Was kann ich machen, damit ich alle Bilder (button1.jpg, button2.jpg, ...) bekomme?? Das Flag ../g hilft in diesem Fall ja auch nix (zumindest bei mir).

Danke für eure Hilfe,
Markus