ＣＧＩだけど、なんか質問ある？Part 5

[0225 名無しさん＠お腹いっぱい。 02/01/09 12:11 ID:???]

>>223
DB_FileのDB_RECNOを使う

use DB_File;
use Fcntl qw(:flock);

my $db = tie @lines, DB_File => 'hoge.txt', O_RDWR | O_CREAT, 0666, $DB_RECNO or die $!;

# ロックする場合
open DBF, '+<&=' . $db->fd or die $!;
flock DBF, LOCK_EX or die $!;
undef $db;


# 5行目をあぼ〜ん　(spliceは実装されてない？)
delete $lines[4];

# 5行目を置き換える
$lines[4] =~ s/NO/YES/;

untie @lines;