SyntaxHighliterのテスト。

#!/usr/bin/perl
open FH , "test.csv" or die "cannot open" ;
while( <FH> ) {
    @m = split( "," , $_ , 4 ) ;
    $nid = $m[0] ;
    $nchar = unpack( "H4" , $m[1] ) ;
    print "¥t¥"" . $nchar . "¥"=>" . $nid . ",¥n" ;
}
close FH ;

とりあえず、perlのスクリプトで試してみました。
RubyとPHPはやったので。

Comments are closed.