perl版本的第一贴，有谁能帮我看一下下面的代码

bjbs_270

#!/usr/bin/perl -w
use strict;
my ($var,$userid);
$userid='simple';
print "Please input the var:";#input userid
$var = <STDIN>;
chomp $var;
print $$var; #want print 'simple';

在PHP中可以直接用$$var;在PERL下是用哪一个来代替呢。本人刚开始看PERL，多谢了

cobrawgl

Hash 倒是可以用，除了hash还没找到别的方法

等高人出来点拨一下，有没有别的办法了

DennisRitchie

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. 
   
5. my $var = <STDIN>;
   
6. my $ref = \$var;
   
7. print $$ref;
   
8. 
   
9. 输入：hello
   
10. 输出：hello
    

复制代码

[ 本帖最后由 DennisRitchie 于 2007-9-21 19:50 编辑 ]

cobrawgl

原帖由 DennisRitchie 于 2007-9-21 19:47 发表

#!/usr/bin/perl
use strict;

my $var = ;
my $ref = \$var;
print $$ref;

输入：hello
输出：hello

变得还挺快。不过不符合lz的要求啊

干脆用python给大家演示一下吧

[ 本帖最后由 cobrawgl 于 2007-9-21 19:56 编辑 ]

DennisRitchie

原帖由 cobrawgl 于 2007-9-21 19:52 发表



变得还挺快。不过不符合lz的要求啊

干脆用python给大家演示一下吧

1、LZ的要求是输入simple，打印出simple，我的程序能够达到他的要求。
2、在PHP中可以使用$$ref访问一个引用变量，楼主的意思是想问在PERL如何通过引用来访问变量，在顶楼的例子中有很多冗余的变量和代码，我删除多余代码的目的是为了更容易演示在perl中如何使用引用。
3、是你自己要求“谁能帮忙用 ruby、python 实现一下”，所以我给了个python的例子，你何必这样了。

[ 本帖最后由 DennisRitchie 于 2007-9-21 20:09 编辑 ]

DennisRitchie

原帖由 cobrawgl 于 2007-9-21 19:52 发表



变得还挺快。不过不符合lz的要求啊

干脆用python给大家演示一下吧

警告你一下，尔要是再无理取闹的话，当心我禀明flw版主让他按律办事。

cobrawgl

原帖由 DennisRitchie 于 2007-9-21 20:07 发表

1、LZ的要求是输入simple，打印出simple，我的程序能够达到他的要求。

1。拜托看清楼主的要求。

2。和你开玩笑嘛，别在意

DennisRitchie

原帖由 cobrawgl 于 2007-9-21 20:12 发表


1。拜托看清楼主的要求。

2。和你开玩笑嘛，别在意

俺也和你开玩笑的，大家共建和谐的PERL版块，呵呵。

uppet

不要使用use strict;
不要使用my变量。

程序就会符合阁下的要求。。。

参见perldoc perlref中`Symbolic references‘一段

DennisRitchie

原帖由 uppet 于 2007-9-21 22:21 发表
不要使用use strict;
不要使用my变量。

程序就会符合阁下的要求。。。

参见perldoc perlref中`Symbolic references‘一段

原文是“高手跳出来了，学习了！”对你不恭，现改为：uppet你高手，向你学习了！

[ 本帖最后由 DennisRitchie 于 2007-9-22 14:47 编辑 ]