use File::Find; $ct = 0; sub fetcher { if( $_ =~ /\.html?$/) { my $name = $File::Find::name; open ( F, $name ) or die "$!: $name\n"; while( $line = <F> ) { for $i ($line =~ /\@(?:ff|jj|bb)/g) { print "$i\n"; $ct++; } } close F; } } find( \&fetcher, 'C:\\inetpub\\wwwroot' ) || warn "$!\n"; print "\n\nTotal Count = $ct\n\n";
In reply to NT Server script by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |