○次の1〜2の問いに答えなさい。
《文字列の操作》
1. 次のプログラムの出力結果を書きなさい
#!/usr/local2/bin/perl
#stringtest.pl $str = "abcdef\n"; print substr($str,0,2), "\n" ;
substr($str,0,2) = "AB";
print $str;
$str =~ s/AB/ab;
print $str;
$str =~ y/a-z/A-Z;
print $str;
《入力、ループ、条件分岐》
2.次のプラグラムは、EOFかquitと入力されるまで、入力された文字を画面に出力するプログラムです。【 】を埋めて、プログラムを完成させなさい。
#!/usr/local2/bin/perl
#iotest.pl
print "What is your favorite food ? \n";
【 】($line = 【 】) { #標準入力がEOFになるまで繰り返す
【 】; 【 】($line eq "quit") { #入力結果がquit の場合
last; }
【 】{ #それ以外の場合
print "I love $line too ! \n";
print "What is your favorite food ? \n";
next;
}
}