Select Code to Download

svn log -vv -r 21224 | perl -nle 'm|Eclipse/(.*)| and print$1'> /tmp/f
+ilesChanged.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 81e2470da0cc593e114
+6556d0fe0ebed
     41 base/classes/com/mycomp/dtd/smeta.dtd smeta.dtd e287f8786ecf79
+06f3019d3cc9accff7

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/