我已成功编译所有模块以运行名为Wikifetch.pl的脚本
指南可在此处找到>> http://encodo.com/en/blogs.php?entry_id=73
当我运行脚本时,我得到以下输出......
C:\Strawberry>perl wikifetch.pl
Reading config...
Pending pages:
Main_Page
Done reading config
Fetching/processing: http://wiki.domain.com/wiki/index.php/Main_Page
Missing base argument at C:/Strawberry/perl/site/lib/HTML/WikiConverter.pm line 669.
这是该文件中的相关代码位:
sub __extract_wiki_page {
my( $self, $uri, $wiki_uri ) = @_;
return undef unless $wiki_uri;
if( ref $wiki_uri eq 'Regexp' ) {
return $uri =~ $wiki_uri ? $1 : undef;
} elsif( ref $wiki_uri eq 'CODE' ) {
return $wiki_uri->( $self, URI->new($uri) );
} else {
# Ensure $wiki_uri is absolute
$wiki_uri = URI->new_abs( $wiki_uri, $self->base_uri )->as_string;
return undef unless index( $uri, $wiki_uri ) == 0;
return undef unless length $uri > length $wiki_uri;
return substr( $uri, length $wiki_uri );
}
}
第669行是
$wiki_uri = URI->new_abs( $wiki_uri, $self->base_uri )->as_string;
我对Perl完全陌生,此时我已经迷失了。我在Debian / CentOS / Windows上尝试了相同的结果,除了CentOS,我无法从CPAN中获取所有内容以便正确编译。
有人可以给我一个建议吗?