Scrapbook : The Lisp Dictionary
http://lispdoc.com/
ソースはどこかにないのかな?
2006-02-22 (Wed) 19:37:55
RandomNote : NOT検索
適当にNOT検索ができるようにしてみる。
Rubyはまだよく分からんので変なことしているかも。
どなたかうまいこと実装してくれないかなぁ。
検索後が「-」で始まる場合はNOT検索をします。
----
--- index.rb.org 2006-02-19 06:35:28.630000000 -0500
+++ index.rb 2006-02-19 06:52:42.100000000 -0500
@@ -11,7 +11,7 @@
def initialize(word)
@word = word
- @qword = Regexp::quote(@word)
+ @qword = (@word.index("-") != 0) ? Regexp::quote(@word) : Regexp::quote(@word[1 .. -1])
@search_time = Time.now.to_i
@files = []
@count = 0
@@ -20,7 +20,11 @@
def make_files
Dir[CGI_frame::LEAFS_DIR + '*.txt'].each do |fname|
mes = File.open(fname) {|f| f.read}
- @files << fname if /#{@qword}/i =~ mes
+ if @word.index("-") != 0
+ @files << fname if /#{@qword}/i =~ mes
+ else
+ @files << fname unless /#{@qword}/i =~ mes
+ end
end
self
end
@@ -37,7 +41,7 @@
def check_text(fname)
mes = File.open(fname) {|f| f.read}
- if /#{@qword}/i =~ mes
+ if (@word.index("-") != 0 && /#{@qword}/i =~ mes)||(@word.index("-") == 0 && !(/#{@qword}/i =~ mes))
@files.unshift(fname).uniq!
else
@files.delete(fname) if @files.index(fname)
2006-02-19 (Sun) 21:41:33
RandomNote : NOT検索
適当にNOT検索ができるようにしてみる。
Rubyはまだよく分からんので変なことしているかも。
どなたかうまいこと実装してくれないかなぁ。
--- index.rb.org 2006-02-19 06:35:28.630000000 -0500
+++ index.rb 2006-02-19 06:52:42.100000000 -0500
@@ -11,7 +11,7 @@
def initialize(word)
@word = word
- @qword = Regexp::quote(@word)
+ @qword = (@word.index("-") != 0) ? Regexp::quote(@word) : Regexp::quote(@word[1 .. -1])
@search_time = Time.now.to_i
@files = []
@count = 0
@@ -20,7 +20,11 @@
def make_files
Dir[CGI_frame::LEAFS_DIR + '*.txt'].each do |fname|
mes = File.open(fname) {|f| f.read}
- @files << fname if /#{@qword}/i =~ mes
+ if @word.index("-") != 0
+ @files << fname if /#{@qword}/i =~ mes
+ else
+ @files << fname unless /#{@qword}/i =~ mes
+ end
end
self
end
@@ -37,7 +41,7 @@
def check_text(fname)
mes = File.open(fname) {|f| f.read}
- if /#{@qword}/i =~ mes
+ if (@word.index("-") != 0 && /#{@qword}/i =~ mes)||(@word.index("-") == 0 && !(/#{@qword}/i =~ mes))
@files.unshift(fname).uniq!
else
@files.delete(fname) if @files.index(fname)
2006-02-19 (Sun) 21:24:25
bookmark : 食玩問題
http://aquarius10.cse.kyutech.ac.jp/~otabe/shokugan/
面白い問題。
2006-02-16 (Thu) 13:00:01
bookmark : Native Win32 ports of some GNU utilities
http://unxutils.sourceforge.net/
lsを打つ癖が直らないから入れておく
2006-02-16 (Thu) 12:59:43
bookmark : Windows XP で w3m 0.5.1 をとりあえず動かす
http://int.parfait.ne.jp/ols/w3monwin.html
2006-02-16 (Thu) 12:59:22
bookmark : ttt: (VMware) FreeBSD 6.0-RELEASEのインストール
http://nhh.mo-blog.jp/ttt/2005/11/vmware_freebsd__743b.html
2006-02-16 (Thu) 12:59:08
bookmark : Internet Week 2005 チュートリアルプレゼンテーション資料
http://www.nic.ad.jp/ja/materials/iw/2005/proceedings/
「安全なWebアプリ開発の鉄則2005」を読む。
2006-02-16 (Thu) 12:58:50
bookmark : VMware設定マニュアル(FreeBSD4.4)
http://info.choco-moco.net/vmware/
2006-02-16 (Thu) 12:58:39
bookmark : 本当に無償で使える「VMware Player」 ― Weboo! Returns.
http://yamashita.dyndns.org/blog/343
2006-02-16 (Thu) 12:58:28
bookmark : 試験管のなかのコード :: VMWare Player にチャレンジ
http://www.in-vitro.jp/blog/index.cgi/VMWare/20051104_01.html
2006-02-16 (Thu) 12:58:17
bookmark : μ memo: VMware Playerのみで新しいVirtualMachineを構築する
http://blog.yasaka.com/archives/2005/10/vmware_playervi.html
2006-02-16 (Thu) 12:58:05
bookmark : 68user's page
http://x68000.q-e-d.net/~68user/
2006-02-16 (Thu) 12:57:54
bookmark : clmemo@aka: Firefox のブックマーク・ツールバーをファビコンでスマートに
http://at-aka.blogspot.com/2006/01/firefox_25.html
要するにbookmarks.htmlの中に画像データが埋め込んである。
2006-02-16 (Thu) 12:57:44
bookmark : 骨までしゃぶれiTSCOM「かっとび」 > コンピュータ > FreeBSD
http://home.catv.ne.jp/dd/t_robot/computer/FreeBSD/index.html
2006-02-16 (Thu) 12:57:33