如何在 Perl 中从终端获取输入

Question

我正在创建一个简单的聊天机器人程序，如ELIZA。

我正在从终端接受问题并通过对话框发送回复，但我的程序只接受第一个输入并重复。

例如，当我运行我的脚本时，输出可能是这样的：

[Eliza]: Hi, I'm a psychotherapist. What is your name?
user Input: hello my name is adam.
[Eliza]: hello adam, how are you?
[Eliza]: your name is adam
[Eliza]: your name is adam
[Eliza]: your name is adam
[Eliza]: your name is adam
[Eliza]: your name is adam

它无休止地重复。

我不知道我哪里做错了。如何让我的程序从键盘读取下一行？

sub hello {
    print "[Eliza]: Hi, I'm a psychotherapist. What is your name? \n";
}


sub getPatientName {
    my ($reply) = @_;

    my @responses = ( "my name is", "i'm", "i am", "my name's" );

    foreach my $response ( @responses ) {

        if ( lc($reply) =~ /$response/ ) {
            return  "$'";
        }
    }

    return lc($reply);
}

sub makeQuestion {
    my ($patient) = @_;

    my %reflections = (
        "am"    =>   "are",
        "was"   =>   "were",
        "i"     =>   "you",
        "i'd"   =>   "you would",
        "i've"  =>   "you have",
        "i'll"  =>   "you will",
        "my"    =>   "your",
        "are"   =>   "am",
        "you've"=>   "I have",
        "you'll"=>   "I will",
        "your"  =>   "my",
        "yours" =>   "mine",
        "you"   =>   "me",
        "me"    =>   "you"
    );

    if ( $count == 0 ) {
        $patientName = getPatientName($patient);
        $count += 1;
        print "Hello $patientName , How are you? \n";
    }

    my @toBes = keys %reflections;

    foreach my $toBe (@toBes) {

        if ($patient =~/$toBe/) {
            $patient=~ s/$toBe/$reflections{$toBe}/i;
            print "$patient? \n";
        }
    }
}

sub eliza {

    hello();

    my $answer = <STDIN>;

    while ($answer) {
        chomp $answer;
        #remove . ! ;
        $answer =~ s/[.!,;]/ /;
        makeQuestion($answer);
    }
}

eliza();

Answer 1

您的while循环从不读取输入。在$answer得到了STDIN循环之前大概有一个字符串，其值在真实的while条件。循环中的正则表达式不能改变这一点。

因此，不仅没有新输入分配给$answer，而且在第一次迭代之后循环中没有任何变化。所以它永远运行，打印基于相同的问题$answer。

你需要

while (my $answer = <STDIN>) {
    chomp $answer;
    # ...
}

反而。

每次while (...)评估的条件时，都会通过读取新输入<STDIN>并将其分配给$answer。然后每个新问题都使用新的$answer. 请注意如何在while条件内声明变量，使其仅存在于循环体中（以及声明后的条件中）。这是将其范围限制在循环内需要的地方的好方法。

该文件句柄读<...>返回undef时，它得到EOF（或错误），循环终止。请参阅perlop 中的 I/O 操作符。终端用户通常可以通过 来实现这一点Ctrl-d。