Re: printing content of found file

Hi,

Hope you can find your solution from the following two approaches

Approach I
#!/usr/bin/perl
while (<*>) {
if ($_ =~ /note/){
open(FH, "$_");
@fcontent = <FH>;
print @fcontent;
close(FH);
}
}


APPROACH II

opendir(CURRENT,".");
@list = readdir(CURRENT);
closedir(CURRENT);
foreach $item (@list){
if($item =~ /note/){
open(FILE,"$item");
@file = <FILE>;
print @file;
close(FILE);
}
}

Thanks,
Prabu.M.A

@teumim.com> wrote:
I'm trying to do the following:

I want to search for a specific file/s in my current dir and when it finds
it, print its contents. So I did the following:

#!/usr/bin/perl

opendir(CURRENT,".");
@list = readdir(CURRENT);
closedir(CURRENT);

foreach $item (@list){
if($item =~ /notes/){


open(FILE,"@item");
@file = ;
while(){ print };
close(FILE);

print "@file\n";
}
}

I keep getting the following error:

In string, @item now must be written as \@item at ./obj14-2.pl line 11, near
"@item"
Execution of ./obj14-2.pl aborted due to compilation errors.

So I changed the script:

#!/usr/bin/perl

opendir(CURRENT,".");
@list = readdir(CURRENT);
closedir(CURRENT);

foreach $item (@list){
if($item =~ /messages/){


open(FILE,"\@item"); #NOTE THE \
@file = ;
while(){ print };
close(FILE);

print "@file\n";
}
}

I don't get any output. The file for sure exists.

Any ideas on what I'm doing wrong?

Amichai



---------------------------------
Expecting? Get great news right away with email Auto-Check.
Try the Yahoo! Mail Beta.

Relevant Pages

  • scope trouble
    ... foreach my $element{ ... Global symbol "%counted_hash" requires explicit package name ... Execution of ./attempt3.pl aborted due to compilation errors. ...
    (comp.lang.perl.misc)
  • Re: printing content of found file
    ... print @fcontent; ... foreach $item { ... Execution of ./obj14-2.pl aborted due to compilation errors. ... - their life, your story. ...
    (perl.beginners)
  • Re: printing content of found file
    ... print @fcontent; ... foreach $item { ... Execution of ./obj14-2.pl aborted due to compilation errors. ... toolbar and rest assured with the added security of spyware protection. ...
    (perl.beginners)
  • printing content of found file
    ... I want to search for a specific file/s in my current dir and when it finds ... foreach $item { ... Execution of ./obj14-2.pl aborted due to compilation errors. ... So I changed the script: ...
    (perl.beginners)