Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
214:nobodyさん 07/10/02 08:34:43 >>211 原因を特定できないのなら黙っておけ。 215:nobodyさん 07/10/02 09:25:29 >>212 実際に use して調べるのが一番確実。 #!/usr/bin/perl -w use strict qw(subs vars); my $token = qr/[A-Z_a-z][0-9A-Z_a-z]*/; my $module = ($ARGV[0] || '') =~ /^($token(?:::$token)*)\z/ ? $1 : ''; my $result = $module ? eval "use $module" : 'usage: http://.../this.cgi?Module::Name'; $result ||= $@ || qq/$module ${"${module}::VERSION"}/; print "Content-Type: text/plain\n\n$result"; __END__ 216:nobodyさん 07/10/02 09:39:01 もう少し可読性を高める努力をしろよ。 217:nobodyさん 07/10/02 10:20:20 >>207 インストールしなおしでその構成になるようにしたほうがいいんじゃ・・・ 218:nobodyさん 07/10/02 17:33:08 $^Oが取り得る値のリストってどこかにない？ 219:nobodyさん 07/10/02 19:19:35 >>218 http://search.cpan.org/~nwclark/perl-5.8.8/pod/perlport.pod#PLATFORMS

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4918日前に更新/271 KB
担当:undef