« Recursivly print directories in Perl...with no modules | Main | A filesystem recurser in Python too »
September 18, 2006
A shorter filesystem recurser in Perl
Shortened it up a bit...
#!/usr/bin/perl use strict; use warnings;printdir( $ARGV[0] );
sub printdir
{
my $dir = $_[0] ? $_[0] : '.';
my $handle = ();
print "Directory: $dir\n";
opendir( $handle, $dir );
my @items = sort( readdir( $handle ) );
closedir( $handle );
map
{
-d "$dir/$_"
? printdir( "$dir/$_" )
: print "$dir/$_\n"
} @items[2 .. $#items];
}
And people call Perl just a bunch of line noise?! Bah, sissies! :-P
Posted by Casey at September 18, 2006 10:59 PM