Perl 子程序的引用

概述#!/usr/bin/perlsub people_say{ my $name=shift(); if($name eq "jack"){ print "Hello:",$name,"happy the day!\n"; }else{ print "Hi:",$name,"This is my home,welcome~\n"; } } sub people_say2{ my $name=

#!/usr/bin/perlsub people_say{ my $name=shift(); if($name eq "jack"){ print "Hello:",$name,"happy the day!\n"; }else{ print "Hi:","This is my home,welcome~\n"; } } sub people_say2{ my $name=shift(); if($name eq "back"){ print "Hello,My name's:","happy the day too.\n"; }else{ print "Thank you!\n"; } } #上面的子程序可以忽略，下面这块才是重点。 # 这里用了哥引用的方法。my %greets=( People_sayone =>  \&people_say, People_saytwo =>  \&people_say2, ); for my $person(qw(People_sayone People_saytwo)){ $greets{$person}->('caodan'); }

总结

以上是内存溢出为你收集整理的Perl 子程序的引用全部内容，希望文章能够帮你解决Perl 子程序的引用所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。