たしかこんなん。 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) = spli…

忘れるのでメモ Getopt::Long; http://apollo.u-gakugei.ac.jp/~yoshiki/chalow/2003-01-20-1.html use diagnostics; use Carp; use Data::Dumper; use English; use Getopt::Long; use File::Basename; sub test(){ my $opts = {}; my $ret = GetOptions( $…