perl 初始化Hash

最新推荐文章于 2026-04-19 07:47:51 发布

转载最新推荐文章于 2026-04-19 07:47:51 发布 · 597 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

原文链接：http://www.cnblogs.com/zhaoyangjian724/p/6198976.html

收录于

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';

转载于:https://www.cnblogs.com/zhaoyangjian724/p/6198976.html