小编Akk*_*ved的帖子

我有这个程序,它取一个单词的数组,并要求用户输入一个句子,其中包含数组中的每个单词:

@words = qw(Hi world thanks);
foreach $word (@words) 
{
        print "Enter a line with word:$word\n";
        chomp($input = <STDIN>);
        if($input=~/$word/i) 
        {
                print "Great\n";
        } else {
                print "Incorrect. Type a line containing $word\n";
        }
}

如果用户使用单词键入输入,则可以正常工作.但如果他不这样做它只打印错误信息并移动到下一个单词.我希望它提示用户重新输入相同单词的输入.但是怎么样？我接下来尝试了它没有用.

将;用作语句分隔符,所以将多个;在声明的结尾是罚款,它只是增加了空语句.

我遇到了这个代码,最后有多个;但删除它们会导致错误:

$line =~s;[.,]$;;;

应该是一样的

$line =~s;[.,;]$;

但事实并非如此.这是怎么回事？