TSabc 発言

saw@... (Ｙさ) さん writes.

> [内容]ページ・名称データから索引を作成し、表示する。
> ...
> ※ちなみに"簡易"なので「読み順にソート」等は省略。「登場順」ですらないですが(^^;)
> ...
>  >gawk -f index.awk 作成元データ[ENTER]
>  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

では Perl の場合。ソートもコード順でよければ sort を入れるだけなので入れ
ました。

--^ index.pl
while (<>) {
  chomp;
  if (/^(\d+)\s+(.+)/) {
    $tbl{$2} = ($tbl{$2} eq "")? $1: "$tbl{$2},$1";
  }
}
foreach (sort keys %tbl) {
  printf("%-20s ... $tbl{$_}\n", $_);
}
--$

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

# Emacs Lisp だとこのケースはかなり大変そう（連想配列、ファイル処理、パ
# ターンマッチ）なのでパス。Perl とか awk などのスクリプト言語をサブプロ
# セスとして呼び出すに限ります(^^;。

--
本田博通（閑舎）
Hiromichi Honda <raku@...>