1

我有 100 个 .dat 文件，如左侧窗格中的文件，我需要导入不带标题的文件，然后对行进行排序。

工作区

ANSWER 手动执行，逐个文件：

data=sortrows(data,2); #sort all columns of data via the 2nd col


fid=fopen('pole_2_TurbI_chamber_05_RSM.xy');
[x ~] = textscan (fid, '%f %f', 'HeaderLines', 4);  # reads file correctly
fclose(fid);

v(:,1)=cell2mat(x(:,1)); # convert from cell to array
v(:,2)=cell2mat(x(:,2));
v=sortrows(v,2);         # sort rows according to column 2

% fig
plot(v(:,1),-v(:,2),'ro');

如何将其扩展到我目录中的所有文件？也许给每个导入的变量文件名......如果可能的话。问候，

4

1 回答 1

1

在 posix 系统上，单个文件可以使用

sort -k 2 /tmp/sortme.txt

输出将被写入标准输出。

如果要对一组文件进行排序，则可以将所有内容包装在 for 循环中：

for i in *.dat
do
    sort -k 2 $i > $i.tmpsort -k 2 
    mv $i.tmp > $i
done

（在此示例中，请确保您没有任何名为 x.dat 和 x.dat.tmp 的原始输入文件对，否则您将破坏 x.dat.tmp）。

这是一个用 Perl 编写的版本，它应该可以移植到您的系统中（无论您正在运行什么......）。该脚本会删除所有不以数字 0-9 开头的行。

#! /usr/bin/perl
use strict;

sub getcol2 {
     $_[0] =~ /\d+\.?\d*\s+(-?\d+\.\d+)/;
     print "$1\n";
     return( $1 ); 
}

for my $file ( @ARGV ) {
    my $INPUT;
    my @data;
    open($INPUT, "<", $file) or die "Cannot open '$file' for input: $!";


    while( <$INPUT> ) {
         #print "$_";
         push @data, $_ if(/^\d/);
    }
    close $INPUT;
    @data = sort { getcol2( $b ) <=> getcol2( $a ) } @data;    

    my $OUTPUT;
    open( $OUTPUT, ">", $file ); 

    for my $line ( @data ) {
        print $OUTPUT $line;
    }
    close( $OUTPUT ); 
}

我称它为“sortdata.pl”，它可以称为

perl sortdata.pl *.dat

它将覆盖数据文件；确保备份原件。

于 2012-03-04T17:25:43.813 回答