Perl スクリプトを使用して、Clearcase でチェックインされたファイルのコメントを更新したいと考えています。
コマンドラインから渡すコメントにスペースが含まれていない場合、このスクリプトは正常に機能します。
しかし、スペースを含むコメントを使用すると、エラーが発生します -
エラー: パス名が見つかりません: "C:/Views/view1/some_dir/test.c@@/main/dbg_test/1
以下は、スクリプトへのコマンド ライン入力です。
>>./appendcomments.pl dbg_test "\"scr1234, Test Scr\""
これが私のコードです。
if ($#ARGV != 1 )
{
print "usage: addcomments.pl <base branch> <comment>\n";
print " For example addcomments.pl rel5.0 \"This is an example\"\n";
exit;
}
my $base_branch = $ARGV[0];
my $comment = $ARGV[1];
my ($output, @FILE_LIST, $file, $desr);
@FILE_LIST = `cleartool find -avobs -version "version(.../$base_branch/LATEST)" -print`;
FILE: foreach $file (@FILE_LIST)
{
$file =~ s/\\/\//g;
$desr =`cleartool describe -fmt %Nc $file`;
if ($desr !~ /scr\s*\#*\s*(\d+)/img)
{
chomp($file);
$output = `cleartool chevent -c $comment -replace $file`;
}
}