perl 怎麼達到 ls 功能 (續)

續: http://ssorc.tw/?p=1010

用 opendir 的方式

opendir open_dir , “/path”;

# 打開 /path裡面的東西，去除 是 . 開頭的，及名稱是有包含 other的

my @dirs = grep !/^.|other/,readdir open_dir;

foreach my $dir (@dirs) {

chomp($dir);

print ”
$dir”;

}

相較之下 while比較簡化  !?