mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
8 lines
117 B
8 lines
117 B
use File::Find;
|
|
use strict;
|
|
|
|
find( \&printer, @ARGV );
|
|
|
|
sub printer {
|
|
printf("%s %d\n", $File::Find::name, -s);
|
|
}
|