Delete the first line of a file ?

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

Replies are listed 'Best First'.
Re: Regex by Thelonius (Priest) on Oct 29, 2002 at 14:19 UTC
Here's how I would remove the first line: `perl -i.bak -ne 'print if $. > 1'` [download] and here's how I would remove the first and last line: `perl -i.bak -ne 'print $prev if $. > 2; $prev=$_' test1` [download]	[reply] [d/l] [select]
Re: Regex by robartes (Priest) on Oct 29, 2002 at 13:12 UTC
I'm not quite sure what you are asking, but I'll answer some questions that you might have been asking :) Removing first and last line of a file: `use strict; open FILE, "</path/to/inputfile" or die "Blerch: $!\n"; # Set $/ to whatever your line terminating char is in inputfile my @lines=<FILE>; shift @lines; pop @lines; # @lines now contains the file contents without the first and last lin +es.` [download] Removing leading # from a line: `$line=~s/^#//;` [download] Inserting a leading # in a line: `$line=~s/^(.)/#$1/;` [download] Note that the above code is untested however, and might do all kinds of funny stuff, not excluding actually working as intended. CU Robartes-	[reply] [d/l] [select]
Re: Regex by atcroft (Abbot) on Oct 29, 2002 at 13:24 UTC
If I may suggest, a regex is not the best tool for the job here. Unless there is an overriding reason, it might be easier just to do something along the lines of: `my $filename = "blah.txt"; #replace as needed rename($filename, $filename . '.bak') or die("Unable to rename $filename to $filename.bak: $!\n"); open(INFILE, $filename . '.bak') or die("Can't open $filename.bak for input: $!\n"); open(OUTFILE, '>' . $filename) or die("Can't open $filename for output: $!\n"); my $linecount = 0; while ($line = <INFILE>) { print(OUTFILE $line) if ($linecount); $linecount++; } close(INFILE); close(OUTFILE);` [download] Two references that cover this and more that I use frequently are the perl FAQs and Perl Cookbook, and there are others here and about. Hope that helps. I look forward to seeing the responses of others as well.	[reply] [d/l]
Re^2: Regex by Anonymous Monk on Apr 25, 2018 at 08:51 UTC
yes it worked	[reply]
Re: Regex by petral (Curate) on Oct 29, 2002 at 15:06 UTC
Just for completeness, here's how one can do it with a regex: `perl -p0777we 's/ .+? ( ^ .* ^ ) .* /$1/xms'` [download] p	[reply] [d/l]
Re: Regex by Basilides (Friar) on Oct 29, 2002 at 13:08 UTC
I don't know about a regex, but you might want to look at this node: Replace last line in file. Dennis	[reply]
Re: Delete the first line of a file ? by thelenm (Vicar) on Oct 29, 2002 at 16:40 UTC
Yet another way to remove the first line: `perl -i.bak -ne 'print if 2..eof' myfile` [download] -- Mike `-- just,my${.02}`	[reply] [d/l]