2

素朴で申し訳ありません。cleartool コマンドへの入力として取得され、適切な出力を提供する 2 つの引数 (ここではコミット ラベル) を受け入れる単純な PERL スクリプトを作成したいと考えています。私のコード: 

#!/usr/bin/perl
$file1 = system('cleartool find . -version "lbtype($ARGV[0])" -print > filename1');
$file2 = system('cleartool find . -version "lbtype($ARGV[1])" -print > filename2');
$file3 = system('diff filename1 filename2 > changeset');
print $ARGV[0];
print $ARGV[1];
print $file3;
close filename1;
close filename2;
close changeset

出力は、3 つの空のファイル (filename1、filename2、changeset) になります。しかし、コミットされた 2 つのラベル間でコミットされたファイルが必要です。

私が間違っている場所について誰かが光を当てることができますか!!

前もって感謝します。

4

2 に答える 2

0

コマンドの実行を容易にする Perl パッケージもありcleartoolます。

これにより、ファイルではなく配列で結果を直接取得できます（必要に応じて、その配列をファイルにダンプできますが）

@res = ClearCase::CtCmd::exec("find . -version 'lbtype($ARGV[0])' -print");
于 2013-09-11T08:02:57.920 に答える