Open Source WEB

Chat (Lingr.com)

Informaiton

• コンセプト
• 注意事項
• About Us
• メーリングリスト
• コメントの入力方法
• RSSの配信

Daily

• 今日の一行(2010-04-02)

Column

• MySQL日本語の旅(5/1)
• アクセス向上秘伝(5/9)
• 一風変ったHaskellλ門(6/13)
• SICP Answer Book (5/31) 問題3.26追加

Zope Solution

• Zope3
  • 幕の内
• Zopeとは
• なぜZopeなのか

Extra

• JavaCube

アーカイブ

• Project Looking Glass
• XPで楽しい人生を

OSS案内所

• 書籍の紹介
• 技術者のブックマーク
• 読書会、勉強会

Site Info

• Recent Changes
• アクセス統計情報

関連リンク

そのとき使ったコマンド、設定、チョットしたプログラミングのTipsなどを書きためておきます。(もちろん無保証です)

索引

• 索引を試作してみました。どうかなぁ。 --初心者

※ このページはkaretta.jpの今日の一行をミラーしています。

 sudo apt-get remove nano

/usr/bin/install -c -m 644 -o bin -g bin gdbm.h \
                /usr/local/include/gdbm.h
install: bin: Invalid argument
make: *** [install] Error 67

sudo dscl . create /Groups/bin
sudo dscl . create /Users/bin

 wget -m -np -x http://www.lingr.com/room/gauche/achives/

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\i8042prt\Parameters]
"PollingIterations"=dword:00002ee0
"PollingIterationsMaximum"=dword:00002ee0
"ResendIterations"=dword:00000003
"LayerDriver JPN"="KBD101.dll"
"LayerDriver KOR"="KBD101A.DLL"
"OverrideKeyboardType"=dword:00000007
"OverrideKeyboardSubtype"=dword:00000000
"OverrideKeyboardIdentifier"="PCAT_101KEY"

"LayerDriver JPN"="kbddv.dll"

過去の「今日の一行」

• 2004: 01 02 03 04 05 06 07 08 09 10 11 12
• 2005: 01 02 03 04 05 06 07 08 09 10 11 12
• 2006: 01 02 03 04 05 06 07 08 09 10 11 12

今月の一行

• 2006-10-19 [Haskell] トドちゃんカウンタ
• 2006-10-18 [MySQL] MySQL 4.0のmysqldumpで出力されたEUC-JPのデータを5.0にレストア
• 2006-10-17 [Haskell] GHC 6.6 released
• 2006-10-16 [Haskell] XOR 難読化
• 2006-10-13 [Haskell] infix2rpn
• 2006-10-12 [Haskell] rpn2infix
• 2006-10-11 [Haskell] pn2rpn
• 2006-10-10 [Haskell] rpn2pn
• 2006-10-06 [quiz] 中置の四則演算表記を逆ポーランド記法表記に変換する
• 2006-10-05 [quiz] 逆ポーランド記法の四則演算表記を中置記法に変換する
• 2006-10-04 [quiz] ポーランド記法の四則演算表記を逆ポーランド記法表記に変換する
• 2006-10-03 [quiz] 逆ポーランド記法の四則演算表記をポーランド記法表記に変換する
• 2006-10-02 [JavaScript] IEで親ウインドウのtextareaのカーソル位置を取得する

2006-10-19 [Haskell] トドちゃんカウンタ

結城さんのトドちゃんを数えるPerlスクリプトのHaskell版

カレントディレクトリにある *.txt ファイル中の行頭が todo: であるような行の数を数えて，ファイル毎の todo の数と，トータルを表示する．

% countTodo.lhs
2006-10-15.txt: 3
2006-10-16.txt: 12
2006-10-17.txt: 8
2006-10-18.txt: 20
ε(　　　　 v ゜ω゜)　＜　TODO 43 頭♪

てな感じ．

#!/usr/bin/env runhaskell
\begin{code}
module Main (main) where

import Control.Monad (foldM)
import Data.Char (toLower)
import Data.List (isPrefixOf,isSuffixOf)
import System.Directory (getCurrentDirectory,getDirectoryContents)

import UTF8        -- 俺様UTF8.hs

main :: IO ()
main =   getCurrentDirectory 
     >>= getDirectoryContents
     >>= foldM countTodo 0 . filter (".txt" `isSuffixOf`)
     >>= putStrLn . toUTF8 . todo

todo :: Int -> String
todo c = "ε(　　　　 v ゜ω゜)　＜　TODO "++show c++" 頭♪"

countTodo :: Int -> String -> IO Int
countTodo c f
 = flip catch 
        (return . const c)
        (do { cs <- readFile f
            ; let len = length  $ filter (("todo:" `isPrefixOf`).map toLower)
                                $ lines cs
            ; putStrLn $ ((f ++ ": ")++) $ show len
            ; return (c+len)
            })
\end{code}

--nobsun

BgSdcN

UC8w9Z http://google.com

doors.txt;10;15

awegaw1.txt;2;5

The basic purpose, scope and principles of the document remain  unchanged. ,

jlIISi http://f8j3ndYbs83Bbq06Wlavp.com

icQZRo http://djb3jDdmjckow30cnjcmd61l0dy.com

Very nice post, good luck! ;-)

comment1,

comment4,

d3HvYo http://ueNx8wqkk3Mnd.com

63UMlU http://dcYhnkl3mg78Nsfi.com

2mvoNC http://www.tdHn2o99genVcoe.net

gT5K74 http://www.nYwl9n4vb4BsdL2kt.net

9kv1FC http://dfb6WkPnj4bYud6v2Oxt.com

rIAWUj http://cbTqto62bOpdn54BcCqp.net

GCXG3X http://www.ErjfoeBnen03bY1mB7bz.com

6R4jx1 http://wnbUj5n0mXqpcvm27Hms.biz

+z$8frZdyL%68pSU/:>w<:E3.lG-!XIB

Where are you calling from?

http://BPsU(-Zv8B&/LCOJtd6WZB!+%v!H(&v9.com

47lxuS http://6u0n0h0g4gUJK0UP.com

kmXs5L http://DUIyaPoAghaOOv2A.net

AJy09O http://aAQKOiop2iLyMpBz.biz

n59EkK http://CA6HyasJOMgLwTQE.net

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

BH1x6x http://M8bJXXT7yzZFp1CH.com

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

http://www.QKiMt6vfLbn1bD0zxU9QchzPHO25ZYPy.com

http://www.l4kQDD30zNsyoG7pFkTOj6m6mXdUqdwF.com

http://www.NIzi0QxjqKwVZYJ0oEPJhqfCBoLXzubW.com

2vunns http://www.RUWE5gOde94HqsfDYIh3uBfJfSMdiDSG.com

Photography

2006-10-18 [MySQL] MySQL 4.0のmysqldumpで出力されたEUC-JPのデータを5.0にレストア

MySQL 4.0でEUC-JPを格納したデータベースをmysqldumpで出力していたとする。

そのままMySQL 5.0にレストアすると文字化けすることがある。

これを回避するには、/etc/my.cnfに以下を追加してMySQLサーバーを再起動し、レストアする。

[mysqld]
default-character-set = ujis
old-passwords

# 5.0.13-rc 以上
skip-character-set-client-handshake

[mysqldump]
default-character-set = ujis
skip-opt

[mysql]
default-character-set = ujis

参考文献: http://www.mysql.gr.jp/frame/modules/bwiki/?FAQ#content_1_48

なお、Mac OS X等で/etc/my.cnfが存在しないときは新たに作成する。

再起動後のレストアは以下。

mysql -u username dbname < mysqldumpfile.sql

--yasuyuki

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

2006-10-17 [Haskell] GHC 6.6 released

Glasgow Haskell Compiler, Version 6.6 が 10/11 にリリースされました．

リリースノートを見ると．

• GHC now treats source files as UTF-8 (ASCII is a strict subset of UTF-8, so ASCII source files will continue to work as before). However, invalid UTF-8 sequences are ignored in comments, so ASCII code with comments in, for example, Latin-1 will also work.

などとある．

main = putStrLn "日本語"

を utf-8 で保存して(utf.hs)，utf-8の端末で，

% runhaskell utf.hs

とやると化け化け．どうやら，getContents と putStr とかでは UTF-8 <-> UNICODE を やってくれるわけじゃないらしい．というわけででっち上げた UTF8.hs

module UTF8(toUTF8, fromUTF8) where

import Data.Bits
import Data.Char
import Data.Word(Word8)

-- Convert Unicode character to UTF-8.

toUTF8 :: String -> String
toUTF8 [] = []
toUTF8 (x:xs) | ch<=0x007F    = x : toUTF8 xs
              | ch<=0x07FF    = chr (0xC0 .|. ((ch `shift`  (-6)) .&. 0x1F))
                              : chr (0x80 .|. (ch .&. 0x3F))
                              : toUTF8 xs
              | otherwise     = chr (0xE0 .|. ((ch `shift` (-12)) .&. 0x0F))
                              : chr (0x80 .|. ((ch `shift`  (-6)) .&. 0x3F))
                              : chr (0x80 .|. (ch .&. 0x3F))
                              : toUTF8 xs
  where ch = ord x

-- Convert UTF-8 to Unicode.

fromUTF8 :: String -> String
fromUTF8 []     = []
fromUTF8 xxs@(x:xs)
    | ch<=0x7F  = x : fromUTF8 xs
    | ch< 0xC0  = err
    | ch<=0xDF  = f2 xs
    | ch< 0xE0  = err
    | ch<=0xEF  = f3 xs
    | otherwise = err'
    where ch = ord x
          f2 (y0:ys)    = chr (((ch .&. 0x1F) `shift`  6) .|. (ord y0 .&. 0x3F))
                        : fromUTF8 ys
          f2 _          = error "fromUTF8: illegal two byte sequence"
          f3 (y0:y1:ys) = chr (((ch .&. 0x0F) `shift` 12) .|. ((ord y0 .&. 0x3F) `shift` 6)
                                                          .|. (ord y1 .&. 0x3F))
                        : fromUTF8 ys
          f3 _          = error "fromUTF8: illegal three byte sequence"
          err           = error "fromUTF8: illegal UTF-8 character"
          err'          = error "fromUTF8: not support UTF-8 in more than 3 byte"

フル対応ではない，ええかげんなもの．先刻のを

import UTF8
main = putStrLn $ toUTF8 "日本語"

とすると

% runhaskell utf8.hs                                                  ~
日本語

パチパチ

--nobsun

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

2006-10-16 [Haskell] XOR 難読化

Puzzle for Hackers: スクリプトキディから大人のハッカーへという本に登場するツール．

% bvi sample.txt
00000000  63 72 65 61 74 75 72 65 5F 63 72 65 61 74 75 72 creature_creatur
00000010  65 5F 63 72 65 61 74 75 72 65                   e_creature
% xorer < sample.txt > sample.enc
% bvi sample.enc
00000000  5D 56 54 59 4A 51 43 5D 61 47 43 5D 5F 50 44 4A ]VTYJQC]aGC]_PDJ
00000010  5B 7B 52 4A 5B 45 45 4D 4C 41                   [{RJ[EEMLA
% xorer < sample.enc
creature_creature_creature

Haskell で書いてみた．

#!/usr/bin/env runhaskell
\begin{code}
module Main (main) where

import Data.Bits (xor)
import Data.Char (ord, chr)
import System.Environment (getArgs, getProgName)
import System.IO (hPutStr,stderr)

type Key = String

starling :: (a -> b -> c) -> (a -> b) -> a -> c
starling f g x = f x (g x)

enc :: Key -> String -> String
enc = zipWith e . cycle  
  where e k c = chr (ord k `xor` ord c)

-- test data

key = ">$18"
plain = "creature_creature_creature"
enced = "]VTYJQC]aGC]_PDJ[{RJ[EEMLA"

-- main

main :: IO ()
main = do { prog  <- getProgName
          ; args  <- getArgs
          ; cs    <- getContents
          ; case args of
              []  -> putStr $ enc key cs
              [k] -> putStr $ enc k cs
              _   -> usage prog
          }

usage :: String -> IO ()
usage prog = hPutStr stderr ("Usage: "++prog++" [key] < file")
              
\end{code}

--nobsun

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

2006-10-13 [Haskell] infix2rpn

2006-10-06のHaskellによる実装．infix2rpn.lhs

• 字句解析はちょいとだけ書く lexing
• 構文解析も素朴に書く infix2tree
• プリティプリンタは，2006-10-11のものそのまま．

#!/usr/bin/env runhaskell
\begin{code}
module Main (main) where

import Data.Char (isDigit,isSpace)
import Data.Tree (Tree(..))
import System.Environment (getArgs, getProgName)
import System.IO (hPutStrLn, stderr, stdout)

usage :: String -> String
usage prog = "Usage: "++prog++" \"<infix expression>\""

main :: IO ()
main = do { prog <- getProgName
          ; args <- getArgs
          ; case args of
              [e] -> hPutStrLn stdout $ ppr $ infix2tree $ lexing e
              _   -> hPutStrLn stderr $ usage prog
              
          }

lexing :: String -> [String]
lexing = lx []
  where lx ls [] = reverse ls
        lx ls (c:cs) | isSpace c       = lx ls cs
                     | elem c "()+-*/" = lx ([c]:ls) cs
                     | isDigit c       = case span isDigit cs of
                                           (xs,ys) -> lx ((c:xs):ls) ys
                     | otherwise       = error "Invalid Lexeme"

infix2tree :: [String] -> Tree String
infix2tree = r2t 0 []
  where r2t 0 [t] []   = t
        r2t 0 _   []   = error "Invalid Infix Expression"
        r2t n ts  (x:xs)
           | x == "("  = r2t (n+1) ts xs
           | x == ")"  = case ts of
                          (r:o:l:ts') -> r2t (n-1) (Node (node o) [l,r]:ts') xs
                          _           -> error "Invalid Infix Expression"
           | all isDigit x = r2t n (Node x [] : ts) xs
           | elem x ["+","-","*","/"]
                       = r2t n (Node x []:ts) xs
           | otherwise = error "Invalid Infix Expression"
        node (Node x _) = x

ppr :: Tree String -> String
ppr = unwords . post

post :: Tree String -> [String]
post (Node x cs) = concatMap post cs ++ [x]
\end{code}

--nobsun

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

2006-10-12 [Haskell] rpn2infix

2006-10-05のHaskellによる実装．rpn2infix.lhs

• 字句解析，構文解析は2006-10-10の rpn2pn.lhs そのまま．
• プリティプリンタは括弧を付ける．

#!/usr/bin/env runhaskell
\begin{code}
module Main (main) where

import Data.Char (isDigit)
import Data.Tree (Tree(..))
import System.Environment (getArgs, getProgName)
import System.IO (hPutStrLn, stderr, stdout)

usage :: String -> String
usage prog = "Usage: "++prog++" \"<rpn expression>\""

main :: IO ()
main = do { prog <- getProgName
          ; args <- getArgs
          ; case args of
              [e] -> hPutStrLn stdout $ ppr $ rpn2tree $ words e
              _   -> hPutStrLn stderr $ usage prog
              
          }

rpn2tree :: [String] -> Tree String
rpn2tree = r2t []
  where r2t [t] [] = t
        r2t _   [] = error "Invalid RPN Expression"
        r2t ts  (x:xs)
           | all isDigit x = r2t (Node x []:ts) xs
           | otherwise     = case ts of
                               (r:l:rs) -> r2t (Node x [l,r]:rs) xs
                               _        -> error "Invalid RPN Expression"

ppr :: Tree String -> String
ppr (Node x [])    = x
ppr (Node x [l,r]) = "("++ppr l++" "++x++" "++ppr r++")"
\end{code}

--nobsun

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

2006-10-11 [Haskell] pn2rpn

2006-10-04のHaskellによる実装．pn2rpn.lhs

• 字句解析は2006-10-10と同様，手抜き
• 構文解析はちょっとだけ工夫
• プリティプリンタは計算木をpost-orderでたどって，文字列を集めて unwords

#!/usr/bin/env runhaskell
\begin{code}
module Main (main) where

import Data.Char (isDigit)
import Data.Tree (Tree(..))
import System.Environment (getArgs, getProgName)
import System.IO (hPutStrLn, stderr, stdout)

usage :: String -> String
usage prog = "Usage: "++prog++" \"<rpn expression>\""

main :: IO ()
main = do { prog <- getProgName
          ; args <- getArgs
          ; case args of
              [e] -> hPutStrLn stdout $ ppr $ pn2tree $ words e
              _   -> hPutStrLn stderr $ usage prog
          }

pn2tree :: [String] -> Tree String
pn2tree = maybe (error "Invalid PN Expression") fst . p2t
  where p2t [] = Nothing
        p2t (x:xs) | all isDigit x = Just (Node x [], xs)
                   | otherwise = do { (l, xs')  <- p2t xs
                                    ; (r, xs'') <- p2t xs'
                                    ; return (Node x [l,r], xs'')
                                    }
ppr :: Tree String -> String
ppr = unwords . post

post :: Tree String -> [String]
post (Node x cs) = concatMap post cs ++ [x]
\end{code}

--nobsun

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

2006-10-10 [Haskell] rpn2pn

2006-10-03のHaskellによる実装．rpn2pn.lhs

この類いは，

1. 字句解析で文字列から字句列へ変換
2. 構文解析で字句列から計算木へ変換
3. プリティプリンタで計算木から文字列へ変換

というのが考えやすい．

• 字句解析は手抜き，wordsを使っている．つまり，入力文字列中ではオペレータとオペランドは空白で区切られていることを前提としている．
• 構文解析はRPNだけあってStackを使うだけ．
• プリティプリンタは構文木をpre-orderで辿って文字列を集めて，unwords するだけ．

#!/usr/bin/env runhaskell
\begin{code}
module Main (main) where

import Data.Char (isDigit)
import Data.Tree (Tree(..))
import System.Environment (getArgs, getProgName)
import System.IO (hPutStrLn, stderr, stdout)

usage :: String -> String
usage prog = "Usage: "++prog++" \"<rpn expression>\""

main :: IO ()
main = do { prog <- getProgName
          ; args <- getArgs
          ; case args of
              [e] -> hPutStrLn stdout $ ppr $ rpn2tree $ words e
              _   -> hPutStrLn stderr $ usage prog
              
          }

rpn2tree :: [String] -> Tree String
rpn2tree = r2t []
  where r2t [t] [] = t
        r2t _   [] = error "Invalid RPN Expression"
        r2t ts  (x:xs)
           | all isDigit x = r2t (Node x []:ts) xs
           | otherwise     = case ts of
                               (r:l:rs) -> r2t (Node x [l,r]:rs) xs
                               _        -> error "Invalid RPN Expression"

ppr :: Tree String -> String
ppr = unwords . pre

pre :: Tree String -> [String]
pre (Node x cs) = x : concatMap pre cs

\end{code}

--nobsun

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

2006-10-06 [quiz] 中置の四則演算表記を逆ポーランド記法表記に変換する

2006-10-05の逆．括弧が都合よくはいっていると仮定してよい．

これもお約束．

% infix2rpn "(((1 / 9) + 1) * 9)"
1 9 / 1 + 9 *

--nobsun

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

2006-10-05 [quiz] 逆ポーランド記法の四則演算表記を中置記法に変換する

逆ポーランド記法の四則演算表記を中置記法表記に変換するツールをrpn2infixを作れ．

お約束ですねぇ．

% rpn2infix "1 9 / 1 + 9 *"
(((1 / 9) + 1) * 9)

--nobsun

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

2006-10-04 [quiz] ポーランド記法の四則演算表記を逆ポーランド記法表記に変換する

2006-10-03の逆のツール ポーランド記法の四則演算を表記を逆ポーランド記法表記に変換するツールを pn2rpnを作れ．

% pn2rpn "* + / 1 9 1 9"
1 9 / 1 + 9 *

--nobsun

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

2006-10-03 [quiz] 逆ポーランド記法の四則演算表記をポーランド記法表記に変換する

逆ポーランド記法の四則演算を表記をポーランド記法表記に変換するツールをrpn2pnを作れ．

% rpn2pn "1 9 / 1 + 9 *"
* + / 1 9 1 9

--nobsun

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

2006-10-02 [JavaScript] IEで親ウインドウのtextareaのカーソル位置を取得する

IEでtextarea中のカーソル位置を取得するには、 KOSEKI Kengo氏のSelection.jsが使える。

http://www.teria.com/~koseki/memo/xbselection/

ただし、子ウインドウから親ウインドウのカーソル位置を取得しようとしても正常に動作しない。

var selection = new Selection(window.opener.document.getElementById('yourComment'));
var s = selection.create();
var pos = s.start;

上記でposは0になってしまう。

これを意図通り動作させるにはSelection.jsを書き換える必要がある。

Selection.prototype._ieGetSelection = function() {
    this.element.focus();

    var range = document.selection.createRange();

上記でrangeオブジェクトを生成するのにデフォルトのdocumentオブジェクトを使っているが、 これをターゲットであるtextareaの親のdocumentオブジェクトに変更する。

Selection.prototype._ieGetSelection = function() {
    this.element.focus();

    var doc = this.element.ownerDocument;
    var range = doc.selection.createRange();

要素の親のdocumentオブジェクトはownerDocumentプロパティで参照できる。

--yasuyuki

csfhyptt, http://www.cfxuystaqi.com vkobuxxpuv

fksgpptt, http://www.ydlxqucrmx.com wmbcvpjuxj

wjgklptt, http://www.achmzrtggu.com msaslzijtf

このサイトは、 IPA の「平成15年度オープンソフトウエア活用基盤整備事業」 の委託事業として開発されたKahuaで試験的に運用しております。

Copyright (c) 2004-2007 株式会社タイムインターメディア　About Us