sub CheckForImageReferencesInFiles { my $filename = $_; my $line = ""; open hFile, $filename or die "Failed to open $filename\n"; while ($line = <hFile>) { chomp($line); if ($line =~ m/src="([a-zA-Z0-9\_\-\/])+\.(gif|jp[e]?g|bmp)"/i +) { $line = $&; ReportFileFound($saved_name, $line, $., 1); } } close hFile; }
In reply to Re^3: code review?
by toolic
in thread code review?
by CaolanDix
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |