[postfix-jp:03491] Re: aliases.db -> aliases

[IKEDA Nozomu <ike@xxxxxxxxxxxxx>]

池田です。

Ryuji Matsumoto さんは書きました:
>でも、これはただのDBでしょう？ perl かＣか何かでがんばってみては
>いかが？

DB_Files モジュールが入っていれば、こんなのでダンプできるかと。

---ここから
#!/usr/local/bin/perl

use DB_File;
use Fcntl;

$f = $ARGV[0];
tie %db, 'DB_File', $f, O_RDONLY, 0666, $DB_HASH or die;
#tie %db, 'DB_File', $f, O_RDONLY, 0666, $DB_BTREE or die;
while (($key, $value) = each %db) {
  print "$key: $value\n";
}
untie %db;
---ここまで

---
池田　望 (IKEDA Nozomu)   ike@xxxxxxxxxxxxx
http://www.kobitosan.net/ike/