■

とりあえずコメントxmlを連結するperl書いた
シリカちゃん回のコメント数20000以上だったし
コメントに制御コード入れてくる奴がいるから修正した。

use strict;

my $comment;
my %comment;
my %uniq;

while(<>)
{
chomp;

s|<packet>||g;
s|</packet>||g;
s|<chat|
<chat|g;
s|</chat><chat|</chat>
<chat|g;

s|<chat .+?></chat>||g;
s|[\x00-\x1f]||xg;
$comment .= $_;
}

foreach(split(/\n/, $comment))
{
	$uniq{$_} = 1;

}

foreach(keys %uniq)
{
	/vpos="(.+?)"/;
	$comment{$1} .= "$_
";
}

print q|<packet>
|;
print $comment{$_} foreach( sort { $a <=> $b } keys %comment) ;
print q|</packet>
|;