标题: 请帮忙改个代码行不？ [打印本页] 作者: dragon-h 时间: 2006-02-06 16:25 标题: 请帮忙改个代码行不？ #!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 时间: 2006-02-06 16:55
加一行exit if $_ =~ /exit/i;，判断一下输入作者: 孔雀舞 时间: 2006-02-06 18:42
EXIT: while (<STDIN>) {
$input = chop($_);
if ($input eq exit ) {
last EXIT;
}
试一试作者: gdwk 时间: 2006-02-07 04:05
#!/usr/bin/perl
my $str="";
while(<STDIN>){
chomp($_);
if ($_ =~ /exit/i){ last };
@firstchar=split(//,$_);
print "the first char : $firstchar[0]\n";
}