serian

// ==UserScript==
// @name           ldrquote
// @description    firefox、ldrで閲覧中の記事の選択範囲を、記事URLなどとともにクリップボードにコピーする。"q"で実行
// @version        0.1
// @include        http://reader.livedoor.com/reader/
// @privilege      true
// ==/UserScript==

//firefox,userChrome.js,userContent.jsでのみ動作確認
//ほんとはuserMenuでコンテキストメニューからやりたい。

serian

;Gauche
;システムの一時ディレクトリにファイルを上書きコピー
;キーワード引き数は小文字で

(use file.util)

(define src-file-name  "cptmp.scm")
(define src-dir "/d/home/serian")
(define tmp-file (build-path (temporary-directory) src-file-name))

serian

(define dist-file "some-path/dst-file")
(remove-files (list dist-file))

serian

;Gacuhe
;httpのレスポンスヘッダから任意のヘッダを文字列としてぬきだす
;ここでは一つだけあるset-cookieヘッダ。
(use rfc.http)
(use text.tree)

(receive (status header body)
    (http-get svr req-uri)
    (tree->string (car (string-split (tree->string (cdr (assoc "set-cookie" header))) ";"))))

serian

;リストを指定された長さに切り詰める
;scheme
(define (list-truncate lst num)
  (cond ((<= (length lst) num) lst)
	(else
	 (let ((dummy (make-list num)))
	       (map (lambda (pre post)
		      pre)
		    lst dummy)))))

serian

;文字列を最初に現れたデリミタ文字で2分割したリストを返す
;両端の空白は切り捨てられる。
;in
;str:文字列
;deli:文字(not文字列)
;ret:list
(use srfi-13)
(define (string-split2 str deli)
  (let ((pos (string-index str deli)))
    (list (string-trim-both (substring str 0 pos))

serian

from lxml import etree

            tree = etree.parse(file_path)
            date_str =tree.xpath('//first_retrieve/text()')[0]

serian

        csr = self.conn.cursor()
        csr.execute(SQL_GET_TAG)
        tags = {}
        for tag in csr:
            one = tag[0]
            if not one in tags:
                tags[one] = 1
            else:
                tags[one] += 1
  

serian

import tarfile

    tgzfile = tarfile.open(tgz_name,'w:gz')
    cp_dir = os.path.join(tgt_dir, cp_dir_name)
    if not os.exists(cp_dir):
        os.mkdir(cp_dir)

    for k, v in sorted(tgt_xml_dct.items(), key=lambda x:x[1]):
        tgzfile.add(k, os.path.join(cp_dir_name, os.path.basename(k)))
        shutil.copy(k, cp_dir)

serian

    suite = unittest.TestSuite()
    suite_a= unittest.TestLoader().loadTestsFromTestCase(SomeClassATest)
    suite_b = unittest.TestLoader().loadTestsFromTestCase(SomeClassBTest)

    suite.addTest(suite_a)
    suite.addTest(suite_b)
    unittest.TextTestRunner().run(suite)