Betrachter für wachsende Dateien II

logviewer.pl

#!/usr/local/bin/perl use strict; use warnings; use IO::File; use Tk; use Tk::ROText; my $cmdname = $0; $cmdname =~ s{.*/}{}; my $usage = "Usage: $cmdname logfile\n"; die $usage unless @ARGV == 1; my $logfile = shift @ARGV; die "$cmdname: Unknown file: $logfile\n" unless -f $logfile; my ($log, $pid) = spawn_pipe("tail -f $logfile"); die "$cmdname: Unable to open $logfile: $!\n" unless defined $log;

Auf der Kommandozeile erwartet logviewer.pl die Angabe genau eines Namens der darzustellenden wachsenden Datei.

Die Aufgabe, das Wachstum der Datei zu verfolgen, wird an tail -f delegiert. logviewer.pl liest dann nur noch von einer Pipeline ein.

	Auf der Kommandozeile erwartet `logviewer.pl` die Angabe genau eines Namens der darzustellenden wachsenden Datei.
	Die Aufgabe, das Wachstum der Datei zu verfolgen, wird an `tail -f` delegiert. `logviewer.pl` liest dann nur noch von einer Pipeline ein.