-->
./
<!-- フラ&#65533;ュが見れな&#65533;のためにここに何か書&#65533; --> フラ&#65533;ュがインス&#65533;&#65533;ルされて&#65533;&#65533;たいで&#65533;&#65533;&#65533;

2009年11月09日

Linuxのorg-modeファイルをWindowsの「Story Editor」に変換

#!/usr/bin/perl                                                                              
#nkf -w -Lu  n.txt |perl -ple'if(/^\.+/){ s/\./\*/g; s/(^\*+)/$1 /g;  print}' >> k.org       
#nkf -s -Lw  kennkei.txt |sed -e '1,8d'|perl -ple' if(/^\*+/){s/^(\*+)[ ]{1}/$1/g; s/\*/\./g;}'                                                                                           
use Jcode;                                                                                   

open(FH, $ARGV[0]);
$wf = $ARGV[0];
$wf =~ s/(.+)(\..+)/$1-win$2/;
open(WF, "> $wf");
$i=0;
@list = <FH>;
    foreach $n (@list) {
        $i++;
        if ($i <= 8) {
                next;
        }

        $n =~ s/^(\*+)[ ]{1}/$1/g;
        $n =~ s/\*/\./g;
        $n =~ s/\n/\r\n/;
        &Jcode::convert(\$n, "sjis");
                print  WF $n;
    }

close(FH);
close(WF);

Powered by ScribeFire.



この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのトラックバックURL
http://blog.sakura.ne.jp/tb/33524868

この記事へのトラックバック