perl $hash{key} = "value"; 打印出key
时间: 2023-11-12 12:04:18 浏览: 30
要打印出 `key` 这个键,可以使用 `$hash{key}` 来获取对应的值,然后再使用 `keys` 函数获取哈希表中所有的键,如下所示:
```
my %hash = ("key" => "value");
$hash{key} = "value";
print join(", ", keys %hash);
```
输出结果为:
```
key
```
相关问题
perl 把hash中的值打印出来
可以使用 Perl 中的 foreach 循环来遍历 hash,然后使用 print 函数打印出值。示例代码如下:
```
my %hash = (key1 => 'value1', key2 => 'value2', key3 => 'value3');
foreach my $key (keys %hash) {
print "$hash{$key}\n";
}
```
以上代码会依次打印出 hash 中每个键对应的值。输出结果如下:
```
value2
value3
value1
```
perl脚本 sub print_cfg { my ($Hash) = @_; %temp_hash = %{$db{global_configuration}}; print "\n# -----------------------------------------------------------------------------\n"; print " Printing Configuration Variables\n"; print "# -----------------------------------------------------------------------------\n\n"; foreach $key (keys %temp_hash){ $value = &configuration::geto($Hash,$key); print "$key => $value\n"; } print "\n# -----------------------------------------------------------------------------\n\n"; exit(1); }
这段 Perl 脚本定义了一个名为 `print_cfg` 的子例程,它接受一个哈希表 `$Hash` 作为输入参数。该子例程首先将哈希表 `%temp_hash` 设置为全局配置 `$db{global_configuration}` 的副本,然后打印一些注释信息。接下来,它遍历 `%temp_hash` 中的每个键值对,调用 `configuration::geto($Hash,$key)` 函数获取 `$Hash` 中对应键 `$key` 的值,并将键值对打印出来。最后,它再次打印一些注释信息并退出程序。