[root@yun1 test]# cat a1.pl
my $h={'192.168.11.187'=>['root','1234567'],
'192.168.5.7' =>['root','cdsxxxkfdsfsdf'],
'192.168.5.3'=>['root','dxxxxxfa']};
foreach $key (keys %{$h}) {
print "\$key is $key\n";
print $h->{$key}->[0];
print "\n";
print $h->{$key}->[1];
print "\n";
print "------------------\n";
};
[root@yun1 test]# perl a1.pl
$key is 192.168.5.7
root
cdscccc
------------------
$key is 192.168.11.187
root
1234567
------------------
$key is 192.168.5.3
root
tttt
------------------
perl 监控数据库用到的数据结构
最新推荐文章于 2023-10-11 10:07:11 发布
这篇博客展示了如何在Perl中使用哈希数据结构来存储和遍历数据库服务器的IP地址、用户名和密码。通过一个简单的Perl脚本`a1.pl`,演示了如何访问和打印出哈希中每个键值对的内容,包括IP、对应的用户名和密码。
摘要由CSDN通过智能技术生成