perl – -CSD太晚了
试图从parsCit运行这个小的perl程序:
e1.txt在这里:http://dl.dropbox.com/u/10557283/parserProj/e1.txt 我从win7 cmd运行程序,而不是Cygwin. filename是parsCit-client.pl – 整个程序在这里: #!/usr/bin/perl -CSD # # Simple SOAP client for the ParsCit web service. # # Isaac Councill,07/24/07 # use strict; use encoding 'utf8'; use utf8; use SOAP::Lite +trace=>'debug'; use MIME::Base64; use FindBin; my $textFile = $ARGV[0]; my $repositoryID = $ARGV[1]; if (!defined $textFile || !defined $repositoryID) { print "Usage: $0 textFile repositoryIDn". "Specify "LOCAL" as repository if using local file system.n"; exit; } my $wsdl = "$FindBin::Bin/../wsdl/ParsCit.wsdl"; my $parsCitService = SOAP::Lite ->service("file:$wsdl") ->on_fault( sub { my($soap,$res) = @_; die ref $res ? $res->faultstring : $soap->transport->status; }); my ($citations,$citeFile,$bodyFile) = $parsCitService->extractCitations($textFile,$repositoryID); #print "$citationsn"; #print "CITEFILE: $citeFilen"; #print "BODYFILE: $bodyFilen"; 解决方法
从
perldoc perlrun开始,关于-C开关:
这大概就是编译器所说的“为时已晚”. 换一种说法: perl -CSD parsCit-client.pl (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |