主页 / coding / 问题 / 78799124
Accepted
Zilore Mumba
Asked: 2024-07-27 00:33:46 +0800 CST

如何在 Perl 中删除符合特定条件的列？

  • 772

我有下表

head  v1  v2  v3  v4  v5  v6
stn2   1   4   1   1   4   2
stn2   1   4   1   1   4   2
stn3   1   4   1   1   4   2
stn4   1   4   1   1   4   3
stn4   1   4   1   1   4   2
stn5   1   4   1   1   4   4
stn6   1   3   1   1   4   3
stn7   4   4   1   1   4   4
stn8   4   4   1   1   4   3
stn9   2   4   1   1   4   3

我想删除所有仅包含 1 的列。我已将六列放入数组中，代码如下：

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use feature 'say';

open(my $RSKF, " < ../risks.txt") || die "open risks.txt: failed $! ($^E)";
my $line;
my $count;

my @one_column;
my @two_column;
my @three_column;
my @four_column;
my @five_column;
my @six_column;

my $one_column;
my $two_column;
my $three_column;
my $four_column;
my $five_column;
my $six_column;

my @remove;
my @keep1;
my $keepcount=0;

while($line = <$RSKF>){
push(@one_column, (split(/\s+/, $line))[2]);
push(@two_column, (split(/\s+/, $line))[3]);
push(@three_column, (split(/\s+/, $line))[4]);
push(@four_column, (split(/\s+/, $line))[5]);
push(@five_column, (split(/\s+/, $line))[6]);
push(@six_column, (split(/\s+/, $line))[7]);
 }

我尝试循环下面的第四列，但没有成功。

$count=0;
for (my $i=1; $i < @four_column; ++$i){
if($four_column[$i] ge '2'){
$count++;
}
if($count > 0){
@four_column=@keep1;
$keepcount++;
}
else{
@four_column=@remove;
}

}

肯定有更简单的方法可以做到这一点。请帮忙。

perl

1 个回答

  1. Best Answer

    要输出已过滤的表格：

    perl -lae '
    push @rows, [@F];
    next if $.==1;

    for (keys @F) {
        $wanted[$_] = 1 if $F[$_]!=1;
    }

    END {
        @cols = grep {$wanted[$_]} keys @F;
        for (@rows) {
            print join "\t", @$_[@cols]; 
        }
    }
' original.txt >new.txt
    • 自动将每行拆分为列并存储
    • 如果某列的值 != 1 那么就是需要的（不检查第一行）
    • 处理完所有行后，打印每行所需的列
    • 3

相关问题