我有一个看起来像这样的数据:创建文件迅速从单个列
-1 1:-0.394668 2:-0.794872 3:-1 4:-0.871341 5:0.9365 6:0.75597
1 1:-0.463641 2:-0.897436 3:-1 4:-0.871341 5:0.44378 6:0.121824
1 1:-0.469432 2:-0.897436 3:-1 4:-0.871341 5:0.32668 6:0.302529
-1 1:-0.241547 2:-0.538462 3:-1 4:-0.871341 5:0.9994 6:0.987166
1 1:-0.757233 2:-0.948718 3:-1 4:-0.871341 5:-0.33904 6:0.915401
1 1:-0.167147 2:-0.589744 3:-1 4:-0.871341 5:0.95078 6:0.991566
第一列是一流的,而接下来的6列功能。我想为个别功能创建6个文件 。例如
my_input_feat1.txt将包含
-1 1:-0.394668
1 1:-0.463641
...
1 1:-0.757233
1 1:-0.167147
my_input_feat2.txt将包含
-1 2:-0.794872
...
1 2:-0.589744
等。我有一个Perl代码,但它的速度非常慢。有没有 更快的方法?通常输入文件将包含100K行。
use strict;
use Data::Dumper;
use Carp;
my $input = $ARGV[0] || "myinput.txt";
my $INFILE_file_name = $input; # input file name
open (INFILE, '<', $INFILE_file_name)
or croak "$0 : failed to open input file $INFILE_file_name : $!\n";
my $out1 = $input."_feat_1.txt";
my $out2 = $input."_feat_2.txt";
my $out3 = $input."_feat_3.txt";
my $out4 = $input."_feat_4.txt";
my $out5 = $input."_feat_5.txt";
my $out6 = $input."_feat_6.txt";
unlink($out1);
unlink($out2);
unlink($out3);
unlink($out4);
unlink($out5);
unlink($out6);
print "$out1\n";
while (<INFILE>) {
chomp;
my @els = split(/\s+/,$_);
my $lbl = $els[0];
my $OUTFILE1_file_name = $out1; # output file name
open (OUTFILE1, '>>', $OUTFILE1_file_name)
or croak "$0 : failed to open output file $OUTFILE1_file_name : $!\n";
print OUTFILE1 "$lbl $els[1]\n";
close (OUTFILE1); # close output file
my $OUTFILE2_file_name = $out2; # output file name
open (OUTFILE2, '>>', $OUTFILE2_file_name)
or croak "$0 : failed to open output file $OUTFILE2_file_name : $!\n";
print OUTFILE2 "$lbl $els[2]\n";
close (OUTFILE2); # close output file
# Etc.. until OUTFILE 6
}
close (INFILE);
谢谢。但我想有一个输入名称的变量。这样我可以根据不同的输入名称动态创建这样的文件。请注意,功能的数量可以大于/小于6. – neversaint 2011-01-11 07:55:53
@neversaint:将上面的文件名抽象出来放到shell变量中,并将其全部放入Bash脚本中应该很容易。只需将data.txt替换为$(FILENAME),并确保在调用awk之前设置FILENAME。 – unwind 2011-01-11 07:58:29