奈落のボレロⅡ:C3@work

-->奈落のボレロ

サブルーチンで複数の値を返す

2018-01-04 19:38:16 | Perl
my ($center1, $center2) = center46('nogizaka');
print "$center1\n";
print "$center2\n";

sub center46 {
  if ($_[0] eq 'nogizaka') {
    return 'nanamaru', 'asyurin';
  } elsif ($_[0] eq 'keyakizaka') {
    return 'techi', '';
  } else {
    return 'error!', '';
  }
}

実効結果
nanamaru
asyurin

最新の画像もっと見る

コメントを投稿

ブログ作成者から承認されるまでコメントは反映されません。