From k.okabe ＠ ntt-bb.com Tue Oct 1 19:51:46 2002 From: k.okabe ＠ ntt-bb.com (Keiichi Okabe) Date: Thu Aug 5 00:22:52 2004 Subject: [Tokyo.pm] =?iso-2022-jp?B?UmU6IFtUb2t5by5wbV0gORskQjduTmMycSROSnM5cBsoQg==?= References: <20020927184454.24303796.835467489@tokyo.pm.org> <20020928003053.737029.44564521@tokyo.pm.org> Message-ID: <008301c269ad$e2564b00$9c6610ac@nttbb.com> 岡部です． ----- Original Message ----- From: "MIYATA Yoichi" Sent: Saturday, September 28, 2002 1:31 AM Subject: [Tokyo.pm] 9月例会の報告 > 大学施設（大学関係者）、区の施設（区職員）、都の施設（都職 > 員）、場所を提供してくれそうな会社など、少しでも心当たりのあ > る方メールください。 中央大学理工学部の知り合いに聞いてみました．無料で借りるのは むりです．日本学術会議登録団って所に登録してある団体（学会とか） だけだそうです．有料でなら借りられるだろうけど，やったことなくて わからないということなので，事務室にメールしてみようと思ってます． それから，100人ぐらい入るところでどこかよいところがないか聞いて 見たんですが，文京シビックセンターというのを教えてもらいました． http://www.city.bunkyo.tokyo.jp/shisetsu/hall/index.html 多目的室 (268.75m^2) で一日 35,600 となってます． 使用承認は申し込み順，使用日が重なった場合は抽選だそうです． 受付期間は使用日の3ヶ月前の1日から使用日まで 場所はここ http://www.city.bunkyo.tokyo.jp/shisetsu/map/map_b3.html 机とかいすとかの料金が入ってるかどうかはわかりません． 以上です． --- k.okabe@ntt-bb.com 岡部 恵一 成功出於衆者、先知也、先知者、必取於人、知敵之情者也 孫子 用間篇 第十三 From maeda ＠ tokyo.pm.org Tue Oct 1 20:04:37 2002 From: maeda ＠ tokyo.pm.org (maeda@tokyo.pm.org) Date: Thu Aug 5 00:22:52 2004 Subject: [Tokyo.pm] Re: [Tokyo.pm] =?ISO-2022-JP?B?ORskQjduTmMbKEI=?= =?ISO-2022-JP?B?GyRCMnEkTkpzOXAbKEI=?= In-Reply-To: <008301c269ad$e2564b00$9c6610ac@nttbb.com> References: <20020927184454.24303796.835467489@tokyo.pm.org> <20020928003053.737029.44564521@tokyo.pm.org> <008301c269ad$e2564b00$9c6610ac@nttbb.com> Message-ID: 前田です。 岡部さん> 文京シビックセンターというのを教えてもらいました． 文京シビックセンターは借りるのに文京区在住or文京区に通勤してない とダメかもしれません。私は文京区に通勤してますので、ここを使うと きは私が作業するかな。 ------------------------------- Avatar Md+ d/=□=\. Md+ 前田 薫 maeda@tokyo.pm.org 75t 170km/h AFC50 O \*oo*/ " LG+ LG+ Tokyo.pm http://tokyo.pm.org HeatSink 15 LRM10 .=X￣X=. LRM10 ------------------------------- Armor 2164 Md+ _|_ _|_ Md+ From utashiro ＠ iij.ad.jp Wed Oct 2 00:39:33 2002 From: utashiro ＠ iij.ad.jp (Kazumasa Utashiro) Date: Thu Aug 5 00:22:52 2004 Subject: [Tokyo.pm] =?iso-2022-jp?B?ORskQjduTmMycSROSnM5cBsoQg==?= In-Reply-To: <20020928003053.737029.44564521@tokyo.pm.org> References: <20020927184454.24303796.835467489@tokyo.pm.org> <20020928003053.737029.44564521@tokyo.pm.org> Message-ID: <20021002.143933.124085364.utashiro@iij.ad.jp> From: MIYATA Yoichi Subject: [Tokyo.pm] 9月例会の報告 Date: Sat, 28 Sep 2002 01:31:56 +0900 > いつものように与太話がメインですが、それは省略するとし、 > YA\w+Cがらみだけ記憶に残っていることをまとめておきます。 > 不足等ありましたらどんどんご指摘ください。 > > ・YA\w+Cってなんて読むの？ > ・ヤドットシー > ・\w+ってドットじゃないじゃん > ・なんでも読みたいように読めばよいのでは > ・開催は？ > ・来年の4月中旬 > ・3月なら春休みの大学施設が借りられるかも > ・4月中旬までに開催ということで会場をどうするか > ・100人以上入る会場となるとなかなか難しい > ・プログラムは？ > ・予算は？ > ・広報は？ > ・とにかく会場選定が最優先 > > ということで会場候補を大募集！！ 使ったことないので、詳しいことはわかりませんが、ここは安いですよ。 国立オリンピック記念青少年総合センター http://www.nyc.go.jp/index.html あと、本当に思い付きですが、 世田谷パブリックシアター http://www.setagaya-ac.or.jp/sept/index.html とか、どうなんでしょう。料金は web には載ってない。 --utashiro From dankogai ＠ dan.co.jp Wed Oct 2 02:41:31 2002 From: dankogai ＠ dan.co.jp (Dan Kogai) Date: Thu Aug 5 00:22:52 2004 Subject: [Tokyo.pm] [Encode] use encoding made practical! Message-ID: <5DFEBDBC-D5DA-11D6-BC82-0003939A104C@dan.co.jp> 弾です。 現在CGIの本を書いているのですが（何匹目のどぜう、という言い方もあるけど）、初心者向けとはいえ、やはり日本語の扱いを避けるわけにはいかないの はご存じのとおりです。当然 jcode.pl か Jcode.pm を紹介する、というのが今までのやり方でしたが、今回は堂々と Encode も取り上げます。 なぜかって？ s/小飼[　\s]弾/Dan Kogai/ が堂々と使えるからです。 とはいうものの、UTF-8でスクリプトを書け、なんてことは、エディタはとにかく端末がまだきちんと対応していない時点では言えません。そこで use encoding 'euc-jp'; が登場します。 ところがぎっちょん、それだけでは automagical に s/(らくだ|ラクダ|駱駝)/perl/ とは行きません。 にも関わらず、フォーム処理に CGI.pm を使っている限りは実にうまい方法があります。 enctype を multipart/form-data にしてしまうのです。 以下、ちょっと長いですが、テストCGIを添付します。EUC-JPで保存して動かしてみて下さい。$Methodや$Enctypeをいじって様子を 見てみて下さい。 なぜうまく行くかは、クイズとします。 あと eval qq{} もクイズ。 Dan the Encode Maintainer #!/usr/local/bin/perl # # Save me in EUC-JP! use 5.008; use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); our $Method = 'POST'; #our $Method = 'GET'; our $Enctype = 'multipart/form-data'; #our $Enctype = 'application/x-www-form-urlencoded'; our $Charset = 'euc-jp'; use encoding 'euc-jp'; my $cgi = CGI->new(); my %Label = ( name => '名前', kana => 'フリガナ', mailto => '電子メール', mailto2 => '電子メール(確認)', tel => '電話', fax => 'ファックス', zip => '〒', address => '住所', comment => 'ご意見', ); unless ($cgi->param()){ print_input($cgi); }else{ my $kana = $cgi->param('kana'); $kana =~ s/[\s　]+//g; # 期待どおりに機能します。 eval qq{ \$kana =~ tr/ぁ-ん/ァ-ン/ }; # $kana =~ tr/ぁ-ん/ァ-ン/; でないのはなぜでしょう? $cgi->param(kana => $kana); print_output($cgi); } sub print_input{ my $c = shift; print_html( $c, title => "Form:入力", name => $c->textfield(-name => 'name'), kana => $c->textfield(-name => 'kana'), mailto => $c->textfield(-name => 'mailto'), mailto2 => $c->textfield(-name => 'mailto2'), tel => $c->textfield(-name => 'tel'), fax => $c->textfield(-name => 'fax'), zip => $c->textfield(-name => 'zip'), address => $c->textfield(-name => 'address'), comment => $c->textarea(-name => 'comment'), ); } sub print_output{ my $c = shift; print_html( $c, title => "Form:出力", name => $c->param('name'), kana => $c->param('kana'), mailto => $c->param('mailto'), mailto2 => $c->param('mailto2'), tel => $c->param('tel'), fax => $c->param('fax'), zip => $c->param('zip'), address => $c->param('address'), comment => $c->param('comment'), ); }; sub print_html{ my $c = shift; my %arg = @_; print $c->header(-charset => $Charset), $c->start_html(-title => $arg{title}), $c->h1($arg{title}); $c->param() or print $c->start_form(-method => $Method, -enctype => $Enctype); print $c->start_table({border => 1}), $c->Tr([ $c->td([ $Label{name} => $arg{name} ]), $c->td([ $Label{kana} => $arg{kana} ]), $c->td([ $Label{mailto} => $arg{mailto} ]), $c->td([ $Label{mailto2} => $arg{mailto2} ]), $c->td([ $Label{tel} => $arg{tel} ]), $c->td([ $Label{fax} => $arg{fax} ]), $c->td([ $Label{zip} => $arg{zip} ]), $c->td([ $Label{address} => $arg{address} ]), $c->td([ $Label{comment} => $arg{comment} ]), ]); if ($c->param()){ print $c->td($c->a({href=>$ENV{SCRIPT_TEXT}}, "Retry")); }else{ print $c->td([$c->reset(), $c->submit()]), }; print $c->end_form() unless $c->param(); print $c->end_table(), $c->end_html(); } __END__ From k.okabe ＠ ntt-bb.com Mon Oct 21 21:25:57 2002 From: k.okabe ＠ ntt-bb.com (Keiichi Okabe) Date: Thu Aug 5 00:22:52 2004 Subject: [Tokyo.pm] Perl Quiz of the week Message-ID: <023501c27972$5aac5030$9c6610ac@nttbb.com> 岡部です． # tokyo-pm-list@pm.org 宛てに一度出したんだけど流れないようなので # もう一度 ご存じの方もいらっしゃると思いますが，Perl Quiz of the week というのを Mark-Jason Dominus さんが始めています． 参加するためのアドレスは perl-qotw-subscribe@plover.com アーカイブは http://perl.plover.com/~alias/list.cgi/0/ です． 先週の水曜日が#1 です．今日回答が流れるようです． 最初の問題はこんな感じです．（岡部流ちょ〜訳） ------------------------------------------------------- 'center'という関数を記述してください．この関数の引数は文字列の リストで，テキストの行を表しています．'center' は印刷時にテキスト を真中寄せすることができるように，テキストの先頭にスペースを 挿入し，修正したテキスト行を返します． 例えば center("This", "is", "a test of the", "center function"); は以下のリストを返します． " This", " is", " a test of the", "center function" これを印刷すると以下のようになるからです． This is a test of the center function --- k.okabe@ntt-bb.com 岡部 恵一 成功出於衆者、先知也、先知者、必取於人、知敵之情者也 孫子 用間篇 第十三 From maeda ＠ tokyo.pm.org Tue Oct 22 09:19:59 2002 From: maeda ＠ tokyo.pm.org (maeda@tokyo.pm.org) Date: Thu Aug 5 00:22:52 2004 Subject: [Tokyo.pm] Re: Perl Quiz of the week In-Reply-To: <00cb01c2789e$11b42620$9c6610ac@nttbb.com> References: <00cb01c2789e$11b42620$9c6610ac@nttbb.com> Message-ID: 前田です。 岡部さん> Perl Quiz of the week というのを 岡部さん> Mark-Jason Dominus さんが始めています． をを。 岡部さん> 'center'という関数を記述してください．この関数の引数は文字列の 岡部さん> リストで，テキストの行を表しています．'center' は印刷時にテキスト 岡部さん> を真中寄せすることができるように，テキストの先頭にスペースを 岡部さん> 挿入し，修正したテキスト行を返します． そういや昔、tabularってのを作ったことがあります。 \begin{tabular}{c|l|rr} moon&mars&jupiter&mercury\\ \hline usa&rei&makoto&ami\\ white&red&green&blue\\ \hline \end{tabular} を食わすと、 moon | mars | jupiter mercury ------------------------------ usa | rei | makoto ami white | red | green blue ------------------------------ って出るやつ。今ならlatex2htmlとかやってからw3mか? # しかし@|||とか@<<<を生成してformatを作るやつだったので、 # 今回の課題には生かせないな。 ## 入力形式も古ければ例も古い…… ------------------------------- Avatar Md+ d/=□=\. Md+ 前田 薫 maeda@tokyo.pm.org 75t 170km/h AFC50 O \*oo*/ " LG+ LG+ Tokyo.pm http://tokyo.pm.org HeatSink 15 LRM10 .=X￣X=. LRM10 ------------------------------- Armor 2164 Md+ _|_ _|_ Md+ From miyagawa ＠ edge.co.jp Tue Oct 22 09:37:53 2002 From: miyagawa ＠ edge.co.jp (Tatsuhiko Miyagawa) Date: Thu Aug 5 00:22:52 2004 Subject: [Tokyo.pm] Perl Quiz of the week In-Reply-To: <023501c27972$5aac5030$9c6610ac@nttbb.com> References: <023501c27972$5aac5030$9c6610ac@nttbb.com> Message-ID: <864rbeo7y6.wl@mail.edge.co.jp> 宮川です。 今朝、答えが来てましたね。 かなりアツかったです。 # やはりこれからはクイズか!? At Tue, 22 Oct 2002 11:25:57 +0900, Keiichi Okabe wrote: > > ご存じの方もいらっしゃると思いますが，Perl Quiz of the week というのを > Mark-Jason Dominus さんが始めています． -- Tatsuhiko Miyagawa From k.okabe ＠ ntt-bb.com Thu Oct 24 03:59:40 2002 From: k.okabe ＠ ntt-bb.com (Keiichi Okabe) Date: Thu Aug 5 00:22:52 2004 Subject: [Tokyo.pm] Quiz of the Week #2 Message-ID: <005001c27b3b$afe7dbd0$9c6610ac@nttbb.com> 岡部です． 先週も流したクイズネタですが，普通のクイズと，エキスパートのクイズ ってのがあるんですね．エキスパートの方は，文章を読むのがまず しんどいっす． (^^; # というわけで，エキスパートの方をちょっとちょ〜訳してみました． # 野球とばくってことですかね？ 一般的なんでしょうか． -------------------------------------------------------------- 田舎高校の野球部，Randal Schwartz High School Phoenixes がライバル の Richard M. Nixon Memorial High School Growlin' Fungus とシリーズで 試合をすることになりました．試合は最大5回で，どちらかのチームが3回 勝ったところで終了します．あなたは Phoenixsが勝つ方に $80 を賭けようと 思いましたが，胴元は一試合ごとにしか賭けを受けてくれません． （胴元は試合ごとに公平にお金を払います） 数学が得意な友達があなたの代わりに考えて，次のようなアドバイスを くれました． 最初の2ゲームには $30 賭けろ どちらかのチームが2連勝した時には $20を，そうでなければ $40賭けろ 第4試合があったときには $40 賭けろ 第5試合があったときには $80 賭けろ シリーズが終わったとき，Fightin' Quakers が勝っていればちょうど $80 手に入るし，Sewer Fungus が勝ってればちょうど $80 失うことになる このアドバイスは次のようにまとめることができます． スコアが．．． 0 対 0, $30 賭ける 1 対 0, 30 賭ける 1 対 1, 40 賭ける 2 対 0, 20 賭ける 2 対 1, 40 賭ける 2 対 2, 80 賭ける このような試合に関して，正しく掛け金を計算する関数を作りなさい． この関数に与える引数はシリーズ全体であなたが支払ってよいと 思っている金額，シリーズの長さ，現在のスコアで，例えば bet(80, 5, 2, 1) は 40を返します．つまり，$80賭けてよいと思っている5ゲームからなる シリーズで今チームが2対1ならば，賭けるべき金額は $40ということです． 同様に bet(1000, 7, 2, 1) は 375 を返します． （つまり，今やっているワールドシリーズで $1000 賭けるとするなら， 今夜の試合結果に $375賭ける必要があるということです．もし$1000 からこの関数の指示に従って始めていて，Giantsに賭けていれば $625 残っているはずですし，Angelsに賭けていれば$1375 残っている はずです．ワールドシリーズが知られていない場所に住んでいる人 のために説明すると，7試合中4試合勝てばよい連ちゃんの試合です． ちょうど今は Anaheim Angels が San Francisco Giants を2対1で 勝っていて今夜が第4試合になります．） --- k.okabe@ntt-bb.com 岡部 恵一 成功出於衆者、先知也、先知者、必取於人、知敵之情者也 孫子 用間篇 第十三