Question

有没有办法找出CVS中是否存在partiualr文件？我不想检查文件，只想通过Perl查看该文件是否存在。

Answer 1

您可以使用cvs status命令进行检查。任

直接通过系统调用
调用它
```
my @output = `cvs status $filename`;
```
你可以试探性地grep ",v"字符串的结果文本（它总是CVS存储库文件的后缀），或实际解析输出，寻找“存储库修订版：”行
```
   MISSING: Repository revision: No revision control file
   PRESENT: Repository revision: 10.41   /u1/cvs/dev/myscript.pl,v
```

或使用Cvs模块：

use Cvs; 
my $cvs = new Cvs("/u1/cvs", cvsroot => $ENV{CVSROOT}, password =>"*****") 
    or die $Cvs::ERROR; 
my $status = $cvs->status("CVS_file"); 
print $status->status() . "\n";

====> Needs Checkout

my $status = $cvs->status("bogus_file"); 
print $status->status() . "\n";

====> Unknown

CVS文件位置在Perl中有效吗？

1 个答案: