2007-11-21から1日間の記事一覧
練習問題の回答をメモ。 ex10-1 #!/usr/bin/perl use strict; my $answer = int(1 + rand 100); #print "The answer is <<$answer>>.\n"; while (1) { print "Choose a number between 1 to 100: "; chomp(my $try = <STDIN>); if ($try =~ /quit|exit|^\s*$/i) { l</stdin>…