Ver.3.08b 修正箇所 ------------------------------------------------------------------------------- 具体的にはbbs.cgi635行目の while(<STDIN>){ # この方法だと画像の末尾に\r\nが残るけどメモリ節約のため妥協 last if($_=~/$bound/); last if($_=~/^\r\n$/); print TMP $_; } これを以下と差し替え $flag=""; while(<STDIN>){ if($_=~/$bound/){last;} elsif($flag && $_=~/^.+\r\n$/){print TMP "$flag$_"; $flag=""; next;} #boundaryが無ければ保留した\r\nをあわせて記録、flag消去 elsif($flag && $_=~/^\r\n$/){print TMP $_; next;} #\r\nのみの行、flag継続 elsif(!$flag && $_=~/^(.+)\r\n$/){$flag="\r\n"; print TMP $1; next;} #\r\nが末尾に来たら\r\nの記録を保留、flag作成 elsif(!$flag && $_=~/^\r\n$/){print TMP $_; next;} #flag無しで\r\nのみの行、現状維持 else{print TMP $_;} } -------------------------------------------------------------------------------
■■■ ■■■ ■■■ ■ ■ ■ ■ ■ ■ ■ ■■■ ■■■ ■■■ ■■■ ■ ■ ■ ■ ■ ■ ■■■ ■■■ ■■■ ■