perl 哈希作为参数实例

最新推荐文章于 2023-04-04 16:29:40 发布

转载最新推荐文章于 2023-04-04 16:29:40 发布 · 2.6k 阅读

语言基础专栏收录该内容

251 篇文章

订阅专栏

本文详细解析了Perl编程中哈希结构的使用方式，包括如何通过子例程修改哈希结构的元素，以及如何通过引用传递哈希结构。并通过实例展示了在Perl编程中哈希结构的应用，帮助开发者更深入地理解Perl的哈希操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

http://blog.sina.com.cn/s/blog_6436b8ec0100pu6a.html

#!/use/bin/perl
use strict;

sub changehash{
        my (%local_hash) = @_;
        $local_hash{mammal} = 'bear';
        return;
}
my %hash = (fish=>'shark',bird=>'robin');
changehash(%hash);
foreach my $newk (sort keys %hash){
        print "$newk\n";
}

在上面的例子中，当按正常情况传递哈希结构时，@_取得原始哈希结构%hash中每个关键字值对的各个值。在子例程changehash()中，现在放入@_中的哈希结构的各个元素被拷贝到称为%localhash的新哈希结构中。哈希%localhash被修改，该子例程返回。当子例程返回后，%localhash就被撤消，而程序的主要部分中的%hash则保持不变。

在下面这个例子中，对%hash的引用通过@_被传递到子例程changehash()中。该引用被拷贝到标量$href中，它仍然指原始哈希%hash。在子例程中， $hash指向的哈希结构被修改，子例程返回。changehash()返回后，原始哈希结构%hash将包含新关键字bear。

----------------------------------------------------------------------------------------------------

#!/use/bin/perl
use strict;

sub changehash{
        my ($href) = @_;
        $$href{mammal} = 'bear';
        return;
}
my %hash = (fish=>'shark',bird=>'robin');
changehash(\%hash);
foreach my $k (sort keys %hash){
        print "$k\n";
}

这个样子的

#!/usr/bin/perl

my %hash = (
a => 1,
b => 2,
c => 3,
);

sub print_hash {
my %hash = (@_); # @_ 处括号可有可无
foreach $key (keys %hash){
print "key is $key,value is $hash{$key}\n";
}
}

sub print_hash_2 {
my ($hash) = @_; # ($hash) 处括号必须有，取得原先 %hash 地址
my %hash = %$hash;
foreach $key (keys %hash){
print "The key is $key,the value is $hash{$key}\n";
}
}

&print_hash(%hash); #直接调用 %hash
print "\n\n";
&print_hash_2(\%hash); #调用 %hash 地址