│ $bufferio = "";
│
│ if(open(IN1,"< $inportfile")) {
│  #== 先に全ファイルをメモリへ読み込んでおいて閉める ==
│  while(<IN1>){ $bufferio = $bufferio."".$_; }
│  close(IN1);
│
│  #== SeaMonkeyの勝手な空白挿入とタグ内改行を強制修正 ==
│  $bufferio =~ s/ //g;　　　　　　　　　　　　　　　　　　　＃半角スペースが重なってるのを削除。
│  $bufferio =~ s/> </></g;　　　　　　　　　　　　　　#タグの間の半角スペースを削除
│  $bufferio =~ s/\"\n/\" /g;　　　　　　　　　　　　　#"のあとに勝手に改行を足すのを削除
│  $bufferio =~ s/<img\n/<img/g;                # タグ閉まる前に改行が入るのを削除
│  $bufferio =~ s/<a\n/<a/g;                       #タグ閉まる前に改行が入るのを削除
│  $bufferio =~ s/<font\n/<font/g;              # タグ閉まる前に改行が入るのを削除
│  $bufferio =~s/<br><\/h2>/<\/h2>/g;　　　＃HTML上不要な<BR>削除
│  $bufferio =~s/<br><\/td>/<\/td>/g;      ＃HTML上不要な<BR>削除
│  $bufferio =~s/<\/table>/<\/table>\n/g;
│  $bufferio =~ s/ moz-do-not-send=\"true\"//g;
│  $bufferio =~ s/\<img/\<imgloading=\"lazy\"/g;
│  $bufferio =~ s/\n//g;
│  $bufferio =~ s/\r//g;
│  $bufferio =~ s/\<tbody\>//g;
│  $bufferio =~ s/<\/tbody>//g;
│  $bufferio =~ s/\/h2>/\/h2>\n/g;
│  $bufferio =~ s/br\>/br\>\n/g;

│  my $datas_filename = $_[0];
│  my $cache_filename ="cache.".$query_viewtype."/".$datas_filename;
│
│  # 引数不正ファイルの場合は何もせずリターン
│  if (open(DB,"$datas_filename")){
│    #==変換後のHTMLキャッシュファイルを読み出す/なきゃ空を作成 ==。
│    if(open(IN2,"< $cache_filename")) {
│      while(<IN2>){$DATA[$counter ++] = $_; }
│      close(IN2);
│    } else {
│      open(OUT, ">$cache_filename");
│      print OUT "";
│      close(OUT);
│    }
│  }else{ return; }
│
│  #キャッシュと原稿のタイムスタンプ取得
│  @filestat = stat $cache_filename;
│  $atime_c = $filestat[8];
│  $mtime_c = $filestat[9];
│  @filestat = stat $datas_filename;
│  $atime_m = $filestat[8];
│  $mtime_m = $filestat[9];
│
│  # Master と Cache と同じ更新日ならキャッシュファイルを適用。
│  # 差異があればキャッシュ廃棄して原稿からキャッシュを作り直す。
│  if ($mtime_m ne $mtime_c ){
│    $counter = 0;
│
│    $DATA[$counter ++] = "～～書き出す内容～～";
│
│    #完成後のHTMLファイルをキャッシュ用データとして一括保存
│    if(open(OUT, "+<$cache_filename")){ # 読み書きモードで開く
│      flock(OUT,2);            # ロック確認。ロック
│      seek(OUT, 0,0);          # ファイルポインタを先頭にセット
│      for( $vx = 0; $vx <$counter; $vx ++){ print OUT "$DATA[$vx]";}
│      truncate(OUT,tell(OUT));  # ファイルサイズを書き込んだサイズにする
│     close(OUT);               # closeすれば自動でロック解除
│    }
│    #キャッシュ保存後、データの日付をそろえる
│    utime ( $mtime_m, $mtime_m,$cache_filename);
│  }
│  for( $vx = 0; $vx < $counter; $vx ++){ print"$DATA[$vx]"; }
│}