サブルーチン


sub
定義:sub 名称 {ブロック}
呼出:&名称
サブルーチンは、いくつかの関数や演算を組み合わせ、1つの関数のように扱うものです。定型処理を何度もさせる場合に使います。

return関数
定義:return 戻り値
働き:サブルーチンが値を返す必要がある場合、サブルーチン内に書きます。

例:以下の例では、percentは引き数2は引き数1の何%かを計算します。roundはエクセルのround関数と同等の働きをします。
--
print &percent(150, 20), "\n";
exit (0);

sub percent {
  my ($a, $b) = @_;
  return &round($b /= $a/100,1);
}

sub round {
  my ($a, $b) = @_;
  $b=10**$b;
  $a = int($a*$b*10);
  if ($a % 10 > 4) {$a+=10;}
  return int($a/10)/$b;
}
--