use strict; use warnings; my $line_count = 0; open(F, "test.htm"); while(<F>) { my @a = $_ =~ m{(http://hosting/image\d+\.jpg)}g; for my $url (@a) { print "URL [ $url ] found on line ($line_count)\n"; } $line_count++; } close(F);
In reply to Re: Stumped Regular expressions
by kabeldag
in thread Stumped Regular expressions
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |