我有一个perl脚本,用于将修改后的元素复制到某个文件夹。
我使用以下cleartool命令:
cleartool find . -version "{brtype(Branch) && created_since(28-Feb-2014) && (version(...\\Branch\\LATEST))}
然后我使用perl脚本解析结果,将按照上述日期条件修改的文件复制到指定的文件夹:
foreach $file (@files)
{
$file =~ s/@@.*$//g;
if ($file =~ /\.csp$/i) {
if ( -e $file) { die "$file exists" };
chomp($file);
$dname=dirname($file);
$dname=~ s/\///g;
$dname1=substr($dname,1);
$dirname="C:\\AutoDeliver" . "$dname1";
unless(-d $dirname){
mkpath $dirname or die "cannot create dir";
}
copy ("$file",$dirname) or die "File cannot be copied. It may already exist.";
print STDOUT $file;
}
}
除了一个之外,每个流都可以正常工作。该一个流仅用于向和从代码传递代码,并且是直接在集成流下的子代。使用我的脚本,我得到所有修改过的元素,但元素的版本错误。复制的所有元素版本与集成流相同。在我看来,由于子流没有创建任何元素版本,并且版本树眼球总是在查看集成流,导致集成版本被复制。我如何避免这种情况,以便从子流中获取版本。 请帮忙。感谢。