print STDERR "usage: keydef2str.pl < keydef.txt > perlstr.txt\n";

my $cnt = 0;
print "'";

while(<>){
    #改行削除
    s/[\r\n\t ]*$//;
    #コメント行は無視
    next if($_ eq "" or $_ =~ /^[ \t]*[\#]/);

    #空白→'='に変換
    s/[ \t]+/=/;

    #出力は65文字ごとに改行
    my $str = $_."|";
    print $str;
    $cnt += length($str);
    if($cnt > 65){
        print "'.\n'";
        $cnt = 0;
    }
}
print "';\n";