教えて下さい。(perl) オライリーの「バイオインフォマティクスのためのperl入門」を使って勉強しているperl初心者です。 現在、6章のサブルーチンの演習問題6.6でつまずいています。「ファイル名として有効な文字列がユーザから入力されるか、5 回失敗するまで入力を促すサブルーチンを書きなさい。」という問題なのですが、 以下のように骨組みをつくってみたのですが、回数を指定する事、サブルーチンにするという事がなかなか上手くできません。 すみません。アドバイス下さい・・・。 #!/usr/bin/perl -w use strict; use warnings; print "ファイル名を入力して下さい。\n\n"; while(my $file_name=<STDIN>){ if ($file_name !~ /XXX_File/){ print "ファイル名が違います。\n\n"; }