<p>最近何故かPerl仕事が多くてPerl熱が上がって来てます。（PHPの開発チーム所属）</p>
<p>やっとBlogのコメントスパムが落ち着いてきたと思ったら、UO BBSの方にunkスパムが・・・</p>
<blockquote>！！最新着メロ厳選リンク。jpop・洋楽なども。がんがん行こうぜ！！
http://click-no1.jp/adlink.php?adid=104458
<a href="http://click-no1.jp/adlink.php?adid=104458">ココをクリック！！</a></blockquote>
<p>IP制限を付けようと思ってソースを見出したら何か気に食わなくなって全面修正しだしてしまいました。
Perlでも分かりやすく1アクション1クラスにしてControllerクラスに振り分けをさせたいんですけど、</p>
<pre class="prettyprint"><code>use $class</code></pre>
<p>ってできないんですな。少し調べると下記の方法で動的にクラスをロードできるらしい。</p>
<blockquote><a title="Clouder::Blogger: require, import instead of use" href="http://clouder.jp/yoshiki/mt/archives/000184.html">Clouder::Blogger: require, import instead of use</a>
<p>perl でモジュールを use しますが、時としてクラス名を動的に生成して use したい時があります。
そんなときは以下のようにします。</p>
<pre class="prettyprint"><code>my $class = "Foo::Bar::$baz";
eval qq(require $class; import $class);</code></pre></blockquote>
<p>””::”“を””/”“にしてケツに””.pm”“をくっ付けるって何か嫌だなぁ・・・。他に方法無いものか。</p>
2004-08-05T10:49:44+09:00
290
動的にuse
2004-08-05T10:49:44+09:00