Perlについての質問箱 30箱目at TECHPerlについての質問箱 30箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト555:デフォルトの名無しさん 07/05/13 16:22:37 BE:264938764-PLT(13092) newする時にevalしなくてもおｋ むしろパッケージが別ファイルならロード時にevalしる my $class = "Foo::Bar"; eval "require $class;" die $@ if $@; $class->new; イマドキはUNIVERSAL::requireなんでしょうけど 556:デフォルトの名無しさん 07/05/13 16:45:48 普通に、こんなんでいいでしょ。 ---- package Foo::Bar::Baz; sub new{ bless [] } sub qux{ print "qux!!" } package main; eval{ my $klass = "Foo::Bar::Baz"; my $obj = new $klass; $obj->qux; }; 557:デフォルトの名無しさん 07/05/13 16:49:53 eval EXPR はインジェクションの可能性があるからなるだけ使わんほうがよいね。 558:デフォルトの名無しさん 07/05/13 19:08:29 >>557 この一連のコードで具体的にどうやって？ｗ 559:デフォルトの名無しさん 07/05/13 19:20:02 そりゃサンプルコードなんだから汚染された文字列が紛れ込む分けなかろう 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch