in reply to Searching directories for HTML title tags
I hope this little piece of Windows Perl is enough to start you up ... assuming it's not homework ...
> perl -MFile::Find -le "sub wanted {return unless /\.html?$/; my $f = + $_; open(FH, '<'.$f); $/=undef; return unless <FH> =~ /<title>([^<]* +)<\/title>/i; print $1.' -- in: '.$File::Find::dir.$_;}; find(\&wante +d, '.')"
Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com
|
---|
In Section
Seekers of Perl Wisdom