return演算子について ver3
return演算子 テスト3
use strict; use warnings; my $fred = 11; my $barney = 6; sub list_from_fred_to_barney{ if ($fred < $barney){ # $fredから$barneyまで増やして行く $fred..$barney; }else{ # $fredからbarneyまで減らして行く reverse $barney..$fred; } } my @c = &list_from_fred_to_barney; print @c;
以下、出力結果になります。
11109876