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 (<FILE>) {
if (/([0-9a-z:]+)\s*via eth0/) {
$MAC_addr = $1;
} elsif (/read request for/) {
($IP_addr, $install_file_path) = m[:\s*(\S+):.+?(/\S+):];
$client_name = $IP_addr =~ /^(\w+)/;
$boot_file = $install_file_path =~ /([\w.]+)$/;
}
my fist label works fine ie :$Mac_addr
my second too ie:$IP_addr
my third is wrong I have $client_name wich displays 1 instead of 44CGMB114
my forth is wrong too ie $bootfile displays 1 instead of cygwin.bat
my fith is good it displays /bootp/cygwin.bat.
Could you help me why my 2 labels are wrong.
Thanks a lot
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
