代码之家 › 专栏 › 技术社区 › Vijay

Perl中的这个语句有什么问题?

unix perl

Vijay · 技术社区 · 16 年前

print "$_", join(',',sort keys %$h),"\n";

它给了我一个错误:

Use of uninitialized value in string at missing_months.pl line 36.
1,10,11,12

foreach my $num ( sort keys %hash )
{
        my $h = $hash{$num};
        print "$_", join(',',sort keys %$h),"\n";
}

1 回复 | 直到 16 年前

Zaid 16 年前

不需要 "$_" . 这条线应该是:

print join (',' , sort {$a <=> $b} keys %$h),"\n";

而 $_ for 和 foreach 循环(请参见 perlvar ),您已经将迭代器变量赋值为 $num

下面是如何使用 $_ 在一行中正确地:

print join(',', sort { $a <=> $b } keys %{$hash{$_}}),"\n" foreach keys %hash;

sort '10' 被视为先于 '2' . 你好像在应付几个月的事情(也许?),这就是我使用数值比较块的原因 { $a <=> $b } .

推荐文章

James Finnegan · DateTime对象只能与另一个DateTime对象进行比较

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Mario Palumbo · 是否有bash-perl快捷方式来计算每行中的匹配数?

1 年前

Rawley Fowler · 我可以在Perl中为警告生成堆栈跟踪吗?

1 年前

A.Ellett · 测试-t STDIN与-t<STDIN>

1 年前

nick · 向后交换文件名

1 年前

Sangyong Gwak · 如何更改Perl Kelp应用程序的app_url

1 年前

con · 如何跳转到foreach迭代的特定点?

1 年前

A.G.Progm.Enthusiast · 如何使用Perl中的拼接从数组中一次性删除随机元素?

1 年前