【Perl 】初心者コーナーPart5

>>273
このコードが動きません…。
間違ってはいないですよね…？
#!/usr/bin/perl
use DB_File;
use Fcntl;
use strict;
use warnings;
my @file;
my $db = tie @file , DB_File => 'hoge.dat' , O_RDONLY, 0666, $DB_RECNO
or die "can't open hoge.dat: $!$^E\n";

__END__