Front page | perl.perl5.porters |
Postings from December 2010
Hi,
I use a very simple perl script like below, I don't know why this
happen, so anybody can give me some clue on this?
##############################################################################
#! /usr/bin/perl -w
use strict;
open(my $log, "tail -f /srv/Log/log/syslog | grep semper_prb1x |");
# This can work:
#open(my $log, "cat /srv/Log/log/syslog | grep semper_prb1x |");
while (my $line = <$log>) {
print "$line";
}
# So why "tail -f" can not work?
##############################################################################
# perl --version
This is perl, v5.8.7 built for x86_64-wrs-linux-gnu
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2005, Larry Wall
Thread Next