perlの正規表現、サブルーチンについて

Question

perlの正規表現、サブルーチンについてです。
やりたいことはサブルーチンに渡された引数が　"数字x数字y数字z"(数字は最大3桁)　という形式だった時に計算をして値を返し、それ以外のときにはerrorと表示するものです

sub xyz{
if(/^\dx\dy\dz$/){
    my $str =~ /(\d+ \d+ \d+)/;
    my ($x,$y,$z) = $1,$2,$3;
    my ($res);
    $res = $x*3+$y*2+$s;
    return $res;
    }
else {
   print("error!!")
}
}
  print "108x320y85z = ", xyz("108x320y85z"), "\n";
  print("1y27y12z = ", xyz("1y27y12z"), "\n");
  print("3b0dx51y43z = ", xyz("3b0dh51m43s"), "\n");

###結果

error!!108x320y85z = 1
error!!1y27y12z = 1
error!!3b0dx51y43z = 1

###本当に得たい結果

  108x320ym85z = 1049
  1y27y12z = error!!
  3b0dx51y43z = error !!

どなたか詳しい方がいらっしゃったらよろしくお願いします。

Answer 1

数字1~3桁というのは、\d{1,3}です。
他の部分も、いろいろおかしいです。

sub xyz{
    if($_[0] =~ /^(\d{1,3})x(\d{1,3})y(\d{1,3})z$/){
        my ($x,$y,$z) = ($1,$2,$3);
        my ($res);
        $res = $x*3+$y*2+$z;
        return $res;
    }else{
        return "error!!";
    }
}
print "108x320y85z = ", xyz("108x320y85z"), "\n";
print("1y27y12z = ", xyz("1y27y12z"), "\n");
print("3b0dx51y43z = ", xyz("3b0dh51m43s"), "\n");

Comments

[aufheben]

もっと勉強して精進します。
大変助かりました。回答ありがとうございました。