主页 / user-2856552

Zilore Mumba's questions

Martin Hope
Zilore Mumba
Asked: 2025-02-13 02:32:32 +0800 CST
  • 5

我可以Text::Table:Boxed按照此处给出的示例输出用模块生成的表格，第一行如下：

binmode STDOUT, ":utf8";

use Text::Table::Boxed;
open(my $tfh, "> /home/zmumba/Output/Rtable.txt") or die "open 'Rtable.txt': failed $! ($^E)";
my $tb = Text::Table::Boxed->new({
... table contens ...
})

print $tfh $tb
close($tfh)

Text::Table::More如此处所述，并未明确提供将输出定向到文件的可能性。前几行

#!perl
use 5.010001;
use strict;
use warnings;
use Text::Table::More qw/generate_table/;

my $rows = [
...Table content ...
];

binmode STDOUT, "utf8";
print generate_table(
.. attributes ...
);

我能够生成表格并将其显示在屏幕上。但我不知道如何将该表格导出到文件中。

perl
Martin Hope
Zilore Mumba
Asked: 2025-02-11 03:04:33 +0800 CST
  • 6

我拥有的数据包括地点名称和 4 个天气参数的风险等级（从 1 到 4），这 4 个参数分别是 1)24 小时降雨量、2) 5 天总降雨量、3) 最低温度和 4) 最高温度。一天中，所有四个参数的风险等级只能为 1（无风险），在这种情况下无需处理。或者可以处理 1、2，最多 4 个。

我能够确定是否不需要处理（即所有地方的风险级别为 1）。

下面给出了一个数据样本__DATA__。

我能够确定有多少天气因素的风险级别高于 1（从文件头），因此能够@Riskarray根据该头创建一个数组。

我想做的是将每一行拆分，并为每个天气元素写入单独的文件，两列（位置和风险值）。这类似于如何在第一次出现数字时拆分字符串，对此我得到了非常有帮助的帮助。

在下面的代码片段中，我不知道while语句之后该如何进行。

#!/usr/bin/perl -w

use strict;
use warnings;

my @RiskArray=("H1dR", "H5dR", "Tmin", "Tmax");
my $arraynum=scalar @RiskArray;

my $hdr=<DATA>;
for my $i (0..$#RiskArray){
 while (my $line = <DATA>){

 }
}

__DATA__
Risk    H1dR  H5dR  Tmin  Tmax
Maputsoe, 2, 1, 3,  2
Butha-Buthe (Butha-Buthe District), 4, 3, 2, 1
Mohale's Hoek, 2, 2, 3, 4
Qacha's Nek, 2, 3, 1,  2

示例输出将为四个文件，例如文件“H1dRrv.txt”将包含

Maputsoe, 2
Butha-Buthe (Butha-Buthe District), 4
Mohale's Hoek, 2
Qacha's Nek, 2

和H5dRrv.txt

Maputsoe, 1
Butha-Buthe (Butha-Buthe District), 3
Mohale's Hoek, 2
Qacha's Nek, 3
perl
Martin Hope
Zilore Mumba
Asked: 2025-02-10 07:38:59 +0800 CST
  • 6

我有由一个名称和两个数字组成的字符串。我想将名称和数字提取到一个变量中。我遇到的问题是某些名称中有空格。当我在 /\s+/ 上拆分时，名称被拆分成两个。

my (${st_name}, $val1, $val2) = split(/\s+/, $line, 3);

我尝试过在 /\d+/ 上进行拆分，但没有得到数字。我尝试过获取第一个数字的索引，但不确定是否真的

my $index = index ($line, \d);

我将非常感谢您的帮助。代码已试过

use strict;
use warnings;

while (my $line = <DATA>){
my (${st_name}, $val1, $val2) = split(/\s+/, $line, 3);   #doesn't work

my $index = index ($line, \d);
${st_name}=$line(0, $index);
my ($val1, $val2) = $line($index)


__DATA__
Maputsoe 2       1
Butha-Buthe (Butha-Buthe District) 2       1
perl
Martin Hope
Zilore Mumba
Asked: 2024-07-27 00:33:46 +0800 CST
  • 5

我有下表

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