ruby-list

林＠守口市です。まつもとさんのお作りになったものに日頃よりお世話になっ
ておりますのに、rubyに関しては、最近まで全く知りませんでした。存在を知っ
てからちょっと夢中になってしまってます。とにかく言語は書いてみるのがい
いのだと思いまして、四苦八苦コーディングしてみましたが、可読性がいいこ
とやシンプルさをより感じました。

いきなりコードを皆さんに見ていただくのも不躾ですがご批判や感想いただけ
ればうれしいです。といっても、これじゃあまりPerlと変りなくOOPを生かし
ていないですね、正規表現の使いかたも変かもしれません。スタイルも教えて
ください。

-------- 以下コード --------
# HTMLマニュアルの、<A HREF> タグから索引を作る
# ソースは、ruby-man-1.0-jp を対象にしています
# usage: ruby this.rb *.html > sakuin.html
# 環境 WIN95 Cygwin32 b18 rbgw1021バイナリー
# hayashi@mxs.meshnet.or.jp Sat Nov 8 1997
$ary = Array.new
while gets()
  $_ = Kconv.tosjis($_)		# うちの環境では、これが必要
  if /(<A HREF=")([^"]*)(".*<\/A>)/i
    $_ = $1 + $3
    mark = $2
    fname = $<.filename
    fname.gsub!(/^.*\//, '')
    gsub(/<\/A>.*$/, '')
    while /<[\/A-Za-z][^>]*>/
      gsub(/<[\/A-Za-z][^>]*>/, '')
    end
    while /&#62;/; gsub('&#62;', '>') end
    while /&#60;/; gsub('&#60;', '<') end
    while /&#38/; gsub('&#38;', '&') end
    $_.strip!
    unless 
      /^目次$/ || /^次$/ || /^前$/ || /^上$/ || /@.*\./ || /^$/
				# 不必要なタグを除く
      if mark =~ /^#/		# 自ファイル内のジャンプなら
        mark = fname + mark	# ファイル名をつける
      end
      $ary << $_ + "\t" + mark
    end
  end
end
$ary.sort!
print "<HTML><HEAD><CENTER>ruby マニュアルの索引</CENTER></HEAD><BODY>\n"
$ary.each{|val|
  val =~ /(.*)\t(.*)/
  printf "<A HREF=\"%s\">%s</A><BR>\n", $2, $1 unless val == $old
  $old = val
}
print "</BODY></HTML>\n"

-- 
|_| /|V /|( |_||[Sagasen]    MAIL: hayashi@mxs.meshnet.or.jp |V|      |
| |/~||/~| )| || http://www2a.meshnet.or.jp/~hayashi/search/ | |ORIGUT|

Thread

Prev Next

In This Thread

Prev Next

[#5209] Please append me to ruby-ML — IWAMURO Motonori <iwa@...>

[#5210] みなさんはじめまして — "kozuka" <kozuka@...>

[#5214] 参加します — "MORIOKA,Toru" <vette@...>

[#5215] Join me. — "Motoyuki S." <moto@...>

[#5216] My first coding. — HAYASHI Daihachi <hayashi@...>

[#5218] base64.rb — HYOUDOU Kouichi /note <hyoudo@...>

[#5219] ruby for perl users — Noritsugu Nakamura <nnakamur@...>

[#5222] Re:ruby for perl users — yamakawa@...

[#5223] Re:ruby for perl users — yamakawa@...

[#5239] rbc-0_5.gz — toyofuku@...

[#5243] read from subprocess — Kikutani Makoto <kikutani@...>

[#5246] byte compile and ruby embeded system — Kikutani Makoto <kikutani@...>

[#5268] Re: ruby package for debian — Kikutani Makoto <kikutani@...>

[#5282] Re: rbc-0_5.gz — toyofuku@...

[#5283] None — "Koji Sago" <sago_koji@...>

[#5284] sub — "Motoyuki S." <moto@...>

[#5293] Re: rbc-0_5.gz — toyofuku@...

[#5294] binmode (Re: rbc-0_5.gz) — toyofuku@...

[#5300] Win32用の Rubyでの tkの使用 — Tomoaki Takebayashi <tota@...>

[#5304] Re^2: dbm & flock — 青山 和光 <PXN11625@...>

[#5306] Re^3: dbm & flock — 青山 和光 <PXN11625@...>

[#5313] Mail to HTML — akira yamada / やまだあきら <akira@...>

[#5314] 正規表現について — futami ryutaro <theworld.anet.ne.jp@...>

[#5320] ruby 1.0-971118 released — matz@... (Yukihiro Matsumoto)

[#5322] Questions on specs and threads — Kazuhisa Yanagawa <katze@...>

[#5329] RE: 正規表現について — futami ryutaro <theworld@...>

[#5336] DBM.delete_if bug ? — 藤本尚邦 / FUJIMOTO Hisakuni <hisa@...>

[#5339] Hi — senda@...

[#5349] [How] Send ITERATOR BLOCK to "super" — Shin-ichiro HARA <sinara@...>

[#5358] strange bracket problem — Kikutani Makoto <kikutani@...>

[#5360] help — "Takahiro Kobayashi" <tkoba@...>

[#5365] mirror — Shunichi Matsumoto <mat@...>

[#5373] オブジェクト指向用語 — KIMURA Koichi <kkimura@...>

[#5380] Hash bug ?? — tamori@...

[#5397] curses module extconf.rb and Slackware 3.1 — Noritsugu Nakamura <nnakamur@...>

[#5398] 配列への追加について — a-nisida@... (西田明良)

[#5405] XeasyGraphic Module 0.1 — Noritsugu Nakamura <nnakamur@...>

[#5409] rbc.rb output — Noritsugu Nakamura <nnakamur@...>

[#5413] ruby for Linux RPM — Shoichi OZAWA <ozawa@...>

[#5419] blade mirrors netlab — Shin-ichiro HARA <sinara@...>

[#5421] TokyoNet mirrors netlab — TAKEUCHI Kahori (竹内かほり) <take-k@...>

[#5432] Re: curses module extconf.rb and Slackwa — 岡部 勝幸 <HGC02147@...>

[#5443] push build-in funciton ? — Kikutani Makoto <kikutani@...>

[#5444] Re: Mail to HTML — takagi@... (TAKAGI Hiromitsu)

[#5449] Re: curses module extconf.rb and Slackwa — 岡部 勝幸 <HGC02147@...>

[#5470] communicate with subprocess part II — Kikutani Makoto <kikutani@...>

[#5477] Re: Mail to HTML — takagi@... (TAKAGI Hiromitsu)

[#5478] GD and Japanese character — Noritsugu Nakamura <nnakamur@...>

[#5479] Thread and system — "Motoyuki S." <moto@...>

[#5480] between? bug — Jun Hattori <jhat@...>

[ruby-list:5216] My first coding.

Thread

In This Thread

[#5304] Re^2: dbm & flock — 青山　和光 <PXN11625@...>

[#5306] Re^3: dbm & flock — 青山　和光 <PXN11625@...>

[#5432] Re: curses module extconf.rb and Slackwa — 岡部　勝幸 <HGC02147@...>

[#5449] Re: curses module extconf.rb and Slackwa — 岡部　勝幸 <HGC02147@...>