在 perl 中访问/修改数组

Question

当我们将一个元素推送到数组时，有什么方法可以将其推送到特定的列。

我正在尝试做这样的事情。

push (@array, $val ); .......$val should always go to first column.
push (@array, $val2); .......$val2 should go to second column
push (@array, $val3);........$val3 should go to third 

我尝试给出 \t 但没有得到正确的结果。

elsif ($line =~/RELATION/){
push (@mystuff, "$line" .",");
$line = &getline;
}

我的示例 txt 文件如下所示

SEVERITY Warning
NODE OTHER "awssystem"
APPLICATION "AWS"
MSGGRP "OpC"
OBJECT "Audit"
MSGKEY "<$MSG_NODE>:hello"
ACK  "<$MSG_NODE>:hello"
TEXT "Test one two three"
AUTOACTION "echo \"It has to ack after AA\" > /tmp/banack" ACTIONNODE IP 0.0.0.0  "<$OPC_MGMTSV>" ANNOTATE ACK
                      OPACTION "echo `hostname`" ANNOTATE
                      TROUBLETICKET
                      HELPTEXT "Hello what is this"

SEVERITY Warning
NODE OTHER "awssystem"
MSGGRP "OpC"
OBJECT "Audit"
MSGKEY "<$MSG_NODE>:hello"
MSGKEYRELATION ACK  "<$MSG_NODE>:hello"

我的文本文件中有许多类似的条目。我试图仅捕获严重性、应用程序、msggrp 和对象，在上面的输出应用程序中缺少应用程序，因此如果找不到应用程序，我只需要添加一个空白。

我的代码如下所示：

while ($#myarr > 0 )
-------
---
elsif ($line =~/SEVERITY/){
push (@mystuff, "$line" .",");
$line = &getline;
}

我希望我的输出 shld 看起来像这样

SEVERITY Warning APPLICATION "AWS" MSGGRP "OpC"
SEVERITY Warning                   MSGGRP "OpC"

但我的输出看起来像这样

SEVERITY Warning APPLICATION "AWS" MSGGRP "OpC"
SEVERITY Warning MSGGRP "OpC"

Answer 1

怎么样：

#!/usr/bin/perl
use strict;
use warnings;

my %res;
my @res;
while(<DATA>) {
    chomp;
    if (/(SEVERITY)/) {
        push @res,{%res} if $.>1;
        %res = map{$_ => ''}qw/APPLICATION MSGGRP/;
        $res{$1} = $_;
    } elsif (/(APPLICATION|MSGGRP)/) {
        $res{$1} = $_;
    }
}
push @res,{%res};

foreach my $res(@res) {
format STDOUT = 
@<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<
$res->{SEVERITY}, $res->{APPLICATION}, $res->{MSGGRP}
.
write;
}

__DATA__
SEVERITY Warning
NODE OTHER "awssystem"
APPLICATION "AWS"
MSGGRP "OpC"
OBJECT "Audit"
MSGKEY "<$MSG_NODE>:hello"
ACK  "<$MSG_NODE>:hello"
TEXT "Test one two three"
AUTOACTION "echo \"It has to ack after AA\" > /tmp/banack" ACTIONNODE IP 0.0.0.0  "<$OPC_MGMTSV>" ANNOTATE ACK
                      OPACTION "echo `hostname`" ANNOTATE
                      TROUBLETICKET
                      HELPTEXT "Hello what is this"

SEVERITY Warning
NODE OTHER "awssystem"
MSGGRP "OpC"
OBJECT "Audit"
MSGKEY "<$MSG_NODE>:hello"
MSGKEYRELATION ACK  "<$MSG_NODE>:hello"

输出：

SEVERITY Warning      APPLICATION "AWS"     MSGGRP "OpC"
SEVERITY Warning                            MSGGRP "OpC"

Answer 2

“推送到列”是什么意思？

您可以将值存储在数组中的某个位置，

$array[0] = $val ;  # $val is 1. element
$array[1] = $val2 ; # $val2 is 2. element
$array[2] = $val3 ; # ...

相同。

push @array , $val , $val2 , $val3 ;

这与之前假设 @array 为空

Answer 3

IIUC：

push(@array, $val, $val2, $val3)