複数の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 · ベストアンサー

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

補足

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

回答No.2

ttyp03

同じ処理が複数出てきたら関数化が基本ですね。
数字チェック関数を作りましょう。
それからif文でひとつにまとめたらどうですかね？

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

って感じで。

補足

ありがとうございます。

回答No.1

kosa

サブルーチン化するのはどうでしょうか？
$a～$cを引数で持っていくってのはどうっすか？