#1516 SGF 簡易整形スクリプト (Perl)
sub _sgf_formater {
my ($sgf) = @_;
my $max = 10; # 一行あたりの手数（;B[]/;W[]）
my $c;
return join ";", map {
s{[\r\n\t]}{}g;
if (s{(PB|PW|GN|GC|EV|RE|DT|PC|SO|AB|AW)(\[)}{\n$1$2}g
|| (/B\[|W\[/ && ++$c % $max == 0)
) {
"$_\n";
}
else { $_ }
} split /;/, $sgf;
}
ブログか何かに組み込んで使うといいかも。