Re: printing content of found file

[Prabu Ayyappan]

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 [EMAIL PROTECTED] 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,"[EMAIL PROTECTED]"); #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.