转载 perl读取文件夹下的文件

#!usr/bin/perl-w usestrict; my$file_name;#文件名 my$num_1; my$num_2; my$num_3; my$num_4; my@result=qw//; my$sum=0; my$print_line;#写文件名以及数据处...