Re: [問題] 如何找出所有的leaf directories?

[cutecpu (可愛中央處理器)]

#!/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