Re^3: Deleting first and last lines of a text file

The script given to you by morgon is a oneliner, which you should "run" from your command line interface, not from your a script.
If you want a full script of the oneliner this would do:

BEGIN { $^I = ".old"; }
LINE: while ( defined( $_ = <ARGV> ) ) {
    print $_ unless $. == 1 or eof;
}
[download]

putting the above in a script should work.

Of course, morgon code works fine from the CLI.

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Comment on Re^3: Deleting first and last lines of a text file Download Code

Replies are listed 'Best First'.
Re^4: Deleting first and last lines of a text file by vsmeruga (Acolyte) on May 16, 2014 at 10:21 UTC
Hi I should automate the task of deleting the lines in the file so that it runs every day and deletes particular file Thanks VJ	[reply]
Re^5: Deleting first and last lines of a text file by 2teez (Vicar) on May 16, 2014 at 11:04 UTC
.. should automate the task of deleting the lines in the file .. Then, in that case, you can specify the filename in your script, then open a filehandle to read from,doing all you wanted done. Like so: `use warnings; use strict; my $filename = '...'; # specify the file name here open my $fh, '<', $filename or die "can't open $filename: $! "; while ( defined( $_ = <$fh> ) ) { print $_ unless $. == 1 or eof; } close $fh or die "can't close $filename: $!";` [download] If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply] [d/l]
Re^6: Deleting first and last lines of a text file by vsmeruga (Acolyte) on May 16, 2014 at 13:33 UTC
Thanks for your time. I tried with below code. but it deleted just first line. Can you please help me to delete last 2 lines as well `#!/usr/bin/perl use strict; use warnings; my $file='tgtfile.txt'; open STDOUT, ">", $file or die "$0: open: $!"; open STDERR, ">&STDOUT" or die "$0: dup: $!"; my $filename = 'srcfile_20140319.txt'; # specify the file name here open my $fh, '<', $filename or die "can't open $filename: $! "; while ( defined( $_ = <$fh> ) ) { print $_ unless $. == 1 or eof; } close $fh or die "can't close $filename: $!";` [download]	[reply] [d/l]
Re^4: Deleting first and last lines of a text file by vsmeruga (Acolyte) on May 16, 2014 at 10:13 UTC
But where are we specifying the filename here ?. I mean from which file first and last lines has to be deleted? Thanks VJ	[reply]
Re^5: Deleting first and last lines of a text file by 2teez (Vicar) on May 16, 2014 at 10:53 UTC
But where are we specifying the filename here ?... "We" are using ARGV, the special filehandle that iterates over command-line filenames in @ARGV, from the CLI. If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply]