o*****s
发帖数: 39 | 1 完全不懂perl,有人帮我写了一个程序，但是现在要改一点。
任务：从一个网页上抓取一个关键词后面的field。原来都是在同一行的，现在有些网
页变成了下一行或者空行后的下一行。所以现在任务就是从一个网页上抓取一个关键词
TYPE OF REPORTING PERSON:后的第一个非空field，无论在哪一行。原句是：
foreach $line (@contents) {
if (($_,$entry) = ($line =~ m/(TYPE OF REPORTING PERSON:[\s]
+)([0-9]*)/)) {
print OUTF $address,"\t",$entry,"\t";
last;
怎么改？谢谢谢谢！大包子伺候 | n********a
发帖数: 119 | 2 比较麻烦
得把@contents弄到一行才行
s]
【在 o*****s 的大作中提到】
: 完全不懂perl,有人帮我写了一个程序，但是现在要改一点。
: 任务：从一个网页上抓取一个关键词后面的field。原来都是在同一行的，现在有些网
: 页变成了下一行或者空行后的下一行。所以现在任务就是从一个网页上抓取一个关键词
: TYPE OF REPORTING PERSON:后的第一个非空field，无论在哪一行。原句是：
: foreach $line (@contents) {
: if (($_,$entry) = ($line =~ m/(TYPE OF REPORTING PERSON:[\s]
: +)([0-9]*)/)) {
: print OUTF $address,"\t",$entry,"\t";
: last;
: 怎么改？谢谢谢谢！大包子伺候
|
|
