请帮忙改个代码行不？

dragon-h

#!usr/bin/perl
while (<STDIN>) {
($firstchar)=split(/ /,$_);
print "The first character was $firstchar\n";
}

我想把他该成 如果输入exit 就退出程序！
#!/usr/bin/perl
EXIT: while (<STDIN>) {
if (<STDIN> eq exit ) {
last EXIT;
}
($firstchar)=split(/ /,$_);
print "The first character was $firstchar\n";

}

我是这样改的可是不能实现。请指导下好吗？这是我第一个学的语言，以前没有学过。现在在自学中。如果有高手的话愿意收我为徒弟的话请加我QQ22776866~~在此先谢谢了！

lovepl

加一行exit if $_ =~ /exit/i;，判断一下输入

孔雀舞

EXIT: while (<STDIN>) {
$input = chop($_);
if ($input eq exit ) {
last EXIT;
}
试一试

gdwk

#!/usr/bin/perl
my $str="";
while(<STDIN>){
        chomp($_);
        if ($_ =~ /exit/i){ last };
        @firstchar=split(//,$_);
        print "the first char : $firstchar[0]\n";
}

[ 本帖最后由 gdwk 于 2006-2-7 04:07 编辑 ]