48 lines
776 B
Perl
Executable File
48 lines
776 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# slow implementation of recursive dir listing
|
|
#
|
|
|
|
use strict;
|
|
use warnings "all";
|
|
|
|
sub getfilenames;
|
|
sub help;
|
|
|
|
help unless defined($ARGV[0]);
|
|
|
|
my @files = ();
|
|
getfilenames($ARGV[0]);
|
|
my $file = "";
|
|
|
|
while($file = pop (@files)){
|
|
print "$file\n";
|
|
}
|
|
|
|
exit 0;
|
|
|
|
sub getfilenames {
|
|
my $path = shift;
|
|
|
|
opendir (DIR, $path) or return "";
|
|
my @localfiles;
|
|
@localfiles =
|
|
map { $path . '/' . $_ }
|
|
grep { !/^\.{1,2}$/ }
|
|
readdir (DIR);
|
|
@files = (@files, @localfiles);
|
|
|
|
foreach (@localfiles) {
|
|
next if(-l $_);
|
|
if( -d $_){
|
|
getfilenames($_);
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
sub help {
|
|
print "Usage: $0 dir\n";
|
|
exit 0;
|
|
}
|