>>491
ざっと見ただけでテストはしてないぞ
行番号を下記のように変更しる
長すぎる行があるって２ちゃんねるに怒られたので、line:363は途中で改行を入れてる
あとで戻せ

line:363
unshift(@LINE,"$num<>$date<>$in{'name'}<>$in{'email'}<>$in{'scol'}<>$in{'get'}<>
$in{'hd'}<>$in{'com'}<><>$in{'url'}<>$host<>$pwd<>$in{'icon'}<>$in{'fcol'}<>$in{'title'}<>\n");

line:431
($num,$date,$name,$email,$scol,$get,$hd,$com,$res,$url,$host,$pwd,$icon,$fcol,$Title) = split(/<>/,$LINE[$_]);

line:747
($num,$date,$name,$email,$scol,$get,$hd,$com,$res,$url,$host,$pwd,$icon,$fcol,$Title) = split(/<>/,$LINE[$_]);

line:835
($num,$date,$name,$email,$scol,$ged,$hd,$com,$res,$url,$host,$pwd,$icon,$fcol,$Title) = split(/<>/,$line);