複数のperlの正規表現をひとつにまとめるには。

こんにちわ。perlの正規表現について教えてください。

unless ($a =~ /[0-9]/){
&err1('数字をいれてください');
}

unless ($b =~ /[0-9]/){
&err1('数字をいれてください'');
}

unless ($c =~ /[0-9]/){
&err1('数字をいれてください'');



上の３つのunless文は$a,$b,$c以外はすべて同じなのでこれをひとつにしたいのですが、どうやって記述すべきでしょうか？($a,$b,$c=~ /[0-9]/)とか($a =~ /[0-9]/ or $b =~ /[0-9]/ or $c =~ /[0-9]/)ってやってみてもだめでした＾＾教えてください。

No.3 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/08/10 15:01

とりあえず

if ($a !~ /[0-9]/ || $b !~ /[0-9]/ || $c !~ /[0-9]/){
&err1('数字をいれてください');
}
でいいですが
ループにして
foreach $x (($a, $b, $c)){
if($x !~ /[0-9]/){
&err1('数字をいれてください');
last;
}
}
とかでもいいと思います

この回答への補足

ありがとうございました。勉強になりました。

補足日時：2005/08/10 15:16

No.2 回答者： ttyp03 回答日時： 2005/08/10 14:56

同じ処理が複数出てきたら関数化が基本ですね。

数字チェック関数を作りましょう。
それからif文でひとつにまとめたらどうですかね？

if( numchk($a) || numchk($b) || nunchk($c) )

って感じで。

この回答への補足

ありがとうございます。

補足日時：2005/08/10 15:17

No.1 回答者： kosa 回答日時： 2005/08/10 14:50

サブルーチン化するのはどうでしょうか？

$a～$cを引数で持っていくってのはどうっすか？