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

Question

有什麼辦法可以找出那個partiualr文件是否存在於CVS中？我不想查看該文件，只是想通過Perl查看該文件是否存在。

Answer 1

您可以使用cvs status命令進行檢查。無論是

1. 呼叫直接通過系統調用

   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 
   

2. 或使用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