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

优质内容筛选与推荐>>
1、2017AI成熟度曲线图
2、记一次诡异的Bug修复——App自启动
3、virtualdomdiff算法实现分析
4、自定义View(二)-动画-代码生成View动画
5、杨税令：究其根本，区块链就是一个规则

赞赏

长按二维码向我转账

受苹果公司新规定影响，微信 iOS 版的赞赏功能被关闭，可通过二维码转账支持公众号。

阅读

已发送

发送中