perl-unix-dbm

たしかこんなん。

  my $dbtype="SDBM_File";
  my $dbfile='my.db';
 tie(my(%db), $dbtype, $dbfile, O_RDWR | O_CREAT, 0600);
 $db{01}="myname01,aa@hotmail.com";
 $db{02}="myname02,bb@hotmail.com";
  while(my($k,$v)=each(%db)){
	my ($name,$email) = split(/,/,$v);
  }
  untie(%db);
  unlink <*.db.dir>;