将数组拆分为变量

Question

将数组拆分为变量

在将数组(array[0]- array[6])wal 的字段拆分为perl中的变量时,我很弱

这是一个大的程序结束-结果得到泵入到一个数组,然后以表格的形式通过电子邮件发送-这被抽出的阵列看起来像静态@mailarray下方.表格在电子邮件中被格式化了,它只是抽出相同的行 - 对于数组的每一行.它需要遍历整个数组7个字段到每一行.

mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2
mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2
mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2
mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2
mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2
mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2

Run Code Online (Sandbox Code Playgroud)

程序的结尾如下所示:

#!/usr/bin/perl

@mailarray = qw(mrktsrvr ltick Chicago tkscan100 tmscn Brooklyn OCOMsg2
mrktsrvr ltick Chicago ctdb811 dltic080 Brooklyn OCOMsg2
mrktsrvr ltick Chicago farm101 bhsrv0 Brooklyn OCOMsg2
mrktsrvr ltick Chicago farm102 bhsrv0 Brooklyn OCOMsg2
mrktsrvr ltick Chicago rnds110 nictsrv1 Brooklyn OCOMsg2
mrktsrvr ltick Chicago relay11 tryticUS1 Brooklyn OCOMsg2);
($header_host, $header_process, $header_host_region, $stat_host, $stat_process, $stat_region, $stat_message_type)=@mailarray;
print $header_host;
print "@mailarray\n";
if (@mailarray){
  #open(MAIL,"| /usr/sbin/sendmail -t") || warn "Can't send email\n";
  print  "to:casper\@mail\n";
  print  "from: $header_host\n";
  print  "Subject: ping_stat for $header_host $yyyymmdd\n";
  print  "Content-type: text/html\n\n";
  print  "&lt;html&gt;&lt;body&gt;&lt;center&gt;&lt;b&gt;ping_stat messaging violations for $header_host $yyyymmdd&lt;/b&gt;\n";
  print  "&lt;table border=1&gt;&lt;tr&gt;&lt;td&gt;Process&lt;/td&gt;&lt;td&gt;Acceptable Regions&lt;/td&gt;&lt;td&gt;Violation of Region&lt;/td&gt;&lt;td&gt;Message Type&lt;/td&gt;&lt;/tr&gt;\n";
  foreach (@mailarray){
        ($header_host, $header_process, $header_host_region, $stat_host, $stat_process, $stat_region, $stat_message_type)=@mailarray;
#split(/\s+/, $_);
        print  "&lt;tr&gt;&lt;td&gt;$header_process" . ":" . "$header_process&lt;/td&gt;&lt;td&gt;$header_host_region&lt;/td&gt;&lt;td&gt;$stat_host" .":". "$stat_process" . "-" . "$stat_region&lt;/td&gt;&lt;td&gt;$stat_message_type&lt;/td&gt;&lt;/tr&gt;\n";
  }
  print  "&lt;/table&gt;\n";
  print  "&lt;br&gt;&lt;br&gt;\n";
  print "&lt;/table&gt;&lt;/center&gt;&lt;/body&gt;&lt;/html&gt;";
  close ;
}

Run Code Online (Sandbox Code Playgroud)

Answer 1

Tud*_*tin 5

如果我理解正确,你的问题是你不知道如何拆分这些字符串 - 这是这样做的:

use strict;
use warnings;
use Data::Dumper;

my $str = <<END
mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2
mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2
mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2
mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2
mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2
mrktsrvr:ltick Chicago tkscan100:tmscn-Brooklyn OCOMsg2
END
;

foreach my $line ( split( /\n/, $str ) ){
    my @array = split( /\W/, $line);
    print Dumper(\@array);
}

Run Code Online (Sandbox Code Playgroud)

归档时间：	14 年，10 月前
查看次数：	3320 次
最近记录：	14 年，10 月前