how to modify a file using perl script

[leierwu]

1. I have a folder containing several files;
2. Now these files should be added a header with the file name in the first line;

How can I complish this using perl script?

[numberwhun]

1. I have a folder containing several files;
2. Now these files should be added a header with the file name in the first line;

How can I complish this using perl script?

First, welcome to TSDN.

Second, we would love to help assist you with any code you have written. What have you tried so? Can you post your code please?

Regards,

Jeff

[KevinADC]

This question is coverd in the perl FAQS:

perldoc: perlfaq5 files and formats

[prlmsnger]

You can use UNIX command in perl, if u r working in unix platform.

and unix command is

sed -n "1i/
>ur line input
filename > $$


then

mv $$ filename

[numberwhun]

You can use UNIX command in perl, if u r working in unix platform.

and unix command is

sed -n "1i/
>ur line input
filename > $$


then

mv $$ filename

Yes, you certainly can, but the thing to remember is that the system command(s) need to be inside of either back tics or the system() function.

Regards,

Jeff

[KevinADC]

use perls inplace editor:

use warnings;
chdir('path/to/folder') or die "$!";
@ARGV = <*.*>;
$^I = '.bak';
while(<>){
   if ($. == 1) {
      print "$ARGV\n";
   }
   print;
}

change <*.*> to whatever is appropriate or leave as-is to edit all files in the folder.