Y
yezi
Hi, everyone :
MY program is following:
#!/usr/bin/perl
use warnings;
use strict;
$address="./testdownload.txt";
open ADDRESS,$address or die " can not open the file ${address}";
while(<>)
{
$cmdline="tcpdump -i etho src host $_ -w ${1}.dmp";
system($cmdline);
print "Processing wget.";
$cmdline = "wget http://$_ -q ";
system($cmdline);
print "done ...wget..";
}
I try to execute the file, the output is like:
Global symbol "$cmdline" requires explicit package name at trial1.pl
line 11.
Unrecognized character \xE2 at trial1.pl line 11.
I can not understand that. thanks for any help. I am new one of perl
MY program is following:
#!/usr/bin/perl
use warnings;
use strict;
$address="./testdownload.txt";
open ADDRESS,$address or die " can not open the file ${address}";
while(<>)
{
$cmdline="tcpdump -i etho src host $_ -w ${1}.dmp";
system($cmdline);
print "Processing wget.";
$cmdline = "wget http://$_ -q ";
system($cmdline);
print "done ...wget..";
}
I try to execute the file, the output is like:
Global symbol "$cmdline" requires explicit package name at trial1.pl
line 11.
Unrecognized character \xE2 at trial1.pl line 11.
I can not understand that. thanks for any help. I am new one of perl