Basic Werk | Blog | Contact


MEMOMEM

20130630_Gauche_study



Gauche の勉強メモ



(define html "<p>This is a a a <em>text</em>.</p>")
;; Perl でいうところの、 ;; $foo =~ s/regex/repracement/g; (regexp-replace-all #/<.+?>/ html "") ;; -> "This is a a a text."
;; グローバルマッチでマッチした文字列のリストを返す (use gauche.generator)
(define (m/re/g re str) (map rxmatch-substring (generator->list (grxmatch re str))))
(m/re/g #/\w+/ html) ;; -> ("p" "This" "is" "a" "em" "text" "em" "p")
;; 重複したリストを省く (delete-duplicates (m/re/g #/\w+/ html)) ;; -> ("p" "This" "is" "a" "em" "text")
;; 例えばこんな感じで ;; ブラックリストを作っておき (define (is_ng? x) (if (< (string-length x) 2) #t #f))
;; ブラックリストを省く (remove is_ng? (delete-duplicates (m/re/g #/\w+/ html))) ;; -> ("This" "is" "em" "text")


文字列の出力、日付、format 数値左0埋め。



;; Perl でいうところの ;; open my $out, ">", "file"; (define out (open-output-file "file" :if-exists :supersede)) (format out "This is a text.\n")
;; 日付は srfi-19 を use する (use srfi-19) (define today (current-date)) (format out "And Today is ~4,'0D/~2,'0D/~2,'0D.\n" (date-year today) (date-month today) (date-day today))
;; Perl でいうところの ;; close $out; (close-output-port out)
;; file の中身は ;; This is a text. ;; And Today is 2013/07/01.


参考:

6.13 正規表現

http://practical-scheme.net/gauche/man/gauche-refj_51.html


9.8.2 Generator operations

http://practical-scheme.net/gauche/man/gauche-refj_82.html#Generator-operations


リストから重複する要素を取り除く - Gaucheクックブック

http://d.hatena.ne.jp/rui314/20070219/p1


6.22.8 出力

http://practical-scheme.net/gauche/man/gauche-refj_60.html#g_t_00e5_0087_00ba_00e5_008a_009b


#Gauche #Scheme #Lisp #Regex



SN 2013/07/01 00:55:19

Archives > 20130630_Gauche_study.html