view tools/find_space.pl @ 1150:0acada9a9731

updated misc tools
author thomask
date Thu, 21 Sep 2006 23:57:44 +0000
parents
children
line wrap: on
line source

#!/usr/bin/perl

while (<>) {
	if ($_ =~ /[ \t]+$/){
		print "$ARGV\n";
	}
}