Perlについての質問箱 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞの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 そりゃサンプルコードなんだから汚染された文字列が紛れ込む分けなかろう

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5375日前に更新/220 KB
担当:undef