由买买提看人间百态

boards

本页内容为未名空间相应帖子的节选和存档,一周内的贴子最多显示50字,超过一周显示500字 访问原贴
Linux版 - 这个perl的简单小程序为什么不work?
相关主题
问题:关于python和webhow to check space character in perl ?
perl能不能一次把一个str中的a替换成x,b替换成y?求助,安装PERL 5.8.8 (www.cpan.org)到红帽AS4
any bash command option similar as perl -c to check the syncrontab的一个小问题
Parrot VM 跑 perl python PHP Ruby 啥意思?一个头痛的regular expression问题
网页如何马上更新呢c/c++, R, perl这些你们平时用的多马?
问问应该学用那个shell?unix下运行perl输出.txt文件
请教个perl/DBI/ssh tunnel的问题调查,最流行10个编程语言,你常用几种?
[请教]文件输入 (转载)问两个Linux 的问题
相关话题的讨论汇总
话题: mainhash话题: hash话题: sethash话题: perl话题: print
进入Linux版参与讨论
1 (共1页)
c****m
发帖数: 824
1
在call by reference函数里change hash,为什么出来就没有了?
#!/usr/bin/perl -w
use strict;
sub sethash
{
my (%hash) = %{$_[0]};
$hash{1} = 5;
print("$hash{1}\n");
}
my %mainhash = ();
&sethash(\%mainhash );
print("$mainhash{1}\n");
N****w
发帖数: 21578
2
coz you didn't return it. it's a local variable.



【在 c****m 的大作中提到】
: 在call by reference函数里change hash,为什么出来就没有了?
: #!/usr/bin/perl -w
: use strict;
: sub sethash
: {
: my (%hash) = %{$_[0]};
: $hash{1} = 5;
: print("$hash{1}\n");
: }
: my %mainhash = ();

t****t
发帖数: 6806
3
this line
my (%hash) = %{$_[0]};
did the copy and you changed on the copied version
use
$_[0]{1}=5
to change on the original version



【在 c****m 的大作中提到】
: 在call by reference函数里change hash,为什么出来就没有了?
: #!/usr/bin/perl -w
: use strict;
: sub sethash
: {
: my (%hash) = %{$_[0]};
: $hash{1} = 5;
: print("$hash{1}\n");
: }
: my %mainhash = ();

1 (共1页)
进入Linux版参与讨论
相关主题
问两个Linux 的问题网页如何马上更新呢
perl 高手看过来问问应该学用那个shell?
perl design patterns请教个perl/DBI/ssh tunnel的问题
perl 6 有点意思[请教]文件输入 (转载)
问题:关于python和webhow to check space character in perl ?
perl能不能一次把一个str中的a替换成x,b替换成y?求助,安装PERL 5.8.8 (www.cpan.org)到红帽AS4
any bash command option similar as perl -c to check the syncrontab的一个小问题
Parrot VM 跑 perl python PHP Ruby 啥意思?一个头痛的regular expression问题
相关话题的讨论汇总
话题: mainhash话题: hash话题: sethash话题: perl话题: print