perl 初始化Hash

scan724

于 2016-11-19 17:31:39 发布

阅读量4.3k

点赞数

分类专栏： perl 数据结构

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/53232313

版权

perl 数据结构专栏收录该内容

19 篇文章 ¥39.90 ¥99.00

订阅专栏

本文通过一个简单的Perl脚本实例，展示了如何初始化并操作一个Hash数据结构。使用for循环将数组@arr的元素作为键，每个键值连接33作为对应的值，最后输出Hash内容及其使用Data::Dumper模块的详细打印结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Vsftp:/root/perl/6# cat a5.pl 
use Data::Dumper;
my @arr=qw/a bc d /; 
my %rec=();
 for $field (@arr){
     $rec{$field} = $field.33;
     }
  print  %rec;
  print "\n";
  print Dumper(%rec);
  print "\n";
Vsftp:/root/perl/6# perl a5.pl 
aa33dd33bcbc33
$VAR1 = 'a';
$VAR2 = 'a33';
$VAR3 = 'd';
$VAR4 = 'd33';
$VAR5 = 'bc';
$VAR6 = 'bc33';