好脑子不如赖笔头之perl递归遍历目录

#!/usr/bin/perl

use strict;
use warnings;

my @tree=<*>;

foreach (@tree){
 &if_a_tree($_);
}

sub if_a_tree{
 if(-d){
  print "$_ is a directory\n";
  chdir $_;
  my @tree=<*>;
  foreach(@tree){
   &if_a_tree($_);
  }
  chdir "..";
 }
 if(-f){
  print "$_ just a file\n";
 }
}

 

 

输入  perl -w digui.pl [directory]

输出   <类似内容>
acl is a directory
clean.sh just a file
ns2 is a directory
named1.conf just a file
named2.conf just a file
named3.conf just a file
named4.conf just a file
setup.sh just a file
tests.sh just a file
cacheclean is a directory
clean.sh just a file
dig.batch just a file
knowngood.dig.out just a file
ns1 is a directory