2005-06-03から1日間の記事一覧

perlで置換

perl -i.bak -pe 's/\?/\\/g;' dbm.pl $ls dbm.pl dbm.pl.bak

dbm

{ use Fcntl; use SDBM_File; my $dbtype="SDBM_File"; tie(my(%db), $dbtype, 'd1.db', O_RDWR | O_CREAT, 0700) or die; $db{foo}="bar"; untie(%db); #unlink ; #unlink ; } use SDBM_File; は当然として、use Fcntl;を忘れると GDBMが@INCにないとかいう…

Data::Dumperを使用してのシリアライズ

標準モジュールのみで。 use strict; use Data::Dumper; my $hash={ a=>"b", b=>"c", }; my $vij = Dumper($hash); print ("org:" , $vij); { local $Data::Dumper::Purity = 1; my $val = undef; eval Data::Dumper->Dump([$hash],['val']); ($@) && die "d…