红联Linux门户
Linux帮助

perl脚本 该脚本有问题,请大家帮忙看下!

发布时间:2008-09-18 10:25:09来源:红联作者:jevens-ly
#!/usr/bin/perl
print"请输入名字: ";
$name = <> ;
if($name eq 'paul')
{print "Hi paul\n";}
else
{print "sorry,have we meet before?";}
文章评论

共有 4 条评论

  1. zwt 于 2010-01-04 14:29:21发表:

    因为用了use strict,所以要用my $name.

  2. jevens-ly 于 2008-09-20 10:50:40发表:

    name为什么要设成局部变量?my $name;

  3. jevens-ly 于 2008-09-20 10:47:36发表:

    请解释下好吗?谢谢

  4. wgyzhechao 于 2008-09-18 12:00:41发表:

    use strict;

    print "请输入名字:";
    my $name;
    chomp ($name = );

    if ($name eq 'pual'){
    print "Hi pual";
    }
    else
    {
    print "sorry.have we meet before";
    }