Re: Answer: How do I copy out the last line written in a file?

Replies are listed 'Best First'.
Re^2: Answer: How do I copy out the last line written in a file? by blazar (Canon) on May 03, 2007 at 10:18 UTC
When a file is read into an array the last element in the array array-1 would give you what you are looking for. To put it more clearly, and in actual Perl rather than some pseudo-language, the first example above, i.e. `@array = <FILE>; $last_line = $array[$#array];` [download] could be rewritten like `@array = <FILE>; $last_line = $array[-1];` [download] or even without creating an intermediate `@array`: `my $last_line = (<FILE>)[-1];` [download] Incidentally, I put a my in front of that as a reminder of the good rule of always staying strict.	[reply] [d/l] [select]

Replies are listed 'Best First'.

When a file is read into an array the last element in the array array-1 would give you what you are looking for.

To put it more clearly, and in actual Perl rather than some pseudo-language, the first example above, i.e.

@array = <FILE>;
$last_line = $array[$#array];
[download]

could be rewritten like

@array = <FILE>;
$last_line = $array[-1];
[download]

or even without creating an intermediate @array:

my $last_line = (<FILE>)[-1];
[download]

Incidentally, I put a my in front of that as a reminder of the good rule of always staying strict.