ifの戻り値 - Perl日記

ただいまプログラミング言語RubyでRubyを学習中。 その中で目をひく記述、なんとRubyはifでの戻り値があるらしい。 year = 2010 month = 11 nendo = if month >= 4 then year elsif month <= 3 then year - 1 else raise end puts nendo #=> 2010 Perlでもこんなことできるかなと思ってやったみた。 my $year = 2010; my $month = 11; my $nendo = if ($month >= 4) { $year; } elsif ($month <= 3) { $year - 1; } else { die; } say $nendo; syntax error at ./if.pl line 9, near "= if" Execution of

[kits]

$nendo = do { if ... } とするとblock内で最後に評価された値が取り出せる。

[syuu1228]

うわ…そんな構文だったのか。RT @skn9x: ifの戻り値 - Perl日記

[meech]

Lispぽい

[hisaichi5518]

do{} で囲めばいい。