何でも掲示板への投稿
記事番号00689へのフォローを投稿します。
引用記事中のHTMLをエスケープせずに
そのまま引用
することも出来ます。
お名前(ペンネイムで結構ですが必要です)
(
ブラウザに個人情報を覚えさせない)
電子メイルアドレス(必要です)
題名(必要です)
Home Page がある方はリンク希望先の URL を記載して下さい
会議室に載せたい内容を以下へお書き下さい (
HTMLを解釈せずにそのまま表示)
12月23日に、にあさんは書きました。 >サーヴァがApacheになったのに引き続き、perl5のヴァージョンもようやく >最新ヴァージョンになった模様です。 > >$ ls -lg /usr/local/bin/perl5 > >-rwxr-xr-x 2 root daemon 737280 Dec 22 12:09 /usr/local/bin/perl5 > >$ perl5 -v > >This is perl, version 5.005_03 built for sun4-sunos >(以下略) > >これでやっと、ここでもperl5を使うことが出来るようになりそうです。 > >perl5が使えると色々便利なんですよね。 >例えば、http.plのconv_http_args()なんて、perl4だと、 > >sub conv_http_args { > local($tag, $body); > local(%http_args); > local($args) = @_; > > foreach (split(/&/, $args)) { > ($tag, $body) = split(/=/); > $http_args{&url_decode($tag)} = &url_decode($body); > } > return(%http_args); >} > >ですけど、perl5で書けば、 > >sub conv_http_args { > return(map {map {&url_decode($_)} split(/=/)} split(/&/, $_[0])); >} > >ですからね。(汗) > >でもDBMライブラリは、まだ、 > >$ perl5 -e 'foreach (qw(NDBM_File DB_File GDBM_File SDBM_File ODBM_File)) {print "$_\n" if (eval "require $_")}' > >NDBM_File >SDBM_File >ODBM_File > >なので、OSにデフォルトの物しか入っていない模様。うーむ。
ホームペーヂに戻る
nir@mvg.biglobe.ne.jp
Last Update: 2 December 1999