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

bjbs_270

UID: 4728
帖子: 24
积分: 55
在线时间: 10 分钟

1^# bjbs_270 发表于 2007-09-21 17:41

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

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

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

2^# cobrawgl 发表于 2007-09-21 19:32

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

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

DennisRitchie

UID: 7257
帖子: 53
积分: 121
在线时间: 4 小时

3^# DennisRitchie 发表于 2007-09-21 19:47

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;

my $var = <STDIN>;
my $ref = \$var;
print $$ref;

输入：hello
输出：hello

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

4^# cobrawgl 发表于 2007-09-21 19:52

QUOTE:

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

#!/usr/bin/perl
use strict;

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

输入：hello
输出：hello

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

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

DennisRitchie

UID: 7257
帖子: 53
积分: 121
在线时间: 4 小时

5^# DennisRitchie 发表于 2007-09-21 20:07

QUOTE:

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

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

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

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

DennisRitchie

UID: 7257
帖子: 53
积分: 121
在线时间: 4 小时

6^# DennisRitchie 发表于 2007-09-21 20:11

QUOTE:

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

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

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

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

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

7^# cobrawgl 发表于 2007-09-21 20:12

QUOTE:

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

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

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

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

DennisRitchie

UID: 7257
帖子: 53
积分: 121
在线时间: 4 小时

8^# DennisRitchie 发表于 2007-09-21 20:13

QUOTE:

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

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

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

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

uppet

UID: 17321
帖子: 195
积分: 448
在线时间: 2 天 4 小时

9^# uppet 发表于 2007-09-21 22:21

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

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

参见perldoc perlref中`Symbolic references‘一段

DennisRitchie

UID: 7257
帖子: 53
积分: 121
在线时间: 4 小时

10^# DennisRitchie 发表于 2007-09-21 22:46

QUOTE:

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

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

参见perldoc perlref中`Symbolic references‘一段

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