ouyou6

ouyou6.pl

#!/usr/bin/env perl

use strict;
use warnings;

print "１つ遅れて返事する君（終わる時は、'END'と入力しましょう。）\n";
my $str = 'こんにちは。';
my $str_next = 'あなたの名前はなんですか？';
for (;;){
  print "com>> $str\n";
  print "you> ";
  $str = $str_next;
  $str_next = <STDIN>;
  chomp $str_next;
  last if $str_next eq 'END';
}