帮忙看下，为什么文件末尾显示是？

cabnine

10000_15_0.fa?   10000_15_9.fa?   10000_17_7.fa?   10000_19_5.fa?   10000_21_40.fa?  10000_23_30.fa?  10000_25_1.fa?   10000_27_0.fa?   10000_27_7.fa?   10000_29_4.fa?   10000_31_3.fa?
10000_15_10.fa?  10000_17_0.fa?   10000_17_9.fa?   10000_19_7.fa?   10000_21_4.fa?   10000_23_3.fa?   10000_25_20.fa?  10000_27_10.fa?  10000_27_9.fa?   10000_29_5.fa?   10000_31_40.fa?
10000_15_1.fa?   10000_17_10.fa?  10000_19_0.fa?   10000_19_9.fa?   10000_21_5.fa?   10000_23_40.fa?  10000_25_2.fa?   10000_27_1.fa?   10000_29_0.fa?   10000_29_7.fa?   10000_31_4.fa?
10000_15_20.fa?  10000_17_1.fa?   10000_19_10.fa?  10000_21_0.fa?   10000_21_7.fa?   10000_23_4.fa?   10000_25_30.fa?  10000_27_20.fa?  10000_29_10.fa?  10000_29_9.fa?   10000_31_5.fa?
10000_15_30.fa?  10000_17_20.fa?  10000_19_1.fa?   10000_21_10.fa?  10000_21_9.fa?   10000_23_4.txt   10000_25_3.fa?   10000_27_2.fa?   10000_29_1.fa?   10000_31_0.fa?   10000_31_7.fa?

写的perl脚本识别不了文件，
foreach $file(readdir DH) {
next unless($file=~/\_/);
open (IN,"$ARGV[0]/$file") or die("Could not open input file");

这是什么原因呢？谢谢

cabnine

回复 2# 一路征程一路笑


    要读取每一个文件，但识别不了文件