「lib」を含む日記

はてなキーワード: libとは

2008-02-12

■http://anond.hatelabo.jp/20080212115703

既にかなり仕様が固まってるコードを全部lib化やdll化して再コンパイル省くようにしても遅いの？えらい長さっぽいなあ。

Permalink | 記事への反応(1) | 12:15

2007-12-20

■PukiWikiにシンタックス ハイライトを入れた

以下から必要なファイルをDL。wiki/skinに放り込む。

http://code.google.com/p/google-code-prettify/

HTMLに組み込む。wiki/skin/pukiwiki.skin.php
- こんな感じ。PukiWikiよく知らないので正しいやり方かは微妙。

<?php if (PKWK_ALLOW_JAVASCRIPT) { ?>
  <script type="text/javascript" src="skin/prettify.js"></script>
  <link href="skin/prettify.css" rel="stylesheet" type="text/css"/>
<?php } //** SETTING FOR GOOGLE CODE PRETTIFY! **//?>

body要素にonload属性追加。同じくスキンの中にあるよ。

<body onload="prettyPrint()">

pre要素にclass 属性追加。wiki/lib/convert_html.phpをいじる。

  Class Pre extends Element
  {
  ...

  function toString()
  {
    return $this->wrap(join("\n", $this->elements), 'pre', ' class="prettyprint"');
  }
  }

wiki/pukiwiki.ini.phpのJavaScript設定をONにする。0を1にするだけ。

define('PKWK_ALLOW_JAVASCRIPT', 1);

難点はpre要素の中に普通のテキストを書くと変な色になること。
- 整形済みテキストなんてソースコードにしか使わないよねってことでｗ

Permalink | 記事への反応(0) | 19:14

2007-10-13

■http://anond.hatelabo.jp/20071013022151

おう。ありがとう。

まず、 use FindBin および use lib は使えない。なぜならば、FindBin，lib ともにモジュールが参照できないから。

フルパス指定してやれば，できるのかもしれない．

ちなみに解決しました．/usr/bin/から/Perl/bin/にジャンクションを張り，/usr/bin/perlを参照していたのを，/usr/から/Perl/へとジャンクションを変更したら，@LIB内はC:/Perl/site/lib,C:/Perl/lib,.となりました．

相対パス関係っぽい．

Permalink | 記事への反応(0) | 10:58

■http://anond.hatelabo.jp/20071012164250

呼び出してるモジュールが、C:/Perl/site/libでもC:/Perl/libでもないところに入ってるのではないか。

use lib './lib';

とか

use FindBin '$Bin';
use lib "$Bin/lib";

などのようにして、モジュールへのパスを追加してはどうか。

Permalink | 記事への反応(1) | 02:21

2007-10-12

■@INCってなんやねん

XAMPP1.6.4ちゃんとactiveperlちゃんで動かしています。

Perl のスクリプトちゃんがが動かないのです

apache のエラーログはこんな感じちゃん

Can't locate ochinchin.pm in @INC (@INC contains: .) at omannmann.pl line 10.

あれー

omannmann.pl の 10 行目にある ochinchin.pm が見つからないよ。 @INC には.があるよ。

ってことだよね？

perl -le "print foreach @INC"

では

C:/Perl/site/lib
C:/Perl/lib
.

って出てるのになんでかなあ

Permalink | 記事への反応(1) | 16:42

2007-09-18

■[10日でつくるRuby on Rails ]3日目

昨日立ち上がらなくなったEclipseは、RDT0.9.0を上書きしなおしたらEclipseが起動するようにはなった。ただ、Rubyの開発でEclipseの導入は諦めた。Javaの環境をこれ以上壊したくない。

Railsがなんだかよくわかっていないので、

【特選フリーソフト】生産性の高いWeb開発環境 Ruby on Rails
http://itpro.nikkeibp.co.jp/article/COLUMN/20060424/236113/?P=3&ST=lin-server

ここらへんをやる。いうとおりにやったら出来なかった。

ruby script/generateでエラー吐いてますよ。

一年前の記事が役にたたないなんて…。

細かいレベルで違うのは合わせられるけどlib レベルでio syntaxとか吐かれると、追う気がなかなかおきない。

Rails 1.2.3、Ruby 1.8.6は相性悪いのかな？？

困ったな。このレベルでの導入障害は予想外。

http://japan.zdnet.com/video/screencast/story/0,3800079413,20354695,00.htm

これを見てて思った。この秒読みのおねーちゃん萌え。というのは冗談で、

何かRuby on RailsってColdFusionっぽくない？言語体型というより基本コンセプトというか、そういうのが。

Railsについて新しい記事を探すことにした。

http://japan.zdnet.com/sp/report/story/0,2000056431,20352478,00.htm

verと環境がそろった記事発見！

なんだ知らないのがいっぱいあるぞ。

Instant Rails　http://rubyforge.org/frs/?group_id=904

MySQL/Ruby 2.7.3 （native driver）

Mongrel 1.0.1

ここらへんなんだろ？

さっそく上から追ってみる。

Instant Railsのインストールができない。

起動させるとWarnigが出て、プロセス強制終了させてもループに入っちゃって消えない。

なんだこれ＞＜

OKボタンだけの無限ループ警告って一番やっちゃいけなよ・・・。

つか、Ruby関連の何かメモリリークしてない？

普段400MB程度しかつかってないマシンなんだけどアプリ起動していない状態で800越してる。

もうかなり萎えてます。

素の開発環境立てればよかった…。何かぶつかってるのかな。

昨日の増田。

http://anond.hatelabo.jp/20070917201801

Permalink | 記事への反応(4) | 20:08

2007-09-07

■ようこそ、℃-ute な Lisp の世界へ

発祥: http://ex23.2ch.net/test/read.cgi/morningcoffee/1188654905/

はじめに

Scheme という Lisp 語族の言語を用いて ℃-ute の相関関係をプログラムし、様々な角度から関係性を分析する手法を紹介していきます（ソースコードは最後に張ります）。

まずは、メンバー間の関係を「リスト」というデータ型で表現します。例えば「栞菜->愛理」という関係は

(kanna . airi)

という形で表すことができます。これに、「大好き」という情報を付加し、ついでにその関係の性質を数値化したものを加えると

((kanna . airi) (desc "大好き") (score . 1))

のようになり、関係図における一つの矢印の情報をデータ化できたことになります（暫定的に、好意は 1、良好・中立は 0、険悪は -1 の３段階で表すことにします）。

メンバー間の全ての関係性をこのデータ単位で定義し、データベース化しておくことで、色んな条件に基づいた検索やスコア計算などが可能となります。

例 1: リンク状況の調査

ここで相関関係図における矢印を「リンク」と呼ぶことにして、あるメンバーから他のメンバーへどのようにリンクし、またリンクされているかを調べることができます。

全関係の中からリンクの起点を抽出してソートしてみると

(sort-nodes (number-list (from-links)))

結果:

((kanna . 6) (saki . 5) (maimi . 4) (erika . 3) (mai . 3) (chisato . 3) (airi . 2))

栞菜ちゃんがメンバー全員にリンクを張っていることが分かり、℃-ute ラブっぷりが伺えます。なっきーにも同様の事が言えます。例の「女の子が好き」発言を数値的に裏付ける結果と言えるかもしれません。

ただ、データ不足でリンク件数がまだ少ないのと、リンクの性質（好意／反感など）までは分からない点を考慮する必要があるでしょう。

例 2: 被リンク状況の調査

同様に、リンクの終点の件数を調べてみます。

(sort-nodes (number-list (to-links)))

((chisato . 5) (erika . 5) (kanna . 4) (maimi . 4) (airi . 4) (mai . 3) (saki . 1))

えりかちゃんと千聖ちゃんが高ポイントです。メンバーからの人気や注目度の高さを示すデータですが、千聖ちゃんの場合敵対的なリンクが２件含まれている点に注意してください。

なっきーの被リンク数が極端に少ないですが、単純にデータ不足のためだと思われます。はぶら(ryとか言わないようにお願いします。

例 3: 愛情度の評価

リンクに付随するスコアを計算することで、愛情の度合いを測ることができるのではないか、という考えに基づく研究です。

まず、全ての関係性を対象として、スコアがマイナスの関係を抽出してみます。

(filter-nodes (lambda (n)
		(< (score-relation n) 0)))

結果:

(((kanna . chisato) (desc "愛理に手出すんじゃねぇよ") (score . -1))
 ((saki . chisato) (desc "愛理に手出すんじゃねぇよ") (score . -1)))

件数だけを得ると

(length (filter-nodes (lambda (n)
			(< (score-relation n) 0))))

僅か２件です。

良好・中立的な関係は

(length (filter-nodes (lambda (n)
			(= (score-relation n) 0))))

愛に満ちた関係は

(length (filter-nodes (lambda (n)
			(> (score-relation n) 0))))

非常に多いです。舞美ちゃんの「℃-ute同士でラブラブなんですよ」発言（例のラジオ）を数値的に裏付ける結果と言えるんじゃないでしょうか。

次に、メンバーごとのスコアを算出してみます。Lisp 的には以下のようにフィルタリングと畳み込み (fold) で計算することができます。例えば

(foldr (lambda (n acc)
	 (+ (get-score n) acc))
       0
       (filter-nodes (cut to? <> 'kanna)))

で栞菜ちゃんに対するリンクのスコアが得られます。結果:

上式を一般化して一挙にメンバー全員に適用してみると

(sort-nodes (map (lambda (x)
		   (cons x (score-loved x)))
		 (all-members)))

結果:

((airi . 4) (kanna . 3) (mai . 2) (erika . 2) (maimi . 2) (saki . 1) (chisato . 0))

愛理ちゃんが好意を寄せられやすい傾向が伺えます。

今度は逆方向のスコアを計算してみると

(sort-nodes (map (lambda (x)
		   (cons x (score-loving x)))
		 (all-members)))

((kanna . 3) (maimi . 3) (chisato . 2) (airi . 2) (saki . 2) (mai . 1) (erika . 1))

まいまいとえりかちゃんが特に堅い・一途だという傾向を読み取ることができます。

例 4: 相性の調査

今度は組み合わせ（カップリング）の評価です。

２点間相互のリンク・スコアを加算したものを「相性」と考えられるものとします。最大値 (互いに好意を寄せている場合の数値) は現在のスコアリング方式では 2 です。例えば

(score-between 'kanna 'airi)

の値は

となります。1 であれば一方通行と考えます。

関係性が未定義の場合もあるので 0 のものを除外して算出すると

(sort-nodes (filter (lambda (n)
		      (not (= (cdr n) 0)))
		    (map (lambda (n)
			   (cons n (apply score-between n)))
			 (all-combinations))))

(((chisato mai) . 2)
 ((chisato airi) . 2)
 ((airi kanna) . 2)
 ((saki kanna) . 2)
 ((kanna maimi) . 2)
 ((erika maimi) . 2)
 ((saki airi) . 1)
 ((saki erika) . 1)
 ((kanna mai) . 1)
 ((maimi airi) . 1)
 ((saki chisato) . -1)
 ((kanna chisato) . -1))

となります。若干ピンとこない部分もあるかも知れませんが、計算上は矛盾無くデータの内容を表しています。

参考までに、スコア 1 の相互関係の中身を見てみると

(map (lambda (p)
       (find-relation (cons (caar p) (cadar p))
		      identity))
     (filter (lambda (n)
	       (= (cdr n) 1))
	     (map (lambda (n)
		    (cons n (apply score-between n)))
		  (all-combinations))))

(((kanna . mai) (desc "喰ってやるよ") (score . 1))
 ((saki . airi) (desc "好き") (score . 1))
 ((maimi . airi) (desc "良き妹") (score . 1))
 ((saki . erika) (desc "彼氏にしたい") (score . 1)))

のようになります。

まとめ

以上の調査を経て気になった問題点を列挙してみます。

リンクの点数化の基準があいまい・恣意的
スコアリングの方式（３段階で良いのか・中立と良好を区別すべきか）
相関関係全体を俯瞰（可視化・画像化）する方法が未確立
データベースの拡充および修正

特に最初の点に関して、「百合的」なるものの質的評価がなかなか難しいと感じました。例えば「大好き」も「良き妹」も同じ 1 と評価してしまっているのが妥当かどうか、といったことです。

また、スレにて与えられた情報を評価・分析する方法としては有効だとしても、逆方向のフィードバックの手段がなかなか見つからないというのが三つ目の問題です（技術力不足とも言います）。（注：画像化の方法が分かりました。追記参照）

最後に、プログラムのソースを示します。実行には PLT Scheme が必要です。文字コードは UTF-8 で保存した上で、(load "c-ute.ss") としてください。文字化けする場合はターミナルが UTF-8 を表示できるよう設定する必要があります。がんばってください。

プログラム

c-ute.ss:

(require (lib "etc.ss")
         (lib "list.ss")
         (lib "26.ss" "srfi")
         (lib "delete.ss" "srfi" "1"))

;;; Utilities

(define true? (compose not not))

(define (ignore _) #f)

(define fif
  (case-lambda
    ((predicate consequent)
     (fif predicate consequent ignore))
    ((predicate consequent alternative)
     (lambda (x)
       (if (predicate x)
           (consequent x)
           (alternative x))))))

(define (concat! xs) (apply append! xs))

(define (mapconcat f lst sep)
  (let lp ((str (f (car lst)))
           (lst (cdr lst)))
    (if (null? lst)
        str
        (lp (string-append str sep (f (car lst)))
            (cdr lst)))))

(define (slice-string str len)
  (let lp ((res '())
           (str str))
    (if (<= (string-length str) len)
        (reverse! (cons str res))
        (lp (cons (substring str 0 len) res)
            (substring str len)))))

(define (break-string str len)
  (mapconcat identity (slice-string str len) "\\n"))

;; NOTE: input and output ports have to be either file-stream or #f
;; (i.e., cannot be a string port)
(define (run exe opt in out)
  (let-values (((p p-i p-o p-e)
                (subprocess out in #f exe opt)))
    (subprocess-wait p)
    (close-input-port p-e)))

;;; Database

;; http://ja.wikipedia.org/wiki/%E2%84%83-ute

(define names
  '((erika . "えりか") (maimi . "舞美") (saki . "早貴") (airi . "愛理")
    (chisato . "千聖") (mai . "舞") (kanna . "栞菜")))

(define (symbol->name sym)
  ((fif true?
        cdr)
   (assq sym names)))

(define nodes '())
(define edges '())

(define (relate from to desc score)
  (let ((n (cons from to)))
    (or (find-relation n
                       (lambda (r)
                         (let ((d (assq 'desc r))
                               (s (assq 'score r)))
                           (set-cdr! d (cons desc (cdr d)))
                           (set-cdr! s (+ score (cdr s))))))
        (begin
          (set! nodes (cons n nodes))
          (set! edges (cons (cons n `((desc ,desc)
                                      (score . ,score)))
                            edges))))))

(define (find-relation n k)
  ((fif true? k)
   (assoc n edges)))

(define (related? x y)
  (find-relation (cons x y) (lambda (_) #t)))

(define (from? n x)
  (eq? (car n) x))

(define (to? n x)
  (eq? (cdr n) x))

(define flip-relation
  (case-lambda
    ((n)
     (and (related? (cdr n) (car n))
          (cons (cdr n) (car n))))
    ((n k)
     ((fif true? k)
      (flip-relation n)))))

(define (get-score n)
  (cdr (assq 'score n)))

(define (get-description n)
  (cdr (assq 'desc n)))

(define (describe-relation n)
  (find-relation n get-description))

(define (score-relation n)
  (or (find-relation n get-score) 0))

(define (print-node . ns)
  (for-each (cute find-relation <>
                  (lambda (r)
                    (display
                     (format "| ~a => ~a  (~a)~%"
                             (caar r) (cdar r)
                             (mapconcat (lambda (s)
                                          (string-append "\"" s "\""))
                                        (cdr (assq 'desc r))
                                        ", ")))))
            ns))

(define (iter-nodes k)
  (let lp ((nodes nodes))
    (unless (null? nodes)
      (k (car nodes))
      (lp (cdr nodes)))))

(define (filter-nodes p)
  (let ((ns '()))
    (iter-nodes (fif p
                     (cut find-relation <> (lambda (n)
                                             (set! ns (cons n ns))))))
    ns))

(define (from-links)
  (map car nodes))

(define (to-links)
  (map cdr nodes))

(define (all-members)
  (delete-duplicates! (from-links)))

(define (all-pairs) nodes)

(define (ordered-pairs)
  (concat! (map (lambda (x)
                  (map car
                       (sort (filter-nodes (cute to? <> (car x)))
                             (lambda (x y)
                               (> (get-score x) (get-score y))))))
                (sort-nodes (map (lambda (x)
                                   (cons x (score-loved x)))
                                 (all-members))))))

(define (all-combinations)
  (let lp ((cs '()) (ns nodes))
    (if (null? ns)
        cs
        (let ((n (car ns)))
          (lp (if (member (list (cdr n) (car n))
                          cs)
                  cs
                  (cons (list (car n) (cdr n)) cs))
              (cdr ns))))))

;; number-list :: [a] -> [(a . Int)]
(define (number-list ls)
  (let lp ((ns '()) (ls ls))
    (if (null? ls)
        ns
        (let ((x (car ls)))
          (lp ((fif not
                    (lambda (_) (cons (cons x 1) ns))
                    (lambda (n)
                      (set-cdr! n (add1 (cdr n)))
                      ns))
               (assq x ns))
              (cdr ls))))))

;; sort-nodes :: [(a . Int)] -> [(a . Int)]
(define (sort-nodes ns)
  (sort ns (lambda (x y)
             (> (cdr x) (cdr y)))))

(define (diff-nodes ms ns)
  (let lp ((ds '()) (ns ns))
    (if (null? ns)
        (sort-nodes ds)
        (lp (let* ((n (car ns))
                   (m (assq (car n) ms)))
              (cons (cons (car n)
                          (- (cdr m) (cdr n)))
                    ds))
            (cdr ns)))))

(define (get-total-score x p)
  (foldr (lambda (n acc)
           (+ (get-score n) acc))
         0
         (filter-nodes (cut p <> x))))

(define (score-loved x)
  (get-total-score x to?))

(define (score-loving x)
  (get-total-score x from?))

(define (score-between x y)
  (+ (score-relation (cons x y))
     (score-relation (cons y x))))

(define (-> x)
  (display (format "~%Links from [~a]~%" x))
  (iter-nodes (fif (cut from? <> x)
                   print-node)))

(define (<- x)
  (display (format "~%Links towards [~a]~%" x))
  (iter-nodes (fif (cut to? <> x)
                   print-node)))

(define (<-> x)
  (display (format "~%Reciprocal links for [~a]~%" x))
  (iter-nodes (fif (cut to? <> x)
                   (lambda (n)
                     (flip-relation n
                                    (lambda (m)
                                      (print-node m n)))))))

(define (<=> x)
  (display (format "~%Reciprocal matches for [~a]~%" x))
  (iter-nodes
   (fif (cut to? <> x)
        (lambda (n)
          (flip-relation n
                         (lambda (m)
                           (if (ormap (lambda (x)
                                        (ormap (lambda (y)
                                                 (equal? x y))
                                               (describe-relation m)))
                                      (describe-relation n))
                               (print-node m n))))))))

(define (<?> x)
  (let ((to (assq x (number-list (from-links))))
        (from (assq x (number-list (to-links)))))
    (display (string-append
              (format "~%Link statistics for [~a]~%"
                      x)
              (format "| ~a => ~a (love ~a)~%"
                      x
                      (cdr to)
                      (score-loving x))
              (format "| ~a => ~a (love ~a)~%"
                      (cdr from)
                      x
                      (score-loved x))))))

(define (info x)
  (for-each (cut <> x)
            (list <- <-> <=> -> <?>)))

;;; GraphViz (http://www.graphviz.org/) support

(define graphviz "C:/Program Files/ATT/Graphviz/bin/dot.exe")

(define (nodes->dot ns)
  (string-append "digraph cute {\n"
                 ;;"\tordering=out;\n"
                 ;;"\trankdir=LR;\n"
                 "\toverlap=true;\n"
                 "\tnode[fontname=\"msgothic.ttc\"];\n"
                 "\tedge[fontname=\"msgothic.ttc\",fontsize=9];\n"
                 (let lp ((str "") (ns ns))
                   (if (null? ns)
                       str
                       (let* ((n (car ns))
                              (s (score-relation n)))
                         (lp (string-append
                              str
                              (format "\t\"~a\" -> \"~a\""
                                      (symbol->name (car n))
                                      (symbol->name (cdr n)))
                              (format "[label=\"~a\",color=\"~a\","
                                      (break-string
                                       (car (describe-relation n))
                                       7)
                                      (cond ((> s 0) "red")
                                            ((= s 0) "green")
                                            (else "blue")))
                              (format "style=\"bold~a\"];\n"
                                      (if (and (not (= s 0)) (< s 1) (> s -1))
                                          ",dashed"
                                          "")))
                             (cdr ns)))))
                 "}"))

(define (write-dotfile dot file)
  (and (file-exists? file) (delete-file file))
  (with-output-to-file file
    (lambda ()
      (display dot)))
  file)

(define (dot->png dot png)
  (call-with-input-file (write-dotfile dot "c-ute.dot")
    (lambda (in)
      (and (file-exists? png) (delete-file png))
      (call-with-output-file png
        (lambda (out)
          (run graphviz "-Tpng" in out)))))
  'done)

;;; Setup database

;; Based on:
;; http://ex23.2ch.net/test/read.cgi/morningcoffee/1188654905/116-142
(begin
  (relate 'maimi 'erika "大好き" 1)
  (relate 'maimi 'kanna "良き妹" 1)
  (relate 'maimi 'airi "良き妹" 1)
  (relate 'maimi 'mai "姉妹" 0)
  (relate 'erika 'maimi "一番可愛いよ" 1)
  (relate 'erika 'kanna "仲間" 0)
  (relate 'erika 'chisato "おソロパジャマ" 0)
  (relate 'kanna 'erika "仲間" 0)
  (relate 'kanna 'maimi "好き" 1)
  (relate 'kanna 'saki "喰ってやるよ" 1)
  (relate 'kanna 'mai "喰ってやるよ" 1)
  (relate 'kanna 'airi "大好き" 1)
  (relate 'kanna 'chisato "愛理に手出すんじゃねぇよ" -1)
  (relate 'saki 'maimi "荷物整理" 0)
  (relate 'saki 'erika "彼氏にしたい" 1)
  (relate 'saki 'kanna "興味がある" 0.5)
  (relate 'saki 'chisato "愛理に手出すんじゃねぇよ" -1)
  (relate 'saki 'airi "好き" 1)
  (relate 'airi 'kanna "受け入れる" 1)
  (relate 'airi 'chisato "最近親密" 1)
  (relate 'mai 'erika "保護者" 0)
  (relate 'mai 'maimi "姉妹" 0)
  (relate 'mai 'chisato "恋人" 1)
  (relate 'chisato 'erika "おソロパジャマ" 0)
  (relate 'chisato 'mai "恋人" 1)
  (relate 'chisato 'airi "最近親密" 1))

;; query relations / draw graphs

(if (file-exists? graphviz)
    (dot->png (nodes->dot (ordered-pairs))
              "c-ute.png")
    (for-each info (all-members)))

追記（グラフ描画について）

Graphviz というソフトによって関係図を可視化できる、ということを教えていただきました（既に上プログラムを実行すると自動的に関係図画像を作成するようにしてあります）。ここでは技術的な観点から幾つか注意点を挙げておきます。

まず、Scheme プログラムから Graphviz を動かす方法について。コマンドラインからの起動のように、プログラムへのオプション文字列で入出力ファイルを指定する方法ではどうも上手く行きませんでした。調査の結果、入出力ファイルのポートを Scheme 側で用意しておく必要があるようです。処理系によって異なりますが、PLT Scheme の場合 subprocess という関数を次のように呼び出します。

(subprocess output-port input-port #f "/path/to/dot.exe" "-Tpng")

ここで output-port は png 等画像ファイルへの出力ポート。input-port は dot ファイル（グラフの定義ファイル）の入力ポートです。エラーポートは必要無いでしょう (#f)。

dot という名前の実行ファイルが、関係図のような有向グラフを描画するプログラムです。最後にオプション文字列として出力形式を指定します（png, jpeg, gif, etc.）。

次に dot ファイルを Scheme で書く方法ですが、以下の基本的な有向グラフの書式

digraph g {
  A -> B;
  B -> C;
  C -> A;
}

を理解すれば、後は実直に Scheme のデータを当てはめて format 関数等で変換するだけです。

(string-append
 "digraph g {"
 (format "~a -> ~a;" (car node) (cdr node))
 "}")

問題は、ノードを配置する順番によって出来上がる画像が変わってくる、ということです。

より見た目に分かりやすくするための工夫としては、相互にリンクするノード同士が dot ファイル上でも近接して出力されるようにすると良いでしょう。関連の強いものが画像の上でも近くに表示されるようになります。

また上述（特に例３）のスコアの概念を応用し、スコアの低いものが後に出力されるようにすることで、重力感覚に一致するような関係図を得ることができるでしょう。

Permalink | 記事への反応(0) | 17:26

2007-04-20

■[Ruby]Ruby【Ruby on Rails】

Ruby　RDoc Documentation

rubyとは - はてなダイアリー　 Rubyとは - はてなダイアリー

はてなブックマーク - はてな - Rubyとは

「ruby」を含む日記 - はてなダイアリー

Ruby

「Ruby」に関する画像、動画、ブログ記事のタグ検索結果

RubyForge: One-Click Ruby Installer: Project Info

RDE(Ruby Development Environment) - Ruby??J??????????

#!/usr/bin/ruby -Ks
# print "Content-Type: text/html;charset=UTF-8\n\n"
p "表示"

Rails　Rails Framework Documentation

http://127.0.0.1/mysql/

http://127.0.0.1:3000/　http://127.0.0.1:3000/recipe/list

http://127.0.0.1:3001/　http://127.0.0.1:3001/recipe/list

http://127.0.0.1:3001/account/signup　http://127.0.0.1:3001/test

http://127.0.0.1:3001/item

Hot Chips (delete) Snacks 2004-11-11

Ice Water (delete) Beverages 2004-11-11

Killer Mushrooms (delete) Snacks 2005-09-13

満足せる豚。眠たげなポチ。:Rolling with Ruby on Rails - Japanese Translation - p1

満足せる豚。眠たげなポチ。:Rolling on Ruby on Rails - Japanese Translation - p5

BookmarkOnInstantRails

ITmedia エンタープライズ：第1回　Instant Railsで始めるWindows環境のRails (1/2)

developerWorks Japan

DROP TABLE IF EXISTS `items`;
CREATE TABLE items (
id int(11) NOT NULL auto_increment,
login varchar(80) default NULL,
password varchar(40) default NULL,
PRIMARY KEY (id)
);

えぇてるのぉと:Railsでログイン認証 - livedoor Blog（ブログ）

8 app/views/test/index.rhtmlの編集
<h1>Test#index</h1>
Welcom <%= @session['user'].login %>!

config/environment.rb に以下の行を追加する。
module LoginEngine
config :salt, "your-salt-here"
end
Engines.start :login

http://techno.hippy.jp/rorwiki/?Wiki%A4%F2%BA%EE%A4%C3%A4%C6%A4%DF%A4%EB%2F%A5%E6%A1%BC%A5%B6%A1%BC%A4%F2%C7%A7%BE%DA%A4%B9%A4%EB

パパブログ: RoR ： login_generator ： login中のユーザ情報の取得

@session['user'].id
@session['user'].login
@session['user'].password
で、idやloginが取得できる。
ちなみにidはActiveRecordおなじみのidで、
loginがログイン名、passwordがパスワードになる。

MySQL-Front　download

環境変数

;C:\nonidata\InstantRails\ruby\bin;

cd C:\nonidata\InstantRails\ruby\bin

C:\nonidata\InstantRails\ruby\bin>gem install login_generator

Successfully installed login_generator-1.2.2

C:\nonidata\InstantRails>cd C:\nonidata\InstantRails\rails_apps\cookbook

C:\nonidata\InstantRails\rails_apps\cookbook>ruby script/generate login Account

create lib/login_system.rb

C:\nonidata\InstantRails\rails_apps>cd C:\nonidata\InstantRails\rails_apps\cookbook

C:\nonidata\InstantRails\rails_apps\cookbook>ruby script/generate controller test

exists app/controllers/

[Ruby] Rails(ActiveRecord)の多対多関連 - yuum3のお仕事日記

has_one
has_many
belongs_to
has_and_belongs_to_many

habtm と has_many :through (ActiveRecord)

ヽ( ・∀・)ノくまくまー(2006-01-20)

ActiveRecord の歩き方 - Association 編(1) - Rails で行こう！ - Ruby on Rails を学ぶ　has_many :comments

developerWorks Japan 　has_one :address

Rubyist Magazine - RubyOnRails を使ってみる【第 3 回】 ActiveRecord

create メソッドを使うこともできます。create は new したあと save (DB に格納) します。

Rubyist Magazine - RubyOnRails を使ってみる【第 4 回】 ActionPack

find(:all, :conditions => ["user_name = ?", user_name])
find_all(["user_name = ?", user_name])
find_all_by_user_name(user_name)

Part2　Rubyに学ぶ「Ruby on Railsの正体」：ITpro
book = Product.find_or_create_by_name_and_price('book', 2079)
リスト7●productsテーブルからnameが'book'，priceが2079であるようなProductオブジェクトを読み取り，存在しなかった場合はデータベースにレコードを新規作成する処理

RoR Wiki 翻訳 Wiki - HowToUseLegacySchemas
恣意的で複雑なクエリや、主キーを持たないテーブルにはfind_by_sqlを使う
テーブルが論理的な主キーを持たないなら、
find_by_sqlを使えば主キーを全く指定しない曖昧で複雑なクエリを実行も実行できる。
Post.find_by_sql ["SELECT * FROM posts WHERE author = ? AND created > ?", author_id, start_date]

エディタ　utf8

文字化け

ヽ( ・∀・)ノくまくまー(2006-10-11)

チュートリアルを動かしてみる - 肩書「シニアコンサルタント」のつぶやき

Railsでソーシャルブックマークを作ってみようか（第1回） - 坊やがゆく

ようこそ<%= @session['user'].login %>さん
@session['user'].id

Railsでソーシャルブックマークを作ってみようか（第2回） - 坊やがゆく

Railsでお馴染み37signalsのURLが凄い件について:TKMR.blog.show

URLにキーワードを含めことでSEO対策になるかも、でもそれだけ:TKMR.blog.show

http://127.0.0.1:3001

http://127.0.0.1:3001/recipe/list

tetraの外部記憶箱 - Instant Railsのインストール , 追記：phpMyAdminの日本語環境設定 , 未踏ソフト記事

[Ruby]PHP VS Rails (Ruby on Rails)

Permalink | 記事への反応(2) | 00:02

2007-04-03

■FC6でXenのdom-Uを自動起動する方法

FC6で電源投入時にXenのdom-Uを自動起動する方法

xenの設定ファイルを/etc/xen/autoにシンボリックリンクする。

例

#ln -s /etc/xen/winxp /etc/xen/auto

ただし、設定が

vnc=0

sdl=1

だと起動しませんでした。

vnc=1

sdl=0

だときちんと起動しました。

実際に何をやっているのかは、

/etc/init.d/xendomains

/etc/sysconfig/xendomains

の中をを見てください。

今使っている設定です。参考までにどうぞ。

name = "winxp"

builder = "hvm"

memory = "1000"

disk = [ 'file:/images/winxp0.img,ioemu:hda,w','phy:/dev/sdb,hdc,w']

vif = [ 'type=ioemu, mac=00:16:3e:32:23:85, bridge=xenbr1', ]

uuid = "4e845bfa-ab42-9cbe-ff02-ff877a83ef25"

device_model = "/usr/lib/xen/bin/qemu-dm"

kernel = "/usr/lib/xen/boot/hvmloader"

vnc=1

apic=1

acpi=1

pae=0

sdl=0

vcpus=1

serial = "pty" # enable serial console

on_reboot = 'restart'

on_crash = 'restart'

boot='c'

#/etc/xen/autoで検索すると同じようなページが見つかる　orz.

Permalink | 記事への反応(0) | 17:20

2007-01-29

■haXeでFlash Lite 2のSharedObjectを使う

MTASCでFlash Lite 2のSharedObjectを使う

http://anond.hatelabo.jp/20070118224057

↑に「リスナーを設定する必要があります。」とあるのでhaXeの↓に

(インストールフォルダ)\std\flash\SharedObject.hx

↓を追加する

#if flash
static function addListener(objectName:String, notifyFunction:Dynamic) :Void;
static function removeListener(objectName:String):Void;
#end

サンプルの内容は1でカウントアップ、3でカウントの表示。

でサンプル↓をSharedObjectHaxeRei.hxと名前をつけて保存。

import flash.MovieClip;
import flash.SharedObject;
import flash.Stage;
import flash.Key;

class SharedObjectHaxeRei
{
	static function main ()
	{
		var sor : SharedObjectHaxeRei = new SharedObjectHaxeRei (flash.Lib._root);
	}

	var Prefs : SharedObject;

	public function new (mc: MovieClip)
	{
		mc.createTextField ("tf", mc.getNextHighestDepth () , 0, 0, Stage.width, Stage.height);
		mc.tf.text = "SharedObjectHaxeRei\r";

		SharedObject.addListener ("Prefs",  loadCompletePrefs );

		// 共有オブジェクトを作成することができる
		Prefs  = SharedObject.getLocal ("Prefs");
		
		//キーリスナーの指定
		Key.addListener (this);
	}
	
	//キーアップイベントの処理
	public function onKeyUp () : Void
	{
		switch (Key.getCode ())
		{
			case 49 ://1 セーブ
			if (Prefs.getSize() == 0)  {
				Prefs.data.count = 0;
			} else {
				Prefs.data.count++;
			}

			case 51 ://3 ロード
				 if (Prefs.getSize() == 0) return;

				flash.Lib._root.tf.text = Prefs.data.count + "\r" + flash.Lib._root.tf.text;
			default :

		}
	}
	
	function loadCompletePrefs (mySO : SharedObject)
	{
		flash.Lib._root.tf.text = "call loadCompletePrefs: " + "\r" + flash.Lib._root.tf.text;
	}
}

コンパイルするにはSharedObjectHaxeRei.hxmlを作成して↓を記述

# SharedObjectHaxeReiのコンパイル用
-swf SharedObjectHaxeRei.swf
-swf-header 240:320:10
-swf-version 7
-main SharedObjectHaxeRei

上記を↓でコンパイルする。

haxe SharedObjectHaxeRei.hxml

Permalink | 記事への反応(0) | 23:25