http://qs321.pair.com?node_id=89691


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