2004年02月24日

_ちなみに文字コード全出力はPerlスクリプトはこう…

#文字コード全出力エンジン(参考用スクリプト)
print "<TABLE BORDER=\"0\">";
print "<TR>";
$s=0;
foreach (0x00..0xFF) {
foreach (0x00..0x80, 0xA0..0xD9, 0xFD..0xFF) {
    print "<TD>";
    print pack('c', $_);
    $s++;
    print "</TD>";
    if($s == 16){
        $s=0;
        print "</TR>\n<TR>";
    }
}
print "</TR>";
foreach (0x81..0x9F, 0xE0..0xFC) {
    $First = $_;
    $s=0;
    print "<TR>";
    foreach (0x00..0xFF){
        print "<TD>";
        print pack('cc', $First, $_);
        $s++;
        print "</TD>";
        if($s == 16){
            $s=0;
            print "</TR>\n<TR>";
        }
    }
    print "</TR>";
}
print "\n";

いまどきPerlというのが なんとも よねっと らしいw実際問題PHPなんて知らないだけなのですよw何PHPって やっぱPerlが最高だろ!とおじいちゃんみたいなこと言ってみる…_| ̄|○

投稿者-> yo-net at 14:31 | コメント (0) | トラックバック(0)
カレンダー
アマゾン検索
最近のコメント
アーカイブ
最近のエントリー
Search


リンク
Powered by
Movable Type 2.65
カテゴリ別アーカイブ
2ちゃんねる [39件]
Android [8件]
BookPlace [1件]
DTM技術 [41件]
FLASH技術 [79件]
N通信 [49件]
PC技術 [1件]
RADIO技術 [10件]
SLOT [12件]
SUPER GT [2件]
Web技術 [25件]
ガンバ大阪 [16件]
プログラム技術 [9件]
ラジコン [10件]
作品紹介 [9件]
模型 [2件]
連絡 [238件]
合計:

今日:

昨日: