On Wednesday, August 25, 2004 11:56 PM, balaji venkat wrote: > The following code will do the required task. > > #! /usr/bin/perl > > open (FILE,"test789.pl"); > @array1 = <FILE>; > $last = pop(@array1); > print $last;
No, I don't think you read the requirement correctly. Either solution from myself or from Gunnar will work. Jeremy Kister http://jeremy.kister.net/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>