Re^2: tail pipe

[aquercus]

Here is the program. It assumes that that the MS tookit tail has been installed on the computer.

#! /usr/bin/perl

my $cmdtorun = "tail -f D:/prjct/logger/2013-06-05.dlg |";
open(TL, $cmdtorun) || die "Failed: $!\n";
while ( <TL> )
{
  print "Got: $_\n";
}