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

flw

原帖由 DennisRitchie 于 2007-9-22 14:49 发表
我都和waker停止争论了，他叫我不要JJYY，你自己凭良心说，这一贴是不是你在惹事生非？！？

你给我滚远点儿。
什么脑子嘛。

bjbs_270

天气热，大家不要上火，来瓶王老吉吧！
不是说冲动是魔鬼吗？非常感觉所有在该贴中留下足迹的朋友，我感受到你们的热情了
to DennisRitchie :
我相信你不是在闹事，只是每个人的语言表达方式不同而已，在现实生活中我们都会有说者无心的时候。
to　flw ：
对版主这个称呼我是非常之崇拜的，因为站在这个位子上我认为不是荣誉，而是一种责任，所以他对大家回贴的言词要求比较高，所以大家也可以理解一下吗，因为难免有些人会计较语言上的东东。从flw对如我这一类问题的回复上我可以看出他的良苦用心，因为我是初学，基础不好，所以他的建议是对的，从他的回贴中我看到很多他说让问者多看书的建议，这说明他对我们这些菜鸟还是很负责任的。

所以为了PERL版的大好学习环境，大家好好相处了！

这可是我在PERL版的处女贴呀！

evil_knight

原帖由 bjbs_270 于 2007-9-22 17:28 发表
天气热，大家不要上火，来瓶王老吉吧！
不是说冲动是魔鬼吗？非常感觉所有在该贴中留下足迹的朋友，我感受到你们的热情了
to DennisRitchie :
我相信你不是在闹事，只是每个人的语言表达方式不同而已，在现实 ...

兄弟，flw就这样，你的第一次被强暴了

perljoker

原帖由 flw 于 2007-9-22 15:01 发表

你给我滚远点儿。
什么脑子嘛。

版主先生，我知道你已经很忍了，我完全能理解，但是你怎么说也是版主
还忘自重啊，做事说话前，还是多考虑责任
你对perl版相当有责任，但是对于cuer，还欠点
希望采纳

uppet

对于前的争吵，区区只想说，多一点宽容，多一点幽默的态度就好啦。
再说来，偶而吵吵也好，有益内循环和增加CU的流量。:wink:

听说CSDN前些日子还跟着linus大叔玩口水流~

想对bjbs_270说：任何书面协议都是死的，是人结合自己的实践才做出活的解释来。
说use strict是好的实践，并不是强行让人们在所有的perl程序中都加入use strict，
那么one liner和小的pipe程序写起来就过于罗嗦了。短程序就该是短的，不要让维
护者或用户（可能是自己啊）有包袱。

允许符号引用就像是开启了C语言中的野指针，是要为安全付出代价的。但如果非要如
此，perl提供方法给你，no strict 'ref'。。。

其实很多语言功能是为库开发者准备的，在平时开发时应该少用（减少包袱嘛）。

当你发现要实现一个功能非要使用一些很偏门的技术或者要处理语言缺陷时，你应当
停下来想想是不是自己的设计有何不良之处，是否存在更加自然的设计或者表达方式呢？

楼上所说的引用及使用%(hash结构)是更好的办法。（简单，安全，易懂，这不就是咱们
弃汇编而使用perl来做快速开发的原因么）

本着深入学习的态度，你可以任意研究任一细节。看perldoc，看书，或者像flw大侠一样，看perl的解析器源代码。

但在实际编码时，要做的事情是：
Keep It Simple & Stupid。。

bjbs_270

TO uppet :
非常感谢你的回复，我同意你的某些说法，当要实现某些特定功能的时候是可以考虑放弃某些道道。

我现在还只能算是站在PERL大门外面，所以学习才是硬道理，各位都是我在PERL方面的老师，哈，，多谢！

perljoker

原帖由 bjbs_270 于 2007-9-23 00:05 发表
TO uppet :
非常感谢你的回复，我同意你的某些说法，当要实现某些特定功能的时候是可以考虑放弃某些道道。

我现在还只能算是站在PERL大门外面，所以学习才是硬道理，各位都是我在PERL方面的老师，哈，，多谢！

哇，你的学习态度太好了，偶要大力像你学习，所有人都像你这样的态度，不知道flw会不会高兴死
其实说来，偶一直没看懂你主题的意思，貌似其他人都懂，唉，估计是偶也是初学者的原因
需要看更多的书啊

bjbs_270

其实说来，偶一直没看懂你主题的意思，貌似其他人都懂，唉，估计是偶也是初学者的原因
需要看更多的书啊

用下面的表达你可能更容易理解
[code]
#!/usr/bin/perl -w
use strict;
my ($userid,$passwd,$email,$input) = qw(simple 123456 username@gmail.com);
print "Please input var:";
chomp( my $input=<STDIN>);
print "the ${input}'s value is ${$input}\n"# 输入的为userid时取得的值为simple，输入的值为passwd时取得的值为123456，如此而已。
[code]

经过上面各位朋友的解答这个问题最好的最安全的办法是通过哈希来解决了。即把输入的值当成是哈希中的键值，根据键值输出对应哈希中的值了。

perljoker

我说的，你文章写了 $userid='simple';
然后又说input userid，我的第一反应是你输入了simple
然后又打印simple，汗死，原来理解错误

对的，对于唯一性标识的东西，用hash是很合适的
而且hash里面包含其他数据结构能有很大的扩展性
比如userid（本身是个数字），下面结构可以有{password=>'',name=>'',sex=>''}

tom_xx_hu@yahoo

版主flw真的从此帖中封了DR？
版主太意气用事了吧？你这样下去我觉得迟早会落下风。