Subversion Repositories wimsdev

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
8169 bpr 1 
#!/usr/bin/perl
2 
 
3 
use File::Find;
4 
my ($mdir) = @ARGV;
5 
my (@FILES) = ();
6 
sub wanted {
7 
   if (-f && ! -x) { push(@FILES, $File::Find::name); }
8 
}
9 
find(\&wanted, $mdir);
10 
for (sort @FILES) { s!^$mdir/!!; print "$_\n"; }