作者cutecpu (可爱中央处理器)
看板Perl
标题Re: [问题] 如何找出所有的leaf directories?
时间Fri Jun 12 18:33:12 2009
#!/usr/bin/perl -w
&dfs('/home/user');
sub dfs{
my $dic = shift;
my $leaf = 1;
for(<$dic/*>){
$leaf = &dfs($_) if(-d $_);
}
print "$dic\n" if($leaf);
0;
}
※ 引述《jawdc1129 (everest)》之铭言：
: 请问一下, 要如何找寻一个系统下的所有leaf directories?
: 比如说在 unix /home/user 下找出所有 leaf directories 的名字并把它列印出来
: 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.248.4.112