perl - CVSファイルの場所はPerlで有効ですか?

Question

一部のファイルが CVS に存在するかどうかを調べる方法はありますか? ファイルをチェックアウトするのではなく、そのファイルが存在するかどうかを Perl で確認したいだけです。

Answer 1

cvs statusコマンドを使用して確認できます。また

1. システムコールを介して直接呼び出す

   my @output = `cvs status $filename`;
   

   結果のテキストをヒューリスティックに",v"文字列 (これは常に CVS リポジトリ ファイルのサフィックスです) に対して grep するか、実際に出力を解析して「リポジトリ リビジョン:」行を探します。

      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