Adding a line in a file inside many directories

Hi all, I am a beginer in PERL. What I am trying to do is this: I have a 150 directories, each having a file "kat.s" in them. I have names of all these directories in a text file "list_of_dir.txt". I have to open the each of "kat.s" in all the 150 directories and add a line(say "ABCD" at line numb

Adding a line in a file inside many directories

rIN, '$file_list/kat.s') or die "Cannot open 'File.txt' $!"; #How to open kat.s ?? ###Further have to add the print statement } close (VEDIN); close ($VEDOUT); ## Regards Ved -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/