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.