ruby-list

Ruby を書きはじめてまるまる 1 週間たちました。この一週
間、Ruby らしく? 書けるようにと(まだまだですが)。

自分なりにはちょっとよくなったと思う hd.rb (hex dump) 
ですが、みなさんの意見を聞かせていただけませんか?

課題としては、「bin_to_str」を汎用的にする(イニシャラ
イズの点など <- グローバル変数を使用している)というも
のがあるのですが... (再利用するかな?)

組み込みの kconv は、入力がきれい? な場合にはいいので
すが、いきなりバイナリを読ませてしまうと、後の処理がう
まく行かないようなので、正規表現で対象を限定しています。

この正規表現部分は、漢字コードとしての定義的には含まれ
る部分でも、実際に変換した後いろいろなコマンド(おもに
表示のための less)の対応などから若干範囲を狭くしていま
す。文字が表示される範囲(フォントが用意されている範囲?)
に対しては抜けがないとは思います。Mule の 
tm(tiny-mime) などは、もう少し範囲を限定した方がよさそ
うです(この部分もどうしたものかと思っていますが)。

ということで、お時間がありましたら試してみていただけま
せんでしょうか?

オプション

-s     入力を SJIS として処理
-S     出力漢字コードを SJIS に
-e     入力を EUC として処理   デフォルト
-E     出力漢字コードを EUC に デフォルト
-数字  ファイルの hex dump 表示をはじめるオフセット指定
       -0x「16 進文字列」 で 16 進数指定可能
       -0「8 新文字列」で 8 進数指定可能

------------------------------
#! /usr/local/bin/ruby
# /home/tetsu/src/ruby/hd.rb
# Created: February 22,1998 Sunday 18:39:06
# Author: tetsu(WATANABE Tetsuya)
# $Id: hd.rb,v 1.8 1998/02/28 07:58:00 tetsu Exp $
# usage:

require "kconv"
include Kconv

def usage
  STDERR.print <<E
usage: #$0 [-seSE] [-(num|0xhex|0oct)] [files ...]
 -[0-9]+  offset
 -0[0-7]+          octal
 -0x[0-9a-fA-F]+   hex
 -s     sjis/input code
 -e     euc /input code
 -S     sjis/output code
 -E     euc /output code (default)
E
  exit 1
end

def hd(f, offset)
  f.pos = offset if offset > 0 and f != STDIN

  while $_ = f.read(16) and $_.length == 16
    bin = $_.unpack('N4')

    printf("%8.8x  %8.8x %8.8x %8.8x %8.8x", offset, *bin);
    print '  ', $_.tr("\000-\037\177", '.').bin_to_str, "\n";

    offset += 16
  end

  if $_ and $_.length > 0
    bin = $_.unpack('C*')

    bin.each_index { |i|
      bin[i] = sprintf('%2.2x', bin[i])
    }

    for i in bin.length .. 16 - 1
      bin.push('  ')
    end

    printf("%8.8x  %s%s%s%s %s%s%s%s %s%s%s%s %s%s%s%s", offset, *bin);
    print '  ', $_.tr("\000-\037\177", '.').bin_to_str, "\n";
  end
end

class String
  def bin_to_str
    w = ($kanji_chip + self).gsub($kanji_re) {
      Kconv.kconv($1, Kconv::JIS, $in_kanji_code)
    }.gsub($kana_re) {
      Kconv.kconv($1, Kconv::JIS, $in_kanji_code)
    }

    w[0,1] = '' if $kanji_chip == w[0,1]

    $kanji_chip = if $kanji_chip_re =~ w[-1,1]; w[-1,1] else nil end

    Kconv.kconv(w.tr("\200-\377", '.'), $out_kanji_code, Kconv::JIS)
  end
end

$in_kanji_code = Kconv::EUC
$out_kanji_code = Kconv::EUC

offset = 0

while $_ = ARGV[0] and /^-/
  ARGV.shift
  if /[se]/i
    $in_kanji_code   = if /s/; Kconv::SJIS elsif /e/; Kconv::EUC end
    $out_kanji_code  = if /S/; Kconv::SJIS elsif /E/; Kconv::EUC end
  elsif /^-0([0-7]+)$/
    offset = $1.oct
  elsif /^-0x([\da-fA-F]+)$/
    offset = $1.hex
  elsif /^-(\d+)$/
    offset = $1.to_i
  else
    usage
  end
end

if $in_kanji_code == Kconv::EUC
  $kanji_re = /((?:[\241-\376][\241-\376])+)/n
  $kana_re = /((?:\216[\241-\337])+)/n
  $kanji_chip_re = /^[\216\241-\376]$/n
else
  $kanji_re = /((?:[\201-\237\340-\357][\100-\176\200-\374])+)/n
  $kana_re = /([\241-\337]+)/n
  $kanji_chip_re = /^[\201-\237\340-\357]$/n
end

if ARGV.length == 0
  hd(STDIN, 0)			# non offset
else
  while file = ARGV.shift
    f = File.open(file)
    hd(f, offset)
    f.close
  end
end

exit
------------------------------

--
WATANABE Tetsuya HP Japan PSO
e-mail  tetsu@jpn.hp.com

Thread

Prev Next

In This Thread

Prev Next

[#6189] bit shift — tei@... (TEI meiki)

[#6190] String class 'hex' method — tei@... (TEI meiki)

[#6213] RE^2: Ruby連載第3回 — 青山 和光 <PXN11625@...>

[#6214] RE^2: HTML class — 青山 和光 <PXN11625@...>

[#6215] Email your AD to 57 MILLION People ONLY $99 — 64687116@...

[#6219] Ruby連載 第4話 — matz@... (Yukihiro Matsumoto)

[#6220] keyword 'next' — TEI meiki <tei@...>

[#6249] Re: i++ — 助田 雅紀 <masaki.suketa@...>

[#6256] pop & smtp-lib.rb — tateishi@... (Takaaki TATEISHI)

[#6272] I'd like to subscribe this ML — INOUE Katsuyuki <inoue@...>

[#6278] None — Morihiro Kageyama <kageyama@...>

[#6279] Re: i++ — 助田 雅紀 <masaki.suketa@...>

[#6280] None — Morihiro Kageyama <kageyama@...>

[#6301] mime.rb — akira yamada / やまだあきら <akira@...>

[#6306] ruby-uguide-980206.tar.gz — TEI meiki <tei@...>

[#6307] ENV.type .... core dump — TEI meiki <tei@...>

[#6308] RE^4: Ruby連載第4話 — 青山 和光 <PXN11625@...>

[#6314] RE: ruby's design policy (Re: I'd like to subscr ibe this ML) — 助田 雅紀 <masaki.suketa@...>

[#6315] install some versions — gotoken@... (GOTO Kentaro)

[#6329] empty? method in String class — Yasuhiro Abe <yasu@...6.u-aizu.ac.jp>

[#6331] IF ELSE — toyofuku@...

[#6332] smtp-lib.rb & pop3-lib.rb — tateishi@...

[#6333] ruby 流に添削して下さい — nkon@...2.3web.ne.jp

[#6334] link broken in ruby page — TAKAHASHI Masayoshi <maki@...>

[#6340] ruby man in sgml (draft) — OZAWA Sakuro <crouton@...>

[#6341] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田 雅紀 <masaki.suketa@...>

[#6342] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田 雅紀 <masaki.suketa@...>

[#6349] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田 雅紀 <masaki.suketa@...>

[#6350] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田 雅紀 <masaki.suketa@...>

[#6353] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田 雅紀 <masaki.suketa@...>

[#6355] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田 雅紀 <masaki.suketa@...>

[#6366] Operator expressions — TEI meiki <tei@...>

[#6367] nested class define — TEI meiki <tei@...>

[#6368] Singleton-class definitions/Singleton-method definitions — TEI meiki <tei@...>

[#6372] ruby 1.1b7 released — matz@... (Yukihiro Matsumoto)

[#6373] call for scripts — matz@... (Yukihiro Matsumoto)

[#6374] はじめまして — Kenji Hiranabe <hiranabe@...>

[#6381] tk.rb bug ? — tateishi@... (Takaaki TATEISHI)

[#6401] /etc/magic — OZAWA Sakuro <crouton@...>

[#6404] fj.lang.ruby — matz@... (Yukihiro Matsumoto)

[#6413] touroku — "puppet" <puppet@...>

[#6421] ruby — TSUKIMURA Kenji <tsucky@...>

[#6422] simple_chat_server — 青山 和光 <PXN11625@...>

[#6429] cygwin32版での Time.now — Ataru NAKATA <anakata@...>

[#6440] RE: call for scripts — 助田 雅紀 <masaki.suketa@...>

[#6447] gsub — Tadayoshi Funaba <tadf@...>

[#6450] find finddepth — OZAWA Sakuro <crouton@...>

[#6451] RE: find finddepth — 助田 雅紀 <masaki.suketa@...>

[#6459] Re: parsedate (Re: ruby 1.1b7 released) — 助田 雅紀 <masaki.suketa@...>

[#6460] actrb — Kazuhisa YANAGAWA <katze@...>

[#6471] Manual Search Server (mssrv-0.1) — Shin-ichiro HARA <sinara@...>

[#6478] Re: call for scripts — aito@...5sun.yz.yamagata-u.ac.jp

[#6485] pack/unpack — TEI meiki <tei@...>

[#6503] Re: call for scripts — 助田 雅紀 <masaki.suketa@...>

[#6514] ROT13/47 — OZAWA Sakuro <crouton@...>

[#6516] RE^2: simple_chat_server — 青山 和光 <PXN11625@...>

[#6535] IF ELSE — toyofuku@...

[#6538] IE favorites to HTML — OZAWA Sakuro <ozawa@...>

[#6545] 過去メールの推移(Re: 拡張モジュール on Windows) — matz@... (Yukihiro Matsumoto)

[#6556] Re: 1FD ruby env. — Kikutani Makoto <kikutani@...>

[#6557] RE^4: simple_chat_s — 青山 和光 <PXN11625@...>

[#6558] RE^2: perl library and si — 青山 和光 <PXN11625@...>

[#6559] if_unless — 青山 和光 <PXN11625@...>

[#6560] http_get.rb — 青山 和光 <PXN11625@...>

[#6564] Re: ruby man in sgml (draft) — tomokuni@... (Tetsuo TOMOKUNI)

[#6565] Re: Counter class [Re: i++ ] — toyofuku@...

[#6567] Re: rgrep (Re: call for scripts) — toyofuku@...

[#6568] Re: rgrep (Re: call for scripts) — toyofuku@...

[#6582] File::Separator on cygwin — OZAWA Sakuro <ozawa@...>

[#6584] English homepage — OZAWA Sakuro <ozawa@...>

[#6589] Re: Counter class [Re: i++ ] — toyofuku@...

[#6591] ruby 1.1b8 released — matz@... (Yukihiro Matsumoto)

[#6599] Re: rgrep (Re: call for scripts) — toyofuku@...

[#6601] 8-queen — TAKAHASHI Masayoshi <maki@...>

[#6605] true/TRUE false/FALSE nil/NIL — OZAWA Sakuro <crouton@...>

[#6609] save log-files (Re: call for script) — tateishi@... (Takaaki TATEISHI)

[#6610] tcltklib dosen't compile — TEI meiki <tei@...>

[#6617] Re: RE^4: simple_chat_s — takagi@... (TAKAGI Hiromitsu)

[#6621] here document — Tadayoshi Funaba <tadf@...>

[#6635] hello — WATANABE Tetsuya <tetsu@...>

[#6213] RE^2: Ruby連載第3回 — 青山　和光 <PXN11625@...>

[#6214] RE^2: HTML class — 青山　和光 <PXN11625@...>

[#6219] Ruby連載第4話 — matz@... (Yukihiro Matsumoto)

[#6249] Re: i++ — 助田　雅紀 <masaki.suketa@...>

[#6279] Re: i++ — 助田　雅紀 <masaki.suketa@...>

[#6308] RE^4: Ruby連載第4話 — 青山　和光 <PXN11625@...>

[#6314] RE: ruby's design policy (Re: I'd like to subscr ibe this ML) — 助田　雅紀 <masaki.suketa@...>

[#6341] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田　雅紀 <masaki.suketa@...>

[#6342] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田　雅紀 <masaki.suketa@...>

[#6349] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田　雅紀 <masaki.suketa@...>

[#6350] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田　雅紀 <masaki.suketa@...>

[#6353] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田　雅紀 <masaki.suketa@...>

[#6355] Re: ruby's design policy (Re: I'd like to su bscr ibe this ML) — 助田　雅紀 <masaki.suketa@...>

[#6422] simple_chat_server — 青山　和光 <PXN11625@...>

[#6440] RE: call for scripts — 助田　雅紀 <masaki.suketa@...>

[#6451] RE: find finddepth — 助田　雅紀 <masaki.suketa@...>

[#6459] Re: parsedate (Re: ruby 1.1b7 released) — 助田　雅紀 <masaki.suketa@...>

[#6503] Re: call for scripts — 助田　雅紀 <masaki.suketa@...>

[#6516] RE^2: simple_chat_server — 青山　和光 <PXN11625@...>

[#6557] RE^4: simple_chat_s — 青山　和光 <PXN11625@...>

[#6558] RE^2: perl library and si — 青山　和光 <PXN11625@...>

[#6559] if_unless — 青山　和光 <PXN11625@...>

[#6560] http_get.rb — 青山　和光 <PXN11625@...>

[#6671] Re: File::Separator on cygwin — 助田　雅紀 <masaki.suketa@...>

[#6694] telnet — 助田　雅紀 <masaki.suketa@...>

[#6736] Re: simple_chat_s — 青山　和光 <PXN11625@...>

[#6737] Re: telnet — 青山　和光 <PXN11625@...>

[#6738] Re: simple_chat_s — 青山　和光 <PXN11625@...>

[#6739] Re: telnet — 助田　雅紀 <masaki.suketa@...>

[#6741] Re: telnet — 助田　雅紀 <masaki.suketa@...>

[#6769] Re: telnet — 助田　雅紀 <masaki.suketa@...>

[#6841] Re: http_get.rb — 青山　和光 <PXN11625@...>