>>171
ありがとう。多分このあたりかと。多いので２つにわけます。

sub read_file {
local($logfile) = $_[0];
if (!open(IN,$logfile)) {
&error(1,"記録ファイルの読み込み不可");
}
local(@files) = <IN>;
close(IN);
return @files;
}
sub write_file {
local($logfile,@lines) = @_;
&dubble_lock_file;
if ($lock_error) { &error(1,"ロックファイルを検出しました。時間をおいてご利用下さい。"); }

if (!$savetype) {
# 標準タイプ 全 OS 共通
if (!open(OUT,">$logfile")) {
&dubble_unlock_file;
&error(1,"記録ファイルの書き込み不可");
}