svn log -vv -r 21224 | perl -nle 'm|Eclipse/(.*)| and print$1'> /tmp/filesChanged.txt #### find * -name '*.dtd' | xargs md5sum > /tmp/dtdmd5s.txt perl -ple 's{([^*]*) [*](.*/)([^/]*)$}{$2$3 $3 $1}' /tmp/dtdmd5s.txt | \ sort -k2 | uniq -c -f 1 | \ perl -nle '@a=split;if($a eq $a[2]){print $b;print}$b=$_;$a=$a[2]' #### 1 clients/megacorp/cmeta/smeta.dtd smeta.dtd 81e2470da0cc593e1146556d0fe0ebed 41 base/classes/com/mycomp/dtd/smeta.dtd smeta.dtd e287f8786ecf7906f3019d3cc9accff7 #### @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/; map{y/X_/\n /;print}map{pop@$_}@/for@/