C3@work

備忘録deth

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

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
ジャンル:
ウェブログ
コメント   この記事についてブログを書く
この記事をはてなブックマークに追加
« もはや忘却の彼方 | トップ | 対話モードの終了 »
最近の画像もっと見る

コメントを投稿

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

Perl」カテゴリの最新記事