2
我需要使用perl对散列键进行排序,我还需要允许key中的重复。所以我打算检查exists
方法perl
如果它存在然后我增加最后一位数然后我将存储到哈希。 我尝试下面的代码:使用perl进行散列键排序?
use strict;
use warnings;
use iPerl::Basic qw(_save_file _open_file);
my $xml = $ARGV[0];
my ($xmlcnt,$backcnt,$refcnt,$name,$year) = "";
my %sort =();
if(($#ARGV != 0) or(not -f "$xml") or($xml!~ m{\.xml$}i)){
print_exit("\t\tSYSTAX ERROR: <EXE> <xml File>\n\n")
};
$xmlcnt=_open_file($xml);
$xmlcnt =~ s{<back(?: [^>]+)?>(?:(?!</?back[ >]).)*</back>}{
$backcnt = $&;
while($backcnt =~ m{<ref(?: [^>]+)?>(?:(?!<ref[ >]).)*</ref>}igs){
$refcnt = $&;
$name = $1 if($refcnt =~ m{<person-group(?: [^>]+)?>((?:(?!</?person-group[ >]).)*)</person-group>}is);
$year = $1 if($refcnt =~ m{<year>((?:(?!</?year[ >]).)*)</year>}is);
$name =~ s{</?(?:string-name|surname|given-names)>}{}ig;
my $count = 1;
my $keys="$name $year\E$count";
if(exists ($sort{$keys})){
$keys =~ s{(\d)$}{my $icr=$1;$icr++;qq($icr)}e;
#print"$keys\n";
$sort{$keys}="$refcnt";
}
else
{
$sort{$keys}="$refcnt";
}
print join("\n",keys %sort);
}
qq($backcnt)
}igse;
my @keys = sort {
$sort{$a} <=> $sort{$b}
# or
# "\L$a" cmp "\L$b"
} keys %sort;
# print join("\n",@keys);
sub print_exit {
my $msg = shift;
#print "\n$msg";
exit;
}
请谁能告诉我出了什么错在这里?
输入:
thieooieroh
apple
apple
highefhfe
bufghifeh
输出:
apple
apple
bufghifeh
highefhfe
thieooieroh
预先感谢。
哎唷!我的眼睛!替换命令替换部分中的25行块可执行代码残酷地可怕!我甚至不想看它;真是太可怕了。如果您必须执行代码,请将其放入函数中,并使用substitute命令调用该函数。 –
这里他们使用替代,希望在散列键中存储文本。问题是如果文本已经存在于文本末尾,则为重复值添加整数,然后最后对键进行排序。 – depsai
请勿使用正则表达式来分析xml。永远。看看'死亡'。这是你的'print_exit'的正确替代。出于性能原因,你应该避免'$&'(你可以,如果你引入一个匹配组并使用'$ 1')。简单的散列可能是错误的数据结构。你可以使用数组的散列。 –