てきとうメモ - cons @ wiki

Email

2010-08-06T11:42:34+09:00

**添付ファイルの自動処理 ***メールの添付ファイルの仕組み SMTPでメールを送信するとき、DATAコマンドに続いてメールの内容をMIME形式でテキストを送信する。 To:Display Name\r\n From:\r\n Subject: Content-Type:text/plain \r\n (本文のテキスト) 添付ファイルを含むメールは、本文のテキストを一つのpart、添付ファイルをエンコードしてMIME形式にしたものをもう一つのpartとしたmultipart MIMEとして送信される。添付ファイルを抽出するには、POPでmultipart MIMEを取得したあと、MIMEをパースしてファイルを取り出せばよい。 ***Perl use MIME::IMAPClient; use Email::MIME; use Email::MIME::Attachment::Stripper; Thunderbird 2.x から送られてくるメールのテキストの添付ファイルは抽出できない。原因は [[Thunderbird bug #65794>https://bugzilla.mozilla.org/show_bug.cgi?id=65794]] Content-Type: text/plain; Content-Disposition: inline; filename="...' なんでもかんでもinline扱い。とりあえず以下のようにすれば動く。 use Email::MIME::Attachment::Stripper; {package Email::MIME::Attachment::Stripper; sub _detach_all { my ($self, $part) = @_; $part ||= $self->{message}; return if $part->parts == 1; my @attach = (); my @keep = (); foreach ( $part->parts ) { my $

やっつけ仕事

2010-07-29T06:36:28+09:00

**CP932 (Windowsの日本語コード) ***Perl use Encode::Guess qw(cp932 utf8 eucjp); print encode("utf8", decode("Guess", (pack "s", 0x8740)));

REPL

2010-07-22T04:18:29+09:00

Read-Eval-Print Loop. interactive mode とも。意味合いは違うが、同じ機能を持つものをShellと呼んでいる場合も多い。 **Perl ***いつもの list perl -ne 'print eval, "\n> "' scalar perl -ne 'print eval. "\n"' perl -pe '$_=eval' ***perl debugger perl -de 0 ***Shell::Perl cpan> install Shell::Perl $ pirl pirl @> @a=(1, 2, 3); (1, 2, 3) pirl @> :set ctx $ pirl $> (1, 2, 3) Useless use of a constant in void context at (eval 17) line 1. 3 pirl $> :help 表示形式は以下から選べる。 pirl $> :set out [D|DD|DDS|Y|P] D : Data::Dump DD : Data::Dumper DDS : Data::Dump::Streamer Y : YAML P : Plain Data::Dumpではうまく日本語を表示できないようだが。 pirl @> "日本語" "\xE6\x97\xA5\xE6\x9C\xAC\xE8\xAA\x9E" ***Devel:PERL cpan> install Devel::REPL # apt-get install libdevel-repl-perl $ re.pl 起動がもたつく… $ my @a = (1, 2, 3); $ARRAY1 = [ 1, 2, 3 ]; $ { > my @a = (4, 5); > print "@a\n"; > } 4 5 1 $ print "@a\n" 4 5 1 $ exit *** psh csh

逐次実行

2010-07-22T04:06:55+09:00

**Scheme 基本の構文とマクロ (begin ...) (begin0 ...) (let (...) ...) (let1 x value ...) (when pred ...) 代入が続くときは (let* ( ... (data ...) (surf (cairo_create_image_surface_for_data ... data)) (cr (cairo_create surf)) (_ (cairo_rectangle cr ...)) ...))

Scheme/Lisp 処理系

2010-07-17T22:59:06+09:00

**Scheme Gauche PLT Scheme guile SCM TinyScheme mosh

繰り返し

2010-07-29T06:40:10+09:00

**Shell ***bash while true; do mplayer *.mp3; done ***csh ;と改行は重要 while(1); mplayer *.mp3 end loop: mplayer *.mp3 goto loop あるいは loop: mplayer *.mp3;goto loop **Scheme (for-each ... (iota n)) named-letをつかう (let loop (...) (... (loop ...))) **Arc (to i n (pr i))

*構造配列連結リスト **append ***R5RS (append list_1 list_2 ... list_n) - リストの連結 (let* ((a (list 1 2 3)) (b (list 4 5)) (c (append a b))) (set-car! (list-tail c 2) 'x) (set-car! (list-tail c 3) 'y) (values a b c)) => (1 2 3) (y 5) (1 2 x y 5) (append! list_1 list_2 ... list_n) - リストの連結 list1 ... list_n-1 が破壊される場合がある。 (define x (list 'a 'b 'c)) (set! x (append! x '(1 2 3)) x => (a b c 1 2 3) **concat ***javascript **indexOf **iota ***srfi srfi-1: (iota count [start] [step]) - 等間隔の数値をもつリスト (start start+step ... start+(count-1)*step) (iota 6) => (0 1 2 3 4 5) (iota 3 5 0.5) => (5 5.5 6) **join **lastIndexOf **length **list **list-ref ***R5RS (list-ref list index) (list-ref '(a b c d) 2) => c **memcpy ***C #include memcpy (void *dest, const void *src, size_t n); **pop ***Perl pop array - Pops and returns the last value of the array, shortening the array by one element. @a = (1, 2, 3, 4); pop (@a) => 4 "@a" => 1 2 3 **

文字列操作

2010-07-17T20:56:49+09:00

**append **slice **splice **strcmp **substr **substring

プラグイン/人気商品一覧

2010-07-17T20:47:48+09:00

プラグイン/コメント

2010-07-17T20:47:48+09:00

* コメントプラグイン @wikiのwikiモードでは #comment() と入力することでコメントフォームを簡単に作成することができます。詳しくはこちらをご覧ください。＝＞http://atwiki.jp/guide/17_60_ja.html ----- たとえば、#comment() と入力すると以下のように表示されます。 #comment