努力したWiki

推敲の足りないメモ書き多数

トレース:

documents:proglang:perl:perl-0002

差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

--- documents:proglang:perl:perl-0002 [2026/05/08 11:54] – ↷ documents:perl:perl-0002 から documents:proglang:perl:perl-0002 へページを移動しました。 k896951
+++ documents:proglang:perl:perl-0002 [2026/05/17 15:00] (現在) – [Perlでバイナリファイルを読むサンプルコード] k896951
@@ 行 1: / 行 1: @@
+====== 005.Perlでバイナリファイルを読むサンプルコード ======
+年09月02日 13時15分13秒
+｢読む例は～？」のツッコミがメールで今頃入ったのでどうかと思ったけど記述。
+===== ソース =====
+<code perl s2.pl>
+## バイナリファイルを読み込んで16進数の文字列で書き出すサンプル
+binmode(STDIN);
+$cnt  = 0;
+$addr = 0;
+while(1==1) {
+  printf("%08x ",$addr) if (0==$cnt) ;
+  last if undef == read(STDIN, $code, 1);
+  printf("%02X ", unpack("C",$code) );
+  $cnt++;
+  if (16==$cnt) {
+    print "\n";
+    $addr+=$cnt;
+    $cnt=0;
+  }
+}
+print "\n--- end\n";
+</code>
+標準入出力を使うことを想定した。
+進ダンププログラム風。
+突っ込み対応。長さゼロのファイルの時はアドレス表示も出ません。
+<code perl s2a.pl>
+## バイナリファイルを読み込んで16進数の文字列で書き出すサンプル
+binmode(STDIN);
+$cnt  = 0;
+$addr = 0;
+while(1==1) {
+  last if undef == read(STDIN, $code, 1);
+  printf("%08x ",$addr) if (0==$cnt) ;
+  printf("%02X ", unpack("C",$code) );
+  $cnt++;
+  if (16==$cnt) {
+    print "\n";
+    $addr+=$cnt;
+    $cnt=0;
+  }
+}
+print "\n--- end\n";
+</code>
+好きなほうをどうぞ。個人的にはアドレスが出ててデータが無い行があっても全然構いませんです。
+===== 入力データ =====
+<code txt input.txt>
+　￣～￣；
+</code>
+いわゆるCP932(SJIS)の文字を5個並べた。
+===== 実行結果 =====
+<code>
+f:\work>type input.txt
+　￣～￣；
+f:\work>perl s2.pl < input.txt
+00000000 81 40 81 50 81 60 81 50 81 47
+--- end
+f:\work>
+</code>
+===== 説明 =====
+標準入力をバイナリモードにするため binmode()でSTDINを指定した。
+次に標準入力から1バイトずつ読み、それを unpack()で“１文字”に変換する。あとは printf()の書式で %02X を指定し16進数2桁で表示。
+※２バイトのコードの上位・下位バイトを各々長さ１バイトの文字として編集した
+===== 旧ページコメント =====
+  *  ふむふむ。16バイトきっちりのときは、アドレスだけの行が出力されるんですね？(^ ^; - JK (2009年08月31日 22時17分13秒)
+  *  意味がやっとわかった。答えはYES。問題なし。とりあえずその突っ込みようの解答は書いておきますね。 - 努力中の人 (2009年09月01日 07時17分32秒)
+  *  ２種類掲載したかｗてか、個人的には、ループそのものは無限ループ形式で、ループの中で意図的に外にジャンプしないとならない作りはｗま、いっかｗｗ - JK (2009年09月02日 13時15分13秒)
+{{tag>Perl 技術資料 バイナリファイル}}

documents/proglang/perl/perl-0002.txt · 最終更新: 2026/05/17 15:00 by k896951