> Hi, i wonder how to remove the 4 first lines of a file in Perl?
>
How does this admittedly lazy-brained script work for you?:
---
open(IN,"filetosnip.txt") or die $!;
open(OUT, ">tempfile.txt") or die $!;
$line = <IN>;$line = <IN>;$line = <IN>;$line = <IN>;
while($line = <IN>) {
print OUT $line;
}
close IN;
close OUT;
---
tempfile.txt should have your truncated file in it.
jpt
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
