Perlについての質問箱 41箱目at TECHPerlについての質問箱 41箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト500:デフォルトの名無しさん 09/09/19 22:20:44 スタックのような動作をする（もちろんそれ以外にも色々と機能がある）オブジェクトを作ろうとして 標準の関数にならい、pushとpopを定義しました。 その中で標準のpushとpopを使うために、main::pushやmain::popと書いたのですが Undefined method &main::push などと言われてしまいます。 どのように書けば良いのでしょうか？ 501:デフォルトの名無しさん 09/09/19 22:30:41 >>499 これを実行すればわかるんじゃないかな？ package foo; sub func { print "@_\n" } func foo 1, 2; foo->func(1, 2); 502:デフォルトの名無しさん 09/09/19 22:41:31 >>499 こうすれば引数の内容をmainでも参照できるようになるよ。 use strict; use warnings; BEGIN { package Test::Simple; sub import { { no strict 'refs'; @{caller().'::test_args'} = @_[1..$#_]; } goto &{Test::Builder::Module::import}; } } use Test::Simple tests => 3; our @test_args; print "args = @test_args\n"; 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch