Perl程式紀錄

#!/usr/bin/perl
$|=1;
use DBI;
use Getopt::Long;

GetOptions(
'path=s',\$path
);

my $file_path = '/var/www/express/data/'.$path.'/all_id.lst';
my $mail ;
open(FHD, "$file_path") || die "無法讀取 $file_path 檔! 請查明原因!\n";
$t1 = time;

while (my $line=) {
chomp $line;
#$comm = "php get_mail.php $line";
#$mail = system("php get_mail.php $line");
#sleep 1;
open (PSFILE, "php get_mail.php $line |");
while ()
{
if ($_){
print "$_:$line\n";
}
}


#print `$comm`;
#print ":$line";
#print "\n";

}
$t2 = time;
print $t2 - $t1 ;
print "\n";
close(FHD);