Perl-script for cutting part of file

[svilen888]

Could anybody help me with writting of
a procedure in Perl for cutting a part of file "File" and putting this part in another file "File2". This part need to be from certain line /for example: 546/ to the
end of file "File".
Please dont show me examples like
"system (tail -...)".
I'm looking for clearly perl-script.

[H.Merijn Brand (procura]

# perl -ne'546..inf and print' file >file2

Simple enough?

Enjoy, Have FUN! H.Merijn

[Nicolas Dumeige]

You can use sed to do that :

sed -n '546,$'p FILE > FILE2

[Mark Grant · Accepted solution]

Apologies to procura for this!

#!/usr/bin/perl

$startline=$ARGV[0];

open FILE1, "open FILE2, ">file2" or die "Couldn't open file2\";

select FILE2;$|=1;
while(){
if(($startline--)<0){
print
}
}

[H.Merijn Brand (procura]

And if you want to actually truncate file1 at that position, this is an exceptional evil, but short and efficient way to do so

# perl -pi -e'BEGIN{open X,">file2"}546..inf or next;print X;$_="";' file

Enjoy, Have FUN! H.Merijn