Hi
please could you have a look and see what I have missed.
use File::Tail;
my $name="/etc/openvpn/logs/CT-NET.log";
my $maxinterval=10 ;
my $adjustafter=7 ;
$file=File::Tail->new(name=>$name, maxinterval=>$maxinterval,
adjustafter=>$adjustafter);
while (defined($line=$file->read)) {
print ("$line"); << this line prints fine
print ("hello"); << but this one does not print at all
}
i have allso tried print "hello"; but the result is the same..
I have tried ping ("$line hello"); but it does not print the hello.
what have I missed ..
Many thanks for your time
--
Gregory Machin
[EMAIL PROTECTED]
www.linuxpro.co.za
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
