In perl I want to do remove the top line of my input file then process the next line. I want to do something like
head -1 inputfile > temp
grep -v temp inputfile > newinputfile
cp newinputfile inputfle

is this possible in perl?

Why not just use sed?

sed '1d' my_file > new_file && mv new_file my_file

Or - look at this.

Cheers
ZB

I will give these methods a try. Thanks

zazzybob,

perl -pi -e '$_ = "" if ( $. == 1 );' large_file
I am trying to convert the above perl command line you reference to a script.
I am not sure what the -pi does for the command line. But what I have below works but I am wondering if it is efficent or should be done in another manner.

$ cat junk
#!/usr/bin/perl

open (infile, "+< /adsm/ACTIVITIES/CHANGES/TGA2_OBSOLETE_CLNUP/x ");
open (outfile,">/adsm/ACTIVITIES/CHANGES/TGA2_OBSOLETE_CLNUP/z");
while ( $line = <infile>) {
if ($. == 1) {
}
else {
print (outfile "$line");
}
} #end while
system ("cp /adsm/ACTIVITIES/CHANGES/TGA2_OBSOLETE_CLNUP/z /adsm/ACTIVITIES/CHANGES/TGA2_OBSOLETE_CLNUP/x");
close(infile);
close(outfile);