如何使用 Perl 执行 CVS 签出？
下面的代码不打印任何内容。请同样帮助我。
use Cvs;
my $obj = new Cvs cvsroot => ":pserver:pramodh\@129.227.152.22:/data/cvs" or die $Cvs::ERROR;
$obj->checkout(package) || print "ERROR";
my @modules = $obj->module_list();
print "@modules";
如果我在命令行上工作，则可以使用以下命令正常工作：
[root@localhost pramodh]# CVSROOT=:pserver:[email protected]:/data/cvs
[root@localhost pramodh]# export CVSROOT
[root@localhost pramodh]# cvs login
Logging in to :pserver:[email protected]:2401/data/cvs
CVS password:pramodh
[root@localhost pramodh]# cvs co packages
cvs checkout: Updating packages
the code below prints nothing. Please help me out in the same.
use Cvs;
my $obj = new Cvs cvsroot => ":pserver:pramodh\@129.227.152.22:/data/cvs" or die $Cvs::ERROR;
$obj->checkout(package) || print "ERROR";
my @modules = $obj->module_list();
print "@modules";
If I work on the command line it works fine with these commands:
[root@localhost pramodh]# CVSROOT=:pserver:[email protected]:/data/cvs
[root@localhost pramodh]# export CVSROOT
[root@localhost pramodh]# cvs login
Logging in to :pserver:[email protected]:2401/data/cvs
CVS password:pramodh
[root@localhost pramodh]# cvs co packages
cvs checkout: Updating packages
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
您需要引用您的
checkout参数。package是 Perl 中的保留关键字。You need to quote your
checkoutargument.packageis a reserved keyword in Perl.