<<PREV(P) | TOP(T) | NEXT(N)>>

Hash -2-

last-modified: 25th/June/'01;
since: 1st/June/2001;

ハッシュ・データ・ベース

前節では極基本的なハッシュの使い方を見てきました。本節ではファイル内の情報をハッシュとして処理するサンプルを作ってみます。

具体的には、「名前」と「 URL 」を列記したファイルに対して名前による検索をします。

データファイルは links.dat とし、書式は「名前 = URL」とします。

NEXTindex     = http://www.sugai.f2s.com/
Yahoo! Japan  = http://www.yahoo.co.jp/
Google        = http://www.google.com/
goo           = http://www.goo.ne.jp/

スクリプトの流れは、ファイルをハンドル LINKS で読み込み、等号 「 = 」を区切り文字として、前後をハッシュ %links のキーと値に分けて読み込みます。

ファイル情報を全てハッシュ %links に読み込んでから、「名前」をキーボード入力してURLの候補を検索します。

 1:
 2:
 3:
 4:
 5:
 6:
 7:
 8:
 9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

#!/usr/bin/perl
#上の行では、 Perl のパスを記述してください。
open(LINKS, './links.dat') || die "links.dat: $!";
while(chomp($line = <LINKS>)) {
  ($key, $value) = split(/\s*=\s*/, $line);
  $links{$key} = $value;
}
close(LINKS);
@key_list = keys(%links);
$counts = @key_list;
while(1) {
  print "サイト名をどうぞ　(press x to end):";
  chomp($sitename = <STDIN>);
  exit if($sitename eq x);
  $miss = 0;
  foreach $key (@key_list){
    if($key =~ /$sitename/i) {
      print "  $key; $links{$key}","\n";
    } else {
      $miss++;
    }
  }
  if($miss == $counts){
    print "No such link.","\n";
    print "Try Again: ";
  }
}
exit;

リスト・配列 = split(/正規表現/, スカラー文字列);

$key = Yahoo! Japan;
$value = http://www.yahoo.co.jp;

Perl では UNIX の小規模データベースを使えます。これは dbm データベースと呼ばれています。

• ODBM: UNIX 標準装備
• NDBM: 比較的新しく UNIX に標準装備
• SDBM: perl に添付
• GDBM: GNU 版高機能 dbm
• など他多数

これらのデータベースを利用するためには、 opne, close の代わりに、 tie, untie を利用します。本稿では説明しませんので、 perl に添付されているマニュアルをご覧ください。

ハッシュ関連函数

上のスクリプトでは、ハッシュのキーを配列として抜き出す函数 keys を利用しましたが、値を抜き出す values、キーと値の組を順番に返す each に関して紹介します。

以下では、ハッシュの例として、次のものを考えます：

%sites = ('Yahoo! JAPAN' => 'http://www.yahoo.co.jp/',
         'Google'       => 'http://www.google.com/',
         'SUGAI,M.'     => 'http://www.sugai.f2s.com/',
         'goo'          => 'http://www.goo.ne.jp/')

keys, values

keys はハッシュのキーを配列として返します。 values は値を配列として返します。

@array = keys(%sites);
foreach(@array){    #@array の各要素は標準変数 $_ に代入
  print "$_; url= $sites{$_}\n"; 
}

この例では、一行目を削除して、 foreach ループの条件式を次のように書き換えても結構です：

foreach(keys %sites){    #keys %sites の値（キー）が標準変数に代入される

ここで注しなければいけないことは、 keys 函数の戻り値の順番はランダムだということです。 values 函数と併用して、次のように書いたとすると、キーと値が一致しなくなります：

@array1 = keys(%sites);
@array2 = values(%sites);
foreach(@array1){
  print $_: $array2{$.-1};
}

キーや値を、何らかの順番で並べたいときには、 sort 函数を用います。

foreach(sort values %sites){
  print "$.: $_\n";
}

each

each 函数は、繰り返しの中で用いられ、「キーと値」の組を一つずつ返します。ハッシュから配列を生成しないので、実行環境のリソースをいたずらに浪費しないというメリットがあります（要素数が数千、数万以上に上るデータベースを参照する場合を考えてください）。

while(($key,$value) = each(%sites)){
  print "name = $key, url = $value \n";
}

<<PREV(P) | TOP(T) | NEXT(N)>>

FC2>		���r�b�g