查找最近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); 
}