最近用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])