Example of hash in Perl

最新推荐文章于 2024-07-13 14:09:23 发布

_Black铁木真

最新推荐文章于 2024-07-13 14:09:23 发布

阅读量591

点赞数

分类专栏： Perl 文章标签： Perl

本文链接：https://blog.csdn.net/blackmanren/article/details/11763397

版权

Perl 专栏收录该内容

20 篇文章 0 订阅

订阅专栏

#!/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