TSabc 発言

PHP版です。
（PHPらしいかどうかは自信ないです）

--^ index.php
<?php
$file = fopen($argv[1],'r');
while( $line = fgets($file,8192) )
{
    $line = chop($line);
    $list = split(' ',$line);
    $page = $list[0];
    for( $i = 1; $i < count($list); $i++ )
    {
        $name = $list[$i];
        $tbl[$name] = $tbl[$name] . $page . ",";
    }
}
fclose($file);
foreach( $tbl as $i => $value )
{
    printf("%-20s ... %s\n",$i,substr($value,0,-1));
}
?>
--$
$valueと$tbl[$i]は同じ値です。

* 使用法：php -q index.php 作成元データ[ENTER]

で、閑舎さんのようにPerlらしくないのですが(^^;
せっかく作っていたので。

--^ index.pl
open(FILE,$ARGV[0]);
while($line = <FILE>)
{
        chomp;
        @list = split(/\s/,$line);
        $page = $list[0];
        for( $i = 1; $i <= $#list; $i++ )
        {
                $name = $list[$i];
                $tbl{$name} .= $page . ",";
        }
}
close(FILE);

foreach $i ( keys( %tbl ) )
{
        printf("%-20s ... %s\n",$i,substr($tbl{$i},0,-1));
}
--$

* 使用法：perl index.pl 作成元データ[ENTER]

閑舎さんのどの辺がPerlらしいのかが分かると思います。


でわでわ

-- ぬ

----- Original Message ----- 
From: "Ｙさ" <saw@...>
To: <TSabc@...>
Sent: Friday, May 03, 2002 2:00 PM
Subject: [TSabc:87] 言語の比較の参考２


| ネタを考えてみました。
| 
| [お題]簡易索引メーカー
| [内容]ページ・名称データから索引を作成し、表示する。
|  ↓こんな感じ
| -----
| 言い出しっぺの法則   ... 1,11,29
| インタープリター     ... 12,30
|  :
| -----
| 
＜後略＞