Hi, folks
I have 5 labels in a perl tk program.
I have this line in my file:
1000975996: 44CGMB0114.col.bsf.alcatel.fr: read request for /bootp/cygwin.bat:
success .
my code is :
open FILE, "< $SYSLOG" or die $!;
while () {
if (/([0-9a-z:]+)\s*via eth0/) {
> Hi, I have the following string into a file:
>
> LOG_INFO : cpcdos23.col.bsf.alcatel.fr: read request for
/bootp/popo.txt:
> success.
>
> And I have this code:
>
> my ($f)=@_;
> $thistime=(stat($f))[9];
> return if ($thistime == $mtime);
>
> $mtime=$thistime;
> my $dummy;
> open (FILE, $f) || wa
Hi, I have the following string into a file:
LOG_INFO : cpcdos23.col.bsf.alcatel.fr: read request for /bootp/popo.txt:
success.
And I have this code:
my ($f)=@_;
$thistime=(stat($f))[9];
return if ($thistime == $mtime);
$mtime=$thistime;
my $dummy;
open
