Question

如何用Perl语言提取DAT文件夹下的制定列 ，并导出来

如0.DAT文件里面第一列数据。

Answer 1

#!/usr/bin/perl
open IN,"0.DAT";
@a=<IN>;
print $a[0];

追问

我有一个总文件夹A ,然后这个文件夹下有1、2、3、4等多个子文件，每个子文件里又有很多个后缀为.DAT的，想提取每个.DAT里面数据的第一列。

追答

#!/usr/bin/perl
use File::Find;
$path="c:/A";
sub wanted{
if($_ =~ /DAT/){
push (@array,$_);
}
}
find(\&wanted,$path);

foreach $line(@array){
chomp $line;
open IN,"$line";
@a=;
foreach $a_line(@a){
chomp $a_line;
@b = split /,/,$a_line;
print "$b[0]\n";
}
}