【Perl】掲示板を使ろう！ (504ﾚｽ)
上下前次1-新

---

135(2): 名無しさん＠お腹いっぱい。 01/10/13 15:29 ID:??? AAS
# IxFile拡張
# IxFIle::clear - IxFileデータベースをクリアする
# $status = clear $ixf;
sub IxFile::clear{
my IxFile $self = shift;

$self->_initialize(2);

$self->{_pointer} = 0;
$self->{_stat} = 0;
$self->{_idxlist} = [];
$self->{_idxhash} = {};

my $idx_ok = truncate $self->_idxhandle, 0;
my $dat_ok = truncate $self->_dathandle, 0;
return $idx_ok && $dat_ok;
}

---

上下前次1-新書関写板覧索設栞歴

---

あと 369 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.006s