新規記事投稿

フォロー記事投稿

記事のキャンセル

サーヴァが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にデフォルトの物しか入っていない模様。うーむ。