view tools/find_space.pl @ 1560:36bedfa079e6

D1 -> D2 : 2/N
author thomask
date Sun, 19 Aug 2007 19:15:01 +0000
parents 0acada9a9731
children
line wrap: on
line source

#!/usr/bin/perl

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