perl – 如何对哈希的所有键进行特定更改?

前端之家收集整理的这篇文章主要介绍了perl – 如何对哈希的所有键进行特定更改?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有一个像这样的哈希:

'IRQ_VSAFE_LPM_ASC_0' => '140','IRQ_VSAFE_LPM_ASC_1' => '141'.......and so on

我想在散列中的所有键中用ASC_1替换ASC_.我试过这个:

foreach $_(keys $hash)   
{ 
s/ASC_/ASC_1/g; 
}

但它不起作用.

解决方法

您必须从哈希中删除旧密钥并插入新密钥,

use strict;
use warnings;

sub rename_keys {

  my ($hash,$func) = @_;

  my @k1 = my @k2 = keys %$hash;
  $func->() for @k2;
  @$hash{@k2} = delete @$hash{@k1};
}

my %hash = (
 'IRQ_VSAFE_LPM_ASC_0' => '140','IRQ_VSAFE_LPM_ASC_1' => '141',);
rename_keys(\%hash,sub { s/ASC_/ASC_1/ });

猜你在找的Perl相关文章