Gregory Machin wrote:
$row =
"CLIENT_LIST,tsc-odi.vpn.ct-net.org,165.146.60.29:11134,10.1.0.46,1959761,218729,Wed
May 16 11:24:37 2007,1179307477"
$row =
~/(\w+)\,(\w+)\,(\d+\.\d+\.\d+\.\d+\:\d+)\,(\d+\.\d+\.\d+\.\d+)\,(\d+)\,(\d+)\,\,(\d+)/
print "info $1 \n";
print "hostname $2 \n";
print "pubip $3 \n";
print "wanip $4 \n";
print "recieved $5 \n";
print "sent $6 \n";
print "time $7 \n";
and I'm getting the following error ..
[EMAIL PROTECTED] ~]# ./vpninfo.pl
./vpninfo.pl: line 1: =: command not found
./vpninfo.pl: line 2: syntax error near unexpected token `('
./vpninfo.pl: line 2: `$row =
~/(\w+)\,(\w+)\,(\d+\.\d+\.\d+\.\d+\:\d+)\,(\d+\.\d+\.\d+\.\d+)\,(\d+)\,(\d+)\,\,(\d+)/'
[EMAIL PROTECTED] ~]#
.... what have I missed ...
Looks like you are missing semicolons after your first two lines.
-m
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
