查找最近30天未修改的文件清单

Question

我需要查找最近30天未修改的文件列表。这意味着在过去30天内，任何分支下都不应有该文件的版本。这是可能的基础明确吗？

Answer 1

尝试首先，从query_language和cleartool find，语法

cleartool find <vobtag> -element "!{created_since(target-data-time)}" -print 

---

如果不工作，你将不得不退却到：

• 列表与所有文件在过去30天内创建的版本
• 列出所有文件并提取不属于第一个列表的文件。

关于所述第一名单（从“How to determine the last time a VOB was modified”），使用cleartool find：

cleartool find <vobtag> -element "{created_since(target-data-time)}" -print 
or 
cleartool find <vobtag> -version "{created_since(target-data-time)}" -print 

该文件还提到了cleartool lshistory -minor -all .，但不可靠，它使用的是可以在任何时候被废弃当地的元数据。

对于第二个清单：

cleartool find . -cview -ele -print 

Answer 2

下面是一个简单的Perl脚本做你问什么。这有一个硬编码的日期字符串，以避免陷入Perl日期算法。它获取VOB中所有元素的列表，然后删除自该列表指定的日期以来修改版本的元素，最后输出未修改的元素。

#!/usr/bin/Perl -w 
my %elem_hash; 
my $datestring="01-jan-2014"; 
my $demarq= "-------------------------------------------------"; 
my $allelemtxt="-- All elements located in the current VOB --"; 
my $ver_hdr ="--  Versions modified since $datestring  --"; 
my $nonmodtext="-- Elements not modified since $datestring --"; 
# 
# Get all elements in the current VOB. 
# 
$cmdout=`cleartool find -all -print`; 
@elemtext=split('\n',$cmdout); 
# 
# Add them to a hashmap, simply because it's easier to delete from this list type 
# 
foreach $elem (@elemtext) 
{ 
    # Quick and dirty way to remove the @@ 
    $elem = substr($elem,0,length($elem)-2); 
    $elem_hash{$elem} = 1; 
} 
# 
printf("\n%s\n%s\n%s\n",$demarq,$allelemtxt,$demarq); 
foreach $elem2 (sort (keys (%elem_hash))) 
{ 
    printf("Element: %s\n",$elem2); 
} 

# 
# Get VERSIONS modified since the specified date string 
# 

$cmdout=`cleartool find -all -version "created_since($datestring)" -print`; 
@vertext=split('\n',$cmdout); 

# 
# strip the trailing version id's and then delete the resulting key from the hashmap. 
# 
printf("\n%s\n%s\n%s\n",$demarq,$ver_hdr,$demarq); 
foreach $version (@vertext) 
{ 
    printf("Version: %s\n",$version); 
    $version=substr($version,0,length($version)-(length($version)- rindex($version,"@@"))); 
    if (exists($elem_hash{$version})) 
    { 
     delete $elem_hash{$version}; 
    } 
} 

printf("\n%s\n%s\n%s\n",$demarq,$nonmodtext,$demarq); 
foreach $elem2 (sort (keys (%elem_hash))) 
{ 
    printf("Element: %s\n",$elem2); 
}