cover
Perl Cookbook (English)
 Christiansen / Torkington
[邦鐃緒申: Perl鐃緒申鐃獣ワ申鐃瞬ッワ申]
Perl

鐃緒申鐃緒申辰鐃�Core Modules鐃叔わ申任鐃緒申鐃処、鐃夙わ申鐃緒申鐃緒申鐃夙で紹駕申

Tie::File

Perl 5.7.3 鐃緒申鐃緒申標鐃緒申鐃緒申鐃緒申鐃緒申Pure Perl鐃淑種申鐃緒申鐃叔もあ鐃所、鐃塾実に使わ申鐃殉わ申鐃緒申

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
use autodie;
use Tie::File;
use Fcntl 'O_RDONLY';

tie my @dict, 'Tie::File', '/usr/share/dict/words', mode => O_RDONLY;

say $dict[83475], $dict[232500];
say scalar @dict;

鐃緒申鐃緒申鐃緒申鐃緒申鐃夙てわ申鐃駿わ申鐃叔わ申鐃緒申

% time perl tie-file.t
helloworld
234936
2.524u 0.981s 0:03.50 100.0%	0+0k 0+0io 0pf+0w

DB_File鐃緒申$DB_RECNO

鐃緒申鐃淑わ申鐃塾わ申鐃緒申標鐃緒申鐃緒申鐃緒申鐃叔はわ申鐃獣わ申鐃塾でわ申鐃緒申鐃緒申OS鐃緒申 Berkeley DB 鐃緒申標鐃緒申鐃緒申椶鐃緒申討鐃緒申鐃緒申鐃祝のわ申標鐃準サ鐃楯￥申鐃夙とわ申鐃緒申鐃緒申鐃緒申鐃叔わ申鐃緒申*BSD鐃緒申鐃緒申鐃�Mac OS X鐃叔わ申標鐃準、Linux鐃叔わ申Ubuntu鐃祝わ申鐃緒申椶鐃緒申鐃銃まわ申鐃緒申鐃緒申

DB_File鐃熟種申鐃�%hash鐃緒申tie鐃緒申鐃銃使わ申鐃塾でわ申鐃緒申鐃緒申鐃渋わ申$DB_RECNO鐃薯タワ申鐃竣誌申鐃所す鐃緒申函鐃緒申謄鐃緒申鐃緒申肇侫鐃緒申鐃緒申鐃緒申鐃緒申鐃藷扱わ申鐃緒申鐃緒申里砲鐃夙わ申鐃殉わ申鐃緒申

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use autodie;
use DB_File;
use Fcntl;

tie my @dict, 'DB_File', '/usr/share/dict/words', O_RDONLY, 0444, $DB_RECNO;

say $dict[83475], $dict[232500];
say scalar @dict;

鐃緒申鐃銃わ申鐃縮わ申鐃渋�鐃叔わ申鐃緒申

% time perl db-recno.pl
helloworld
234936
0.160u 0.016s 0:00.17 100.0%	0+0k 0+2io 0pf+0w

鐃緒申鐃緒申鐃塾種申鐃緒申鐃叔は￥申鐃銃ワ申鐃緒申鐃夙わ申鐃緒申鐃緒申箸鐃緒申鐃緒申匹鐃緒申鐃緒申鐃叔はなわ申鐃緒申鐃書き出わ申鐃緒申鐃夙わ申任鐃緒申泙鐃緒申鐃緒申鐃叔重�鐃祝わ申鐃緒申鐃重�鐃祝わ申鐃緒申鼎鐃緒申鐃緒申里呂鐃緒申譴�鐃緒申由鐃叔わ申鐃緒申鐃宿わ申里鐃緒申嘆鐃緒申鐃緒申鐃塾でわ申鐃緒申亳鐃緒申鐃緒申鐃緒申鐃緒申鐃祝￥申鐃緒申鐃緒申鐃緒申侫鐃緒申鐃緒申鐃緒申鐃緒申蝓種申鐃緒申匹濆鐃緒申犲￥申帽鐃渋�鐃緒申鐃夙思わ申鐃殉わ申鐃緒申

鐃淑わ申鐃緒申鐃緒申鐃緒申鐃塾種申法鐃緒申 Perl Cookbook 鐃祝わ申鐃獣てわ申鐃殉わ申鐃緒申iPhone鐃緒申鐃竣ワ申鐃叔わ申epub鐃緒申鐃緒申鐃緒申鐃宿わ申里鐃緒申鐃緒申鐃緒申鐃緒申鐃叔わ申鐃緒申

Dan the Perl Monger