- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我已将显示的文件作为脚本的输入并创建了一个哈希值。我想将键作为数组,并在匹配后将相应的键值放入该数组中。
我已经创建了哈希,但发现将键创建为数组并将其值创建到相应数组中时出现问题。非常感谢任何帮助。
预期输出如下
@school = (STRING_x, STRING_y, STRING_z,STRING_k)
@University = (STRING_a, STRING_b, STRING_c)s
@College = (STRING_d, STRING_e, STRING_f)
输入文件
begin_
No,59,Type:,School,Authors:,,,,
Local,config
0,0,0,STRING_x,256
1,0,1,STRING_y,256
2,0,2,STRING_z,256
3,0,3,STRING_k,256
end,,,,,
begin_
No,99,Type:,University,Authors:,,,
Local,config
0,0,0,STRING_a,64
0,0,0,STRING_b,64
0,0,0,STRING_c,64
end,,,,,
begin_
No,234,Type:,College,Authors:,,,
Local,config
0,0,0,STRING_d,32
0,0,0,STRING_e,32
0,0,0,STRING_f,32
end,,,,,
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use feature qw(say);
my $csv= "./file.txt";
die "cannot open csv\n" if (!open(CSV, "<$csv" ));
my %storage;
my $compiler;
my $macro;
my @bil = qw(
STRING_a STRING_b STRING_c STRING_d STRING_e
STRING_f STRING_x STRING_y STRING_z STRING_k
);
while (<CSV>){
chomp(my $line =$_);
next if ($line !~ /^No|^\d+/ );
$compiler = $1 if ($line =~ /No,\d+,Type:,(\w+)/);
if ($line =~ /\d+,\d+,\d+,(\w+),/){
$macro=$1;
push @{$storage{$compiler}},$1;
}
}
close CSV;
print Dumper \%storage;
for my $bil(@bil) {
while (my ($k,$v) =each%storage ){
print "Line-----$bil,,,, $v\n";
if ($bil =~$v){
#Need help (I want to store the $v into an array having the name $k)
}
}
}
最佳答案
也许是这样的。它分两个阶段处理文件。
第 1 阶段解析输入数据,提取对我们有用的信息并将其存储在哈希中。哈希的键是数组名称,哈希中的值是包含数组元素的数组引用。
第 2 阶段遍历我们在第 1 阶段构建的内容并将其转换为所需的输出。
#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
# Where we're going to store the useful bits of the
# data during the parsing stage
my %data;
# Where we store the name of the current hash key.
my $key;
# Stage 1: Parsing
while (<>) {
# This looks for the array name record, extracts the
# string from between "Type" and "Authors" and stores that
# string as $key
if (/Type:,(\w+),Authors:/) {
$key = $1;
}
# This looks for "STRING" record, extracts that from the input
# line and pushes that onto the end of the current array reference
if (/(STRING[^,]+)/) {
push @{$data{$key}}, $1;
}
}
# Stage 2: Output
# For each key in the data hash...
for (keys %data) {
# ... extract the data we want and print it
say '@', "$_ = (", join(', ', @{$data{$_}}), ')';
}
更新:好的,让我们更详细地看看最终的循环。
我们有一个名为 %data
的哈希值,其中包含我们从输入文件中解析的信息。键是“School”和“College”之类的内容,值是数组引用。
我们首先循环该哈希的键。我们可以打印这些 key 。
foreach (keys %data) {
say $_;
}
请注意,每次我们进行此循环时,变量 $_
都包含哈希中的键之一。由于哈希值是随机排序的,因此我们每次都会以随机顺序获取这些 key 。
您希望键名称前面带有“@”。这很简单:
foreach (keys %data) {
say '@', $_;
}
将其放入双引号字符串("@$_"
)中可能很诱人,但 Perl 会将“@”解释为数组变量的开头(它不是'那里)。因此,最简单的解决方法是将字符串分成两部分。
然后我们希望字符串包含“=(STUFF)” - 所以让我们添加它。
foreach (keys %data) {
say '@', "$_ = (STUFF)";
}
当然,“STUFF”有点复杂。我们可以从打印哈希值开始:
foreach (keys %data) {
say '@', "$_ = ($data{$_})";
}
但这并没有给我们想要的东西:
@College = (ARRAY(0x55c35f9c8fd0))
@University = (ARRAY(0x55c35f9c8e68))
@School = (ARRAY(0x55c35f9d23e8))
那是因为我们拥有的是一个数组引用。所以我们需要取消引用它。
for (keys %data) {
say '@', "$_ = (@{$data{$_}})";
}
这让我们更接近:
@University = (STRING_a STRING_b STRING_c)
@School = (STRING_x STRING_y STRING_z STRING_k)
@College = (STRING_d STRING_e STRING_f)
但是您要求在列表中的元素之间使用逗号。我们可以使用 join()
来做到这一点,但我们需要拆分输出字符串的各个位 - 因为您无法在字符串内调用函数。如果我们将输出字符串的每个部分放在单独的行上可能会更容易理解:
for (keys %data) {
say '@',
"$_ = (",
join(', ', @{$data{$_}}),
')';
}
我们在这里打印四个部分:
$_
中)以及字符串的下一个固定部分join()
生成的字符串,传递“,”和我们的解引用数组将这些放在一起,得到以下输出:
@College = (STRING_d, STRING_e, STRING_f)
@School = (STRING_x, STRING_y, STRING_z, STRING_k)
@University = (STRING_a, STRING_b, STRING_c)
我忘记提及的一件事是,我删除了对输入文件名进行硬编码并打开文件的代码。从命令行读取数据更简单、更灵活。就是这样
while (<>) {
...
}
是的。它只是从命令行上传递的文件名中读取数据,并将每一行依次放入 $_
中。
我希望这能让事情变得更清楚。
关于arrays - 哈希的键作为数组,匹配后将键值放入数组,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/75577938/
我的问题:非常具体。我正在尝试想出解析以下文本的最简单方法: ^^domain=domain_value^^version=version_value^^account_type=account_ty
好吧,这就是我的困境: 我正在为 Reddit 子版 block 开发常见问题解答机器人。我在 bool 逻辑方面遇到了麻烦,需要一双更有经验的眼睛(这是我在 Python 中的第一次冒险)。现在,该
它首先遍历所有 y 值,然后遍历所有 x 值。我需要 X 和 y 同时改变。 For x = 3 To lr + 1 For y = 2 To lr anyl.Cells(x, 1)
假设我有一个包含 2 列的 Excel 表格:单元格 A1 到 A10 中的日期和 B1 到 B10 中的值。 我想对五月日期的所有值求和。我有3种可能性: {=SUM((MONTH(A1:A10)=
如何转换 Z-score来自 Z-distribution (standard normal distribution, Gaussian distribution)到 p-value ?我还没有找到
我正在重写一些 Javascript 代码以在 Excel VBA 中工作。由于在这个网站上搜索,我已经设法翻译了几乎所有的 Javascript 代码!但是,有些代码我无法准确理解它在做什么。这是一
我遇到过包含日期格式的时间戳日期的情况。然后我想构建一个图表,显示“点击”项目的数量“每天”, //array declaration $array1 = array("Date" => 0); $a
我是scala的新手! 我的问题是,是否有包含成员的案例类 myItem:Option[String] 当我构造类时,我需要将字符串内容包装在: Option("some string") 要么 So
我正在用 PHP 创建一个登录系统。我需要用户使用他或她的用户名或电子邮件或电话号码登录然后使用密码。因为我知道在 Java 中我们会像 email==user^ username == user 这
我在 C++ 项目上使用 sqlite,但是当我在具有文本值的列上使用 WHERE 时出现问题 我创建了一个 sqlite 数据库: CREATE TABLE User( id INTEGER
当构造函数是显式时,它不用于隐式转换。在给定的代码片段中,构造函数被标记为 explicit。那为什么在 foo obj1(10.25); 情况下它可以工作,而在 foo obj2=10.25; 情况
我知道这是一个主观问题,所以如果需要关闭它,我深表歉意,但我觉得它经常出现,让我想知道是否普遍偏爱一种形式而不是另一种形式。 显然,最好的答案是“重构代码,这样你就不需要测试是否存在错误”,但有时没有
这两个 jQuery 选择器有什么区别? 以下是来自 w3schools.com 的定义: [attribute~=value] 选择器选择带有特定属性,其值包含特定字符串。 [attribute*=
为什么我们需要CSS [attribute|=value] Selector根本当 CSS3 [attribute*=value] Selector基本上完成相同的事情,浏览器兼容性几乎相似?是否存在
我正在解决 regx 问题。我已经有一个像这样的 regx [0-9]*([.][0-9]{2})。这是 amont 格式验证。现在,通过此验证,我想包括不应提供 0 金额。比如 10 是有效的,但
我正在研究计算机科学 A 考试的样题,但无法弄清楚为什么以下问题的正确答案是正确的。 考虑以下方法。 public static void mystery(List nums) { for (
好的,我正在编写一个 Perl 程序,它有一个我收集的值的哈希值(完全在一个完全独立的程序中)并提供给这个 Perl 脚本。这个散列是 (string,string) 的散列。 我想通过 3 种方式对
我有一个表数据如下,来自不同的表。仅当第三列具有值“债务”并且第一列(日期)具有最大值时,我才想从第四列中获取最大值。最终值基于 MAX(DATE) 而不是 MAX(PRICE)。所以用简单的语言来说
我有一个奇怪的情况,只有错误状态保存到数据库中。当“状态”应该为 true 时,我的查询仍然执行 false。 我有具有此功能的 Controller public function change_a
我有一个交易表(针对所需列进行了简化): id client_id value 1 1 200 2 2 150 3 1
我是一名优秀的程序员,十分优秀!