topic Re: Substitution for tail -1 in a Perl script in Operating System - HP-UX

Substitution for tail -1 in a Perl script

Stephen_175 — Tue, 27 Sep 2005 13:49:53 GMT

I m writing this script and I 've encountered
a problem in substititing tail -1 in a Perl script to get the last line in a file. SOS please.

My script is as follows:

#!/usr/local/bin/perl
open(INP,"/export/home/soglesby/gents_processed");
while() {
chomp;
next unless /dat/;
@a=split('\s+',$_);
$a[8]=~s/\.dat//g;
$a[8]=~s/return_//g;
#system "tail -1" I've tried this
print
print "\n";
}

Re: Substitution for tail -1 in a Perl script

James R. Ferguson — Tue, 27 Sep 2005 13:59:05 GMT

Hi Stephen:

Onw way to accomplish this is to add a test for end-of-file like this:

while () {
next if !eof;
chomp;
...

This would process *only* the last line.

Regards!

...JRF...

Re: Substitution for tail -1 in a Perl script

Stephen_175 — Tue, 27 Sep 2005 14:04:36 GMT

Thanks, sounds like a great idea!

Re: Substitution for tail -1 in a Perl script

Muthukumar_5 — Wed, 28 Sep 2005 00:32:49 GMT

One linear as,

# perl -ne 'print if eof'

hth.

Re: Substitution for tail -1 in a Perl script

Arunvijai_4 — Wed, 28 Sep 2005 00:48:23 GMT

#!/usr/bin/perl -w
# example for files with max line lengths < 400, but it's adjustable
# usage tailz filename numberoflines
use strict;

die "Usage: $0 file numlines\n" unless @ARGV == 2;
my ($filename, $numlines) = @ARGV;

my $chunk = 400 * $numlines; #assume a <= 400 char line(generous)

# Open the file in read mode
open FILE, "<$filename" or die "Couldn't open $filename: $!";
my $filesize = -s FILE;
if($chunk >= $filesize){$chunk = $filesize}
seek FILE,-$chunk,2; #get last chunk of bytes

my @tail = ;
if($numlines >= $#tail +1){$numlines = $#tail +1}
splice @tail, 0, @tail - $numlines;

print "@tail\n";
exit;

=============================

# ./tailz.pl
Usage: ./tailz.pl file numlines

-Arun

Re: Substitution for tail -1 in a Perl script

H.Merijn Brand (procura — Wed, 28 Sep 2005 01:28:07 GMT

chomp (my $last_line = ()[-1]);

Enjoy, Have FUN! H.Merijn