Deleting the first line of a file

Kiko has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Deleting the first line of a file by btrott (Parson) on Apr 06, 2000 at 00:38 UTC
`perl -ni -e 'print unless $. == 1' <file>` [download] If you want to save around a backup: `perl -ni.bak -e 'print unless $. == 1' <file>` [download] The original is now in <file>.bak. The general algorithm: How do I change one line in a file/delete a line in a file/insert a line in the middle of a file/append to the beginning of a file?	[reply] [d/l] [select]
Re: Deleting the first line of a file by turnstep (Parson) on Apr 06, 2000 at 00:48 UTC
No shortcut really, you have to open the file, read in the contents, and then re-write it, minus the first line: `open(FOO, "+< $myfile") \|\| die "Could not open $myfile $!\n"; @bar=<FOO>; shift(@bar); seek(FOO, 0, 0); truncate(FOO, tell); print FOO @bar; close(FOO);` [download] If you don't want to mess around with the seeking and truncating, just open it twice: `open(FOO, "$myfile") \|\| die "Could not open $myfile $!\n"; @bar=<FOO>; shift(@bar); close(FOO); open(FOO, ">$myfile") \|\| die "Could not open $myfile $!\n"; print FOO @bar; close(FOO);` [download]	[reply] [d/l] [select]
Re: Deleting the first line of a file by plaid (Chaplain) on Apr 06, 2000 at 03:17 UTC
Just to throw out another way to do it, you could try something along the lines of `perl -ni -e 'if (2 .. eof) { print }' <file>` [download] Not too different from brott's example, but it's always interesting to see different ways to do the same thing.	[reply] [d/l]
RE: Re: Deleting the first line of a file by jbert (Priest) on Apr 06, 2000 at 16:06 UTC
And to ice the cake... `perl -pi -e 'BEGIN{<>}' files you want to munge` [download]	[reply] [d/l]