最近用Web::Scraper抓WIKI編輯紀錄的時間和編輯者 抓下來輸出的檔案像這樣:
20141121
20141115
20141030
20140928
Adam
Jack
Mary
Bill
每個編輯者對應到的日期順序一致(例如Adam對應到的日期就是20141121 Jack對應到的就
是20141115)我想讓輸出檔案變成以下這種形式:
20141121 Adam
20141115 Jack
20141030 Mary
20140928 Bill
還有一點就是我有設定一個截止日 例如我設20141101為截止日的話大於這個日期的時間
便不會列印(只列印20140928和20141030)但編輯者的部分還是全部都會列印
我想做的是大於截止日的編輯者也不要列印出來 請問一下要同時達到這兩件事該怎麼寫?
附上是我的程式碼:
use warnings;
use URI;
use Web::Scraper;
my @user;
my %ss=();
my $url = "http://ppt.cc/E84~";
my $worker = scraper {
process ".mw-changeslist-date", "editdate[]" => "TEXT"; #這裡是抓日期
};
my $worker2 = scraper {
process ".mw-userlink", "username[]" => "TEXT"; #這裡是抓編輯者
};
my $FILE;
open(FILE,">test7.txt");
my $result = $worker->scrape( URI->new($url) );
my $result2 = $worker2->scrape( URI->new($url) );
print "Starting...\n";
for my $changeslist ( @{ $result->{editdate} } ) { #以下開始一整段是將抓
my ($d, $m, $y)=$changeslist=~m|, (\d+) (\w+) (\d+)|; 到的日期轉換成數字比
大小
$ss{'January'}='01';
$ss{'February'}='02';
$ss{'March'}='03';
$ss{'April'}='04';
$ss{'May'}='05';
$ss{'June'}='06';
$ss{'July'}='07';
$ss{'August'}='08';
$ss{'September'}='09';
$ss{'October'}='10';
$ss{'November'}='11';
$ss{'December'}='12';
if ($d < 10 ) { $d="0$d";};
$date1=$y.$ss{$m}.$d;
$date2="20141126";
print "date1=$date1\n";
if ( $date1 lt $date2 ){
print FILE "$date1\n"; #印出比截止日小的日期
}
}
for my $userlink ( @{ $result2->{username} } ) {
my ($name)="$userlink";
print FILE "$name\n"; #印出抓到的編輯者
}
close (FILE)

可以宣告額外變數 my(@date, @author); 然後把現在的print FILE "$date1\n"; 改成 push @date, $date1;把 print FILE "$name\n"; 改成 push @author, $name;最後再放一個迴圈, for my $i (0..$#date)印 "$author[$i]\n" 到你要輸出的檔案裡面欸等等... date 沒有按照一定順序哄 XD那把 if ( $date1 lt $date2 ){..} 改成push @date, $date1 lt $date2;最後的迴圈裡面用 print "$author[$i]\n"if($date[$i])