con2.pl

来自「harvest是一个下载html网页得机器人」· PL 代码 · 共 42 行

#!/usr/bin/perl -w

my $state = 'init';
my $topic = '';
my $title;
my $description;

my $no = 0;

while ($_ = <STDIN>) {
    if (/<Topic r:id=\"(.*?)\">/) {
	$topic = $1;
    }
    elsif (/<ExternalPage about=\"(.*?)\">/) {
	$url = $1;
    }
    elsif (/<d:Title>(.*?)<\/d:Title>/) {
	$title = $1;
    }
    elsif (/<d:Description>(.*?)<\/d:Description>/) {
	$description = $1;
    }
    elsif (/<\/ExternalPage>/) {
	if (($no % 30000) == 0) {
	    if ($no) {
		 close(XO);
            }
	    open(XO, ">dmoz." . ($no / 30000) . ".xml");
	}
	print XO "<meta>\n";
	print XO " <title>$title</title>\n";
	print XO " <description>$description</description>\n";
	print XO " <url>$url</url>\n";
	print XO " <topic>$topic</topic>\n";
	print XO "</meta>\n";
	$no++;
    }
}
if ($no != 0) {
    close(XO);
}