我想将名称存储在哈希或数组中,其格式应为
(e.g apple<->banana , orange<->papaya).
现在我有了一半的信息,例如apple or papaya
需要查看该哈希表并获取完整的组合apple<->banana
并将其存储在变量中... :)
希望我的问题很清楚,实际上我读了一些哈希文档,并且提到的每个地方都使用全名搜索...,所以我需要使用半名或第一个单词进行搜索。
假设您的输入文件是这样的:
apple<->banana
orange<->papaya
这是完成这项工作的一种方法:
#!/usr/bin/perl
use strict;
use warnings;
my %corresp;
while(<DATA>) {
chomp;
my ($k, $v) = split/<->/,$_;
$corresp{$k} = $v;
}
my %reverse = reverse %corresp;
my $search = 'apple';
if (exists$corresp{$search}) {
say "$search = $corresp{$search}";
} elsif(exists$reverse{$search}) {
say "$search = $reverse{$search}";
} else {
say 'No match!';
}
__DATA__
apple<->banana
orange<->papaya
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句