Thanks,
I tried as you suggested and got this message: Use of uninitialized value at fet7a.pl line 28.
Total Count =
Here is what I have:
use File::Find;
sub fetcher
{
my($ct, @data) = (0,());
if( $_ =~ /\.html?$/) {
my $name = $File::Find::name;
open ( F, $name ) or die "$!: $name\n";
while( $line = <F> )
{
for $i ($line =~ /stuff/gi ) {
push(@data, "$i\n"); # gather the lines
$ct++;
}
}
# since there is no requirement the lines need to match
# why not
local $/ = undef;
@data = <F>;
close F;
}
return($ct,\@data);
}
my ($ct, $data) = find( \&fetcher, "/directoryHere" );
print @$data;
print "\n\nTotal Count = $ct\n\n";
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|