comparison tools/find_space.pl @ 1150:0acada9a9731

updated misc tools
author thomask
date Thu, 21 Sep 2006 23:57:44 +0000
parents
children
comparison
equal deleted inserted replaced
1149:e5a858c76b5a 1150:0acada9a9731
1 #!/usr/bin/perl
2
3 while (<>) {
4 if ($_ =~ /[ \t]+$/){
5 print "$ARGV\n";
6 }
7 }
8