view tools/find_space.pl @ 1606:ebff718ff18b

Fix tests from #3. Thanks Don!
author Christian Kamm <kamm incasoftware de>
date Mon, 13 Apr 2009 13:47:03 +0200
parents 0acada9a9731
children
line wrap: on
line source

#!/usr/bin/perl

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