練習問題の回答をメモ。 ex17-1 #!/usr/bin/perl use strict; my $filename = "sample_text"; open FILE, $filename or die "cannot open '$filename': $!"; my @lines = <FILE>; while (1) { print "Enter a search pattern: "; chomp(my $pattern = <STDIN>); last if $</stdin></file>…

たまには英語ネタも書いてみよう。今回は（前回ってあったかな…）、英文法の参考書を紹介してみる。たぶん、自分が紹介するより、amazon のレビューを見てもらったほうが早いから、リンクを張っておくよ。 Grammar in Use Intermediate with Answers: Self-s…