- 论坛徽章:
- 0
|
1、hash中keys,value应用
- #!/usr/bin/perl -w
-
use strict;
-
-
my %hash = (
-
'add' => "guanghzou",
-
'tel' => "18602725010",
-
'job' => "Linux Administrator",
-
'name'=> "zhangtao",
-
'age' => "24",
-
'merry' => "no"
-
);
-
-
for (keys %hash) {
-
print "current key is $_, value $hash{$_}\n";
-
}
-
-
#使用map函数,打印时,格式美观
-
print map { "current value : $_\n" } values %hash;
2、合并两个数组为一个hash
- #!/usr/bin/perl -w
-
use strict;
-
-
my %hash;
-
my @ele1 = ('hostname','ip','os','https');
-
my @ele2 = ('puppet.ctrl.cn','192.168.2.1','CentOS 5.5 x86_64','support');
-
-
@hash{ @ele1 } = @ele2; #注意这里hash以‘@’开头,第一个数据的元素为hash的key,第二个数组元素为value
-
print " $_ $hash{$_}\n" for sort keys %hash;
-
print map { "current key $_\n" } keys %hash;
3、将hash赋值给数组
- #将hash赋值给数组,新的数组以key,value,...形式组成
-
my @keys = sort keys %hash;
-
my @values = sort values %hash;
-
print map { "$_\n" } @keys;
-
print map { "$_\n" } @values;
-
-
my @all = %hash;
-
print map { "$_\n" } @all;
|
|