※ 引述《CindyLinz (Cindy Wang)》之铭言：
: ※ 引述《liuintel (康康)》之铭言：
: : 我想要搜寻当下目录的所有档案内容
: : 有符合我的条件的 就把档名print到一个
: : 新的output file
: : 请问该如何下手
: : 问题有点多 先谢谢大大
: 你可以找一个叫 glob 的东西, 大概长 <.....> 这个样子;
: 或是你可以手动用 opendir / readdir / closedir.
: glob 比较方便, 但可能会多做一些你不需要的动作而浪费效能,
: 后面那个写起来比较繁琐~
open FD, ">", "outputfile";
for my $file (`ls`) {
print FD $file if $file =~ /foo/;
}
close FD;
有 ls 的话我想直接用这样是很快的
glob 的用法有两种
for my $file (<*.pl>) {
}
for my $file (glob "*.pl") {
}
这两种是等价的，意思就是找所有 .pl 的档案
不过第一种写法是比较老式的，而且容易和 <> (从某 FH 读入资料) 混淆
所以不建议使用，用第二种比较好