TSabc 発言

川合孝典と申します。

----- Original Message ----- 
From: "閑舎" <raku@...>
To: <TSabc@...>
Sent: Friday, May 03, 2002 10:36 PM
Subject: [TSabc:89] Re: 言語の比較の参考２(Perl)

ちょっと気になったのですが、
>     $tbl{$2} = ($tbl{$2} eq "")? $1: "$tbl{$2},$1";
は
    $tbl{$2} = (! defined $tbl{$2})? $1: "$tbl{$2},$1";
のほうがよいのではないかと。
でないと-wをつけたとき
  Use of uninitialized value in string eq at t2.pl line 3
といったワーニングがでるんじゃなかろうかと思います。

自分の場合はこんなのとか。基本的な構造は全く
同じですけど、配列リファレンスで保持してみました。
#Perl4じゃ動かないでしょうけど

--^ index2.pl
use strict;
my $sLine;
my %hData;
while($sLine = <>) {
    chomp($sLine);
    if($sLine=~/^(\d+)\s+(.+)/) {
        push @{$hData{$2}}, $1;
    }
}
my $sKey;
foreach $sKey (sort keys %hData) {
    printf "%-20s ... %s\n", $sKey, 
                join(',', @{$hData{$sKey}});
}
--$

===================================================
川合 孝典 (Hippo2000)
   DBI日本語メーリングリスト管理人、Kansai.pm所属
   kwitknr@... GCD00051@...
   http://member.nifty.ne.jp/hippo2000
   http://www.hippo2000.info/ 
「Perlを256倍使うための本　DBI編」　発売中
http://member.nifty.ne.jp/hippo2000/p256dbi/p256dbi.htm
===================================================