利用perl讀取目錄下的文件列表

v1.0

#讀取當前目錄下的文件名列表
use strict;
opendir TMP, "./" || die "cannot open dir";
open RES, ">./file_list.txt" || die "Cannot open and write";
foreach (readdir TMP){
    if(/.+\.pdf/){
        print RES "$_\n";
    }
}