ディレクトリ内のファイルのリストを読み取るためにPerlを使用します

v1.0を

＃は、ファイル名の現在のディレクトリリストを読んで
使用厳しく;
 opendir関数 TMP、「./ 」 || ダイ 「DIR開くことができません」;
 オープン RES、「> ./ file_list.txt 」 || ダイ 「のオープンと書くことができないの」。
 foreachの（のreaddir TMP）{
     IF（/.+\.pdf/ ）{
         印刷 RESを" $ _ \ N- " ; 
    } 
}