$port = shiftで取り出されているもの

質問

こんばんは、皆さん。
既に解決しているのですが、腑に落ちないので質問です。

main:{
portget();
…
}
sub portget(){
$port = shift or die "error.";
}

このようになっているプログラムをとあるサイトで見つけました。
（けっこう前なので、どこだったかは忘れてしまいました）

このプログラムの使用方法として、
$ perl server.pl portnum
となっていましたが、
このままだと、mainの最初でportgetが呼び出されて、
shiftのスコープが@_と以前お伺いしましたので、
$portには何も入らず、必ずerror.になると思います。
実際そうなっていたので、呼び出し側の引数に@ARGVを追加して使ってます。
この対処方法は妥当でしょうか？（正常に使えてはいます）
また、なぜサイトの作者はこのようなコードにしたのでしょうか？
けっこうちゃんとしたサイトなので誤って書いたとは思えません。
Perlプログラムとして@ARGVを入れない理由があるのでしょうか？
単に忘れただけなのか、Perlのバージョンによっては@ARGVはなくていいとか、
何かそれらしい理由があったら教えてください。

よろしくお願いします。

回答No.1

BLUEPIXY · ベストアンサー

推測ですが
shift の引数が省略された時には
@ARGV が引数になるので
元々のプログラムでは、
メインで
$port = shift or die "error.";
になっていたところを、
portget();
に後から置き換えたんだと思います。
ところが、ご指摘にように、
サブルーチン内では、
shift の引数は省略時には、@_ を対象としますから、
間違いです。
おそらく、置き換えた時に修正するのをうっかりしたんだと思います。

お礼

うっかり間違いだったんですね。
きちんと作ってそうなサイトでも間違えていることもあるんですね。
でも、動作確認してれば間違えることはないですね。
やはりプログラムは検証が必要だと改めて思いました。
どうもありがとうございました。