perl mmap

perl で「ファイルやデバイスをメモリにマップ/アンマップする 」というmmapをやってみた。

      4 use Cache::Mmap;
      5 use Data::Dumper;
      6
      7 my $filename = shift;
      8
      9 my $cache = Cache::Mmap->new($filename);
     10
     11 my $key   = 'hoge';
     12
     13 $cache->write(
     14     $key => {
     15         hoge => 200,
     16     }
     17 );
     18
     19 my $result = $cache->read( $key );
     20
     21
     22 warn Dumper($result);

結果はまあ、こんな感じ。

$VAR1 = {
'hoge' => 200
};

生成されたファイルの中身は見るもんじゃないと思いました。

http://search.cpan.org/dist/Cache-Mmap-0.09/Mmap.pm