#!/usr/bin/perl -w use strict; while( 1 ) { my $file = shift || last; open TAIL, "tail -1 $file|" or die "can't do tail -1 $file:$!\ +n"; my $line = <TAIL>; print $line; close TAIL; }
| Plankton: 1% Evil, 99% Hot Gas. |
In reply to Re: Read Last Line of A File Only
by Plankton
in thread Read Last Line of A File Only
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |