Perlについての質問箱 10箱目
レス数が950を超えています。1000を超えると書き込みができなくなります。
0987デフォルトの名無しさん
NGNGこうですか？
sub arrayfunc()
{
local($num) = @_;
for($i = 0; $i < $num; $i++){
$result[$i] = $i * 2;
}
return wantarray ? @result : undef;
}
レス数が950を超えています。1000を超えると書き込みができなくなります。