view tools/find_space.pl @ 1601:90bc51a580b7

pragma(lib, ...) is only allowed in declarations as of 1.037.
author Christian Kamm <kamm incasoftware de>
date Sun, 04 Jan 2009 22:42:52 +0100
parents 0acada9a9731
children
line wrap: on
line source

#!/usr/bin/perl

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