Find data between html tags
| Code Block | ||
|---|---|---|
| ||
#!/usr/local/bin/perl
# multiliner.pl
use strict;
my $filename = shift;
open (FILE, "<", $filename) or die "Failed to read file $filename : $! \n";
my $whole_file;
{
local $/;
$whole_file = <FILE>;
}
close(FILE);
while ($whole_file =~ m#\<ul id="poweredby"\>(.*?)\<\/ul\>#gs) {
print $1 . "\n";
} |
To execute,
| Code Block | ||
|---|---|---|
| ||
perl multiliner.pl datafile.txt |