てきとうメモ - 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 $ct = $_->content_type || 'text/plain'; my $dp = $_->header('Content-Disposition') || 'inline'; push(@keep, $_) and next if $ct =~ m[text/plain]i && $dp =~ /inline/i && !(defined $_->filename); push @attach, $_; if ($_->parts > 1) { my @kept=$self->_detach_all($_); push(@keep,@kept) if @kept; } } $part->parts_set(\@keep); push @{$self->{attach}}, map { my $content_type = parse_content_type($_->content_type); { content_type => join( '/', @{$content_type}{qw[discrete composite]} ), payload => $_->body, filename => $self->{attr}->{force_filename} ? $_->filename(1) : ($_->filename || ''), } } @attach; return @keep; }}

繰り返し

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))

やっつけ仕事

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)));

*構造配列連結リスト **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 ***Gauche Macro: (pop! place) - (car place) を返し、place に (cdr place) をセットする (set! x '(1 2 3 4)) (pop! x) => 1 x => (2 3 4) Perlのshiftに近い **push **reverse **shift ***Perl shift array - 配列の先頭の値を除去し、その値を返す。配列が空の場合、未定義値が返る。definedで検出。 **slice **sort **splice **split **subseq ***Common Lisp ***Gauche (use gauche.sequence) (subseq '(a b c d e) 2 2) => (c d) **unshift ***Perl unshift array, list - Prepends list to the front of the array, and returns the new number of elements in the array. @a = (1, 2); unshift (@a, 3, 4, 5) => 5 "@a" => 3 4 5 1 2 **vector

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, bash といったような Unix shell としての perl shell.

トップページ

2010-07-22T04:15:50+09:00

てきとうメモ。計算機、プログラミング言語関連。

メニュー

2010-07-22T04:14:44+09:00

**メニュー -[[トップページ]] -[[プラグイン紹介>プラグイン]] -[[まとめサイト作成支援ツール]] -[[メニュー]] -[[メニュー2]] ---- count ... &counter() // リンクを張るには "[" 2つで文字列を括ります。 // ">" の左側に文字、右側にURLを記述するとリンクになります //**更新履歴 //#recent(20) &link_editmenu(text=ここを編集)

逐次実行

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-17T20:56:49+09:00

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