- 【モダン推奨】Perlについての質問箱 50箱目
897 ：デフォルトの名無しさん[sage]：2019/12/14(土) 08:31:07.01 ID:tdigeeoh - >>893
10人中一人は
my $arr ; my @arr ;
&func($arr, @arr);
って書いて、>>882みたいに「undefだったら動かない」って
首をひねるハメになる。
| - 【モダン推奨】Perlについての質問箱 50箱目
898 ：デフォルトの名無しさん[sage]：2019/12/14(土) 08:37:29.90 ID:tdigeeoh - 通常は、プロトタイプ使ったサブルーチンはモジュールの中に隔離して
perldocだけ読ませて使わせるから、>>893の問題は生じないんだけどなw
個人のコードでどう扱うかは知らん。
代表的なプロトタイプのコードの例↓(List::MoreUtilsの古いバージョン)
https://fastapi.metacpan.org/source/ADAMK/List-MoreUtils-0.33/lib/List/MoreUtils.pm
| - 【モダン推奨】Perlについての質問箱 50箱目
900 ：デフォルトの名無しさん[sage]：2019/12/14(土) 09:22:43.70 ID:tdigeeoh - >>899
ん?
「&つけて呼び出すと、プロトタイプを無視する」って言う
古くからある悪名高い挙動が変更になったのか?
すまんが俺は古いバージョンでレスってたわ。
それだったら喜ばしい事だね。
| - 【モダン推奨】Perlについての質問箱 50箱目
901 ：デフォルトの名無しさん[sage]：2019/12/14(土) 10:07:00.59 ID:tdigeeoh - 暇だったから、plenv に 5.30.1 突っ込んで確認したが、エラーにならん
もちろんuse strict; use warnings; 効かせて
# ストロベリーとかの環境は知らん
sub pusht (¥@@){ my $c = shift ; push @{$c}, @_ ; }
my @arr ;
my $arr ;
pusht @arr, 1, 2, 3, 4 ;
&pusht( $arr, 1, 2, 3, 4 ) ;
# @arr => ( 1, 2, 3, 4 )
# $arr => undef
| - 【モダン推奨】Perlについての質問箱 50箱目
904 ：デフォルトの名無しさん[sage]：2019/12/14(土) 11:36:46.61 ID:tdigeeoh - >>902
そのレスは>>899がレスる前に欲しかったなw
無駄な作業しなくて済んだし、恥もかかずに済んだw
|
|