Re: printing content of found file Amichai Teumim 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 The next two lines in your program should be: use warnings; use strict; > opendir(CURRENT,"."); You should *ALWAYS* verify that the directory opened correctly: opendir CURRENT, '.' or die "Cannot open the current directory: $!"; > @list = readdir(CURRENT); > closedir(CURRENT); >  > foreach $item (@list){ >   if($item =~ /notes/){ >  >  > open(FILE,"@item"); You should *ALWAYS* verify that the file opened correctly: You are trying to open the 'file' "@item"?  "@item" is the same as saying  join( ' ', @item ). open FILE, $item or die "Cannot open '$item' $!"; > @file = ; > while(){ print }; > close(FILE); >  > print "@file\\n"; > } > } This should do what you want: @ARGV = <*notes*>; print while <>; John --  Perl isn't a toolbox, but a small machine shop where you can special-order certain sorts of tools at low cost and in short order.                            -- Larry Wall --  To unsubscribe, e-mail: beginners-unsubscribe@perl.org For additional commands, e-mail: beginners-help@perl.org http://learn.perl.org/