Example of hash in Perl

最新推荐文章于 2026-07-06 16:24:15 发布

原创最新推荐文章于 2026-07-06 16:24:15 发布 · 635 阅读

0 ·

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

收录于

Perl

当前文章被收录于：

Perl

20 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文展示了一个使用Perl语言操作哈希（关联数组）的基本示例，包括定义、计数元素数量、遍历以及通过键获取值的过程。

#!/usr/bin/perl -w
use strict;
use warnings;

my %name=("fred"=>"flintstone",
"barney"=>"rubble",
 "wilma"=>"flintstone",
 );
my $length=keys %name;# Count the number of hash
print "$length\n";
while(my($k,$v)=each%name)# List all the elements of hash
{
	print "$k---->$v\n";
}
my $given_name=<STDIN>;# The Usage of <STDIN>
chomp $given_name;# Delete the "\n"
print "$name{$given_name}\n";

output:

3
barney---->rubble
wilma---->flintstone
fred---->flintstone
fred
flintstone

标签

#Perl