in reply to how can i read only the last line of a files

hi monk,
i saw your code,u are reading the content of files in an array.below subroutine may helps to read the last content of arrays.
@last=lastlines(\@a,\@b,\@c);
print "@last\n";
sub lastlines
{
    my @retlist=();
     foreach my $aref(@_)
    {
         push @retlist,pop @$aref;
    }
    return @retlist;
}

[download]
.

Replies are listed 'Best First'.
Re^2: how can i read only the last line of a files
by davidrw (Prior) on Aug 03, 2006 at 11:57 UTC
    This is equivalent code (though note davorg's reply for a much more robust solution) ... no need to iterate through everything: 
    sub lastlines
{
  return map { $_[-1] } @_;
}

# or, w/o using a sub:
@last = ($a[-1], $b[-1], $c[-1]);

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom