I think you want something like this here:sub scrapTag # removes image tags from HTML document { while($htmlLines[$i] =~ m/<IMG\s+([^>]+)>/ig)
which will walk the list of lines and execute the substitution for each line. Note - I made no effort to code a correct regexp to achieve the desired resultssub scrapTag { foreach my $line (@htmlLines) { # replace <IMG ...> with nothing. $line =~ s/<IMG\s+([^>]+)>//ig; } }
Michael
In reply to Re: Global symbol probs...
by mpeppler
in thread Global symbol probs...
by Tricky
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |