Perlについての質問箱 29箱目

1 名前：デフォルトの名無しさん mailto:sage [2006/12/21(木) 22:35:39 ] "The duct tape of the Internet" こと、Perlについての質問箱です。 "There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。 CGIについての質問は板違いです。WEBプログラミング板でどうぞ。 CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。 (WEBプログラミング板 pc8.2ch.net/php/ ) CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。 このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 www.perl.org/get.html ● 2006/12/21現在の最新版: 5.8.8 ● 2006/12/21現在の開発版: 5.9.3 前スレ Perlについての質問箱 28箱目 pc8.2ch.net/test/read.cgi/tech/1162273941/ リンク集は>>2-3 過去スレは>>4 116 名前：109 mailto:sage [2006/12/29(金) 18:24:42 ] >>108=115 乙！ WindowsのActivePerl初心者による 似たようなQ&Aの再生産を回避するために テンプレートを設置しようというのはとてもすばらしいッス！ でも、 　・テキストモードとバイナリモード 　・ASCIIとマルチバイトコード 　・日本でのマルチバイトコードは複数の種類が存在すること 　・UTF-8以外でのマルチバイトコードの扱い を理解してないと結局はすぐにつまづくと思う。 でも、これを丁寧に説明してるとテンプレートで紙面が足りないから 結局「http://〜を読んで」、「binmode, Encodeでググると吉」 ってなっちゃうんだよね。。。 次ぎスレに115のテンプレを追加して様子を見るのがいいのかな。 117 名前：デフォルトの名無しさん mailto:sage [2006/12/29(金) 18:40:57 ] 両方うぜーよwebprogでやれ 118 名前：109 mailto:sage [2006/12/29(金) 21:07:36 ] >>117 うぜぇのは同意だけど、ウェブはかんけぇねだろバーカｗ 119 名前：デフォルトの名無しさん mailto:sage [2006/12/29(金) 21:10:13 ] レベル的に物凄く関係ありまふ 120 名前：デフォルトの名無しさん mailto:sage [2006/12/29(金) 21:15:52 ] くだすれPerlだな 121 名前：デフォルトの名無しさん mailto:sage [2006/12/29(金) 21:24:28 ] 117のスルー力たんないからスレが荒れたな。 スルー力身につくまでおまえがROMるかwebprog行ってろ 122 名前：デフォルトの名無しさん mailto:sage [2006/12/29(金) 22:30:03 ] >>104 Jcode.pmにパッチあててなくね？ 123 名前：デフォルトの名無しさん mailto:sage [2006/12/29(金) 22:46:19 ] するーかって何だよ スルメイカかよ 124 名前：デフォルトの名無しさん mailto:sage [2006/12/29(金) 23:08:30 ] >>123 どうも「スルーする力（ちから）」という意味みたいだな。 それより、>>117にぴったりのスレがあるぞ。こっちで活躍したらどうだ 【Perl上級者コーナーPart01】 pc8.2ch.net/test/read.cgi/php/1024741312/l50 125 名前：デフォルトの名無しさん mailto:sage [2006/12/29(金) 23:24:05 ] ゾーキャスラー力を思い出す流れだが、まぁ通じないだろう。 126 名前：107 mailto:sage [2006/12/30(土) 00:21:53 ] >>112,113 できました！ありがとうございましたm(_ _)m 127 名前：デフォルトの名無しさん mailto:sage [2006/12/30(土) 09:48:58 ] www.google.co.jp/search?hl=ja&rlz=1B2GGGL_jaJP177&q=%E3%82%B9%E3%83%AB%E3%83%BC%E3%82%AB&btnG=Google+%E6%A4%9C%E7%B4%A2&lr= スルーカ の検索結果 約 173,000 件中 1 - 10 件目 (0.03 秒) 128 名前：デフォルトの名無しさん mailto:sage [2006/12/30(土) 09:53:09 ] Срука 129 名前：デフォルトの名無しさん mailto:sage [2007/01/01(月) 03:05:23 ] kent-web の sunbbs.cgi を改造しまくって使っています。 記事番号が奇数番号のときと偶数番号のときとで、 交互に違う情報を入れたいと思っているのですが、 perl で偶数と奇数を判別するのってどうやればいいんでしょうか？ 130 名前：デフォルトの名無しさん mailto:sage [2007/01/01(月) 03:07:15 ] %2 131 名前：デフォルトの名無しさん mailto:sage [2007/01/01(月) 03:14:40 ] ？ 132 名前：デフォルトの名無しさん mailto:sage [2007/01/01(月) 03:22:34 ] >>129 2で割った余りが0なら偶数、1なら奇数と判定すればOK 133 名前：デフォルトの名無しさん mailto:sage [2007/01/01(月) 07:26:19 ] 1 と and とって1ビット目が 0 か 1 かで判断してもおｋ 134 名前：デフォルトの名無しさん mailto:sage [2007/01/01(月) 15:02:29 ] >>132-133 例文でお願いしますです。orz 135 名前：デフォルトの名無しさん mailto:sage [2007/01/01(月) 15:12:55 ] >>134 この程度のこともわからないのに >kent-web の sunbbs.cgi を改造しまくって使っています。 なのか 136 名前：デフォルトの名無しさん mailto:sage [2007/01/01(月) 15:22:34 ] >>134 %2 137 名前：デフォルトの名無しさん mailto:sage [2007/01/01(月) 18:38:54 ] 巨大な数字ってどういうビット構造なんかな？ $a = 234; if ( $a & 1) { print "奇数" } else { print "偶数" } 138 名前：デフォルトの名無しさん [2007/01/02(火) 00:43:33 ] 詳解　正規表現 をかったんだよお年玉で 139 名前：デフォルトの名無しさん [2007/01/03(水) 10:43:45 ] ＷＩＮＤＯＷＳの鯖でファイルが書き込み可能かどうかを判断するにはどうしたらいいんですか？ ＷＩＮＤＯＷＳ鯖の場合だと if (-w $write_file_path) { print "書き込み可能\n"; }というプログラムがが使えないんです 140 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 11:06:17 ] >>139 == pc10.2ch.net/test/read.cgi/php/1164519503/635 マルチなので放置しましょう 141 名前：デフォルトの名無しさん [2007/01/03(水) 11:20:32 ] >>109 >use encodingは弊害がでかすぎるかと…。 kwsk. 　今まで、Jcode->new($hogehoge)->sjis; でちまちま変換していた者としては 　use encoding という技は新味ですyo. 142 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 14:25:47 ] うるう年かどうかを判別するプログラムが課題で出ているのですが $y=1900; if($y %4==0){ print "$y is a leap year.\n"; }elsif(($y %4==0) && ($y %100==0)){ print "$y is a common year.\n"; }elsif(($y %100==0) && ($y %400==0)){ print "$y is a leap year.\n"; }else{ print "$y is a common year.\n"; } これで1900を$yに入れても、うるう年になってしまいます。 1900をcommon year.にするには、どうすればよいのでしょうか？ 143 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 14:35:27 ] >>142 そういうのは400,100,4の順番に判定するんだよ 144 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 14:45:24 ] なんてほのぼのする質問だろう 145 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 14:52:27 ] 正直に課題って言ったのも好感ｗ 146 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 15:09:31 ] >>142 最初の条件 $y %4==0 が、「4で割り切れたら」だから、4で割り切れる数字は、 全てここで引っかかっちゃうよ。 147 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 17:45:10 ] （´・ω・）ﾔｻｼｽ 148 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 20:54:19 ] なんでうるう年は4年に一回なのに400と100も判定にいれるの？ 149 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 20:55:00 ] >>148 それは冗談で言っているんだよな。 150 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 21:13:58 ] 愉快なスレだな 151 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 21:22:42 ] use DateTime; my $y = 1900; if (DateTime->new(year => $y)->is_leap_year) {   print "$y is a leap year.\n"; } else {   print "$y is a common year.\n"; } こうですか？　よくわかりません＞＜ 152 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 21:25:31 ] ｱｯｰ! 153 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 21:27:16 ] >>151 反則です 154 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 21:31:37 ] しかし >>142 にはモジュールを使ってはいけないなんて一言も（ｒｙ まあ冗談だろうけど、実際に閏年の判定を書くとしたら >>151 なんだよなぁ・・・。 155 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 21:41:17 ] >>149 まあ、今後 90年以上は >>148 が正しいわけだが。 156 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 21:41:24 ] でもデフォルトで入ってたっけ？ 157 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 21:50:31 ] 最新のactiveperlには入ってた。 158 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 22:00:08 ] >>142の心温まる条件式を眺めてると、質問者に>>151を見て欲しくない気持ちになってきた。 159 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 22:20:40 ] 4000年で割り切れる年も入れないとね。 160 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 22:34:26 ] >>159 どんだけ先の話やねん 161 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 22:51:30 ] つ 「このように広く普及するのであれば、もっとちゃんとした設計を施すべきだった」 162 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 22:59:36 ] そんなに長いこと使われないだろうと思って作ったソフトが2000年問題とかの原因になったんだよな 1993年使われ続けることも考慮しとくべきだな 163 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 23:02:58 ] sub is_leap_year {     $j = shift() + 660;     unless ($j % 4) {         unless (($j - 660) % 100) {             return 0 unless ((($j - 660) / 100) % 4);         }         return 1;     }     return 0; } どぞ。 164 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 23:04:31 ] だが、心配のしすぎではないか。 165 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 23:08:42 ] もうまもなく4000年になろうとしているのに4000で割り切れる年を閏年にすべきか否かは未だ意見の分かれるところだね。 地球の自転が遅くなるからとか言うが。小賢しい。 166 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 23:10:06 ] そういってy2kが問題になってたんじゃないか。 だいたい時間を1970/01/01 00:00からの32bit整数であらわすのも心配だな。やっぱり64bitはほしいところだ。 167 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 23:20:41 ] 符号付 64ビット整数で紀元からのピコ秒数で数えることにすると紀元の前後300年弱しか表せない。 168 名前：デフォルトの名無しさん mailto:sage [2007/01/03(水) 23:26:13 ] perl -e "print scalar(localtime(0xffffffff/2));" だと「Tue Jan 19 12:14:07 2038」って出るが perl -e "print scalar(localtime(0xffffffff/2+1));" だと何も表示されないな perlは普通にでかい値扱えるから localtime関数も符号付32bitの上限超えても平気かと思ってたがだめなのか 169 名前：デフォルトの名無しさん mailto:sage [2007/01/04(木) 00:32:15 ] じゃあ紀元から符号付で128bitあれば足りるかな。 170 名前： ◆TWARamEjuA mailto:sage [2007/01/04(木) 00:35:18 BE:5336677-BRZ(6700)] コンパイル時に指定してあげれば、、、＠64bits 171 名前：デフォルトの名無しさん mailto:sage [2007/01/04(木) 09:43:47 ] ピコ秒って光が30cmしか飛べないんだぜ。 原子時計の精度が1ピコ秒なんだぜ。 どうやって計るんだぜ? 172 名前：デフォルトの名無しさん mailto:sage [2007/01/04(木) 13:46:03 ] >>168 表示はされたけど1901年だったわさ 173 名前：デフォルトの名無しさん mailto:sage [2007/01/04(木) 19:54:07 ] >>171 10E-16sオーダの時間の計測に成功したっていうニュースなら見た気がするが。 174 名前：デフォルトの名無しさん mailto:sage [2007/01/04(木) 20:23:27 ] 不確定性原理からいくと、最小の時間単位は何だっけ？ 175 名前：デフォルトの名無しさん mailto:sage [2007/01/04(木) 20:34:09 ] プランク時間か？ 176 名前：デフォルトの名無しさん mailto:sage [2007/01/04(木) 23:41:55 ] 当方perl初心者です。 全角スペースを半角スペースに置き換えたく、 ~s/\xA1\xA1/\x20/g としています。スペースの置き換え動作自体はするんですが、「ァー」や「ぁ！」などの文字列が文字化けするようになりました。 文字コードはEUCです。 コードを調べてみると「ぁ！」は A4 A1 A1 AA となっており、全角スペースと誤認してしまうようでした。 どのように解決したら良いのでしょうか、教えてください。 177 名前：デフォルトの名無しさん mailto:sage [2007/01/04(木) 23:49:59 ] require 5.8.1; use encoding 'euc-jp'; 178 名前：デフォルトの名無しさん [2007/01/04(木) 23:50:19 ] www.din.or.jp/~ohzaki/perl.htm 179 名前：176 mailto:sage [2007/01/05(金) 00:12:36 ] 解決しました。ありがとうございます。 180 名前：デフォルトの名無しさん [2007/01/05(金) 13:30:32 ] さんざんキシュツかもしれませんが、見つからなかったので質問。 Windows XP ActivePerl の環境で、system コマンドで呼び出したプログラムをバック グラウンド で動かしたい。どうすればよい？ 例えば、スクリプトはこんな感じ。 --- my $IE = "c:\\Program Files\\Internet Explorer\\IEXPLORE.EXE"; system ($IE, "www.hotmail.com"); --- 例えば、上記を test.pl としてセーブし、これを DOS 窓から呼びだすと、こんな感じでとまり、別プロセスとして実行してない。 --- C:\Documents and Settings\takasaks>perl e:/work/0my/scripts/test.pl _ --- 別プロセスで動かしたい、どうれすればよいのでしょうか？ 181 名前：デフォルトの名無しさん mailto:sage [2007/01/05(金) 13:41:21 ] system(1, ...); ActivePerl限定だった希ガス 182 名前：デフォルトの名無しさん mailto:sage [2007/01/05(金) 13:45:21 ] 日本語が得意なフランス人みたいな日本語だな。 183 名前：180 [2007/01/05(金) 14:54:17 ] すげー。うまくいった。ありがとう。m(_ _)m >>182 確かに今読み直すと変だね。 184 名前：デフォルトの名無しさん [2007/01/05(金) 21:25:20 ] 以前、(スクリプトが)短い掲示板がどっかに貼ってあったのですが検索しても見つかりません。 突然もう1度見たいのですが、どなたか知っている方居ませんか？ 1行に出来るんだから行数関係ないっていわれそうですが6行くらいで、掲示板として機能していたPerlのプログラムでした。 2chのどこで見たんだったかなぁ、、 185 名前：デフォルトの名無しさん mailto:sage [2007/01/05(金) 21:26:55 ] 七行プログラミング part5 pc10.2ch.net/test/read.cgi/tech/1142467359/ 186 名前：デフォルトの名無しさん mailto:sage [2007/01/05(金) 21:32:38 ] 七行プログラミング pc10.2ch.net/test/read.cgi/php/1036141603/ 187 名前：デフォルトの名無しさん mailto:sage [2007/01/05(金) 22:38:22 ] >>185-186 それっぽいです。 ありがとうございました。 188 名前：デフォルトの名無しさん [2007/01/06(土) 02:56:25 ] ダイス用のモジュールってありませんか？ $s に 3d20+10 のような文字が入ってたら、20面ダイスを3回振って結果に10を足す、ような。 $s に複数入っててもちゃんと計算してくれるのが良いです。更に言うと 1d6+5-4 のように加算減算も複数扱えると尚良いです。 自作しようかと思ったら結構フクザツで・・・。 189 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 03:32:00 ] search.cpan.org/~rjbs/Games-Dice-0.99_01/lib/Games/Dice.pm こんなんあったよ。 あとはsplitしたり調整したりするラッピングするだけで実装できるんじゃない？ そんなマニアックなものあるかよ！と思ったらあったｗ 恐るべしCPAN 190 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 03:37:50 ] 置換 + evalで出来るよと言おうとしたけどＣＰＡＮに真面目なのがあったか。 ＣＰＡＮスゲー 191 名前：188 mailto:sage [2007/01/06(土) 04:23:08 ] おおー、CPANにあるんですね！ 最近 Perl と離れてたんですが、やっぱり便利だ！ ありがとうございました。 192 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 21:10:42 ] 正規表現で()を後方参照としてではなく、ただの括弧としてマッチさせたい場合どう書けばいいんでしょうか 193 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 21:13:44 ] (?:re) 194 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 21:14:04 ] (?:pattern) つperlre 195 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 21:34:41 ] おおぅ、それグループ化のみだと思ってました ありがとうございます 196 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 21:39:55 ] \( ではないのか 197 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 21:48:35 ] 括弧としてマッチさせるには　\(　が正しいみたいです お騒がせしてすみません >>196 ありがとうございます 198 名前：デフォルトの名無しさん [2007/01/06(土) 22:19:53 ] すいません、ちょっと質問ですが、 Perl モジュールをＣＰＡＮに登録して公開するときって、 ＧＰＬライセンスでいいんですか？ ja.wikipedia.org/wiki/%E3%82%A2%E3%83%BC%E3%83%86%E3%82%A3%E3%82%B9%E3%83%86%E3%82%A3%E3%83%83%E3%82%AF%E3%83%BB%E3%83%A9%E3%82%A4%E3%82%BB%E3%83%B3%E3%82%B9 それとも、この Artistic License ですか？ 199 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 22:26:32 ] Module::License::Reportなんてのがあるくらいだし Apache Licenseとかも混じってるし www.google.co.jp/search?num=50&q=site%3Acpan.org+license なんでもいいんじゃない？ 200 名前：デフォルトの名無しさん mailto:sage [2007/01/06(土) 23:42:21 ] >>198 GNUプロジェクトによれば、首尾一貫性と均一性のためにperlと同じライセンス (GPLとArtistic Licenseのデュアルライセンス)を適用することを推奨されている。 <blockquote cite="www.gnu.org/licenses/license-list.ja.html"> Perl のライセンス このライセンスでは、Artistic ライセンス とGNU GPLのどちらかを選択できるとしています。 言い換えれば、あなたはこれらの2ライセンスのどちらかから選べるということです。 フリーソフトウェアのライセンスに要求される条件は満たしますが、本物のコピーレフトとは言えないかも知れません。 選択肢の一つとして GNU GPLがありますので、GNU GPLとは矛盾しません。 Perl 4 や Perl 5 用のパッケージを書く場合には、Perl プログラミングの世界における首尾一貫性と均一性を促進するために、 このライセンスを適用されることをお勧めします。Perl 以外の分野では、単に GNU GPL を使う方が好ましいので、 このライセンスを使わないよう強くお勧めします。 </blockquote> が、好きなライセンスにすりゃ良いんじゃない？ ついでにperlmodstyleには <blockquote> Licensing Make sure that your module has a license, and that the full text of it is included in the distribution (unless it's a common one and the terms of the license don't require you to include it). If you don't know what license to use, dual licensing under the GPL and Artistic licenses (the same as Perl itself) is a good idea. See perlgpl and perlartistic. </blockquote> とある 201 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 02:04:43 ] 修正BSDとかMITとかもあるけど。やっぱりGPL/Artisticのデュアルライセンスにしとくのがいいかな。 202 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 05:25:31 ] [1-9.]のみで構成される文字列を表示したいのですが if ( $text =~ "[1-9.]" ) { 　print "$text \n"; } だとうまくいきません。 どのように修正すればいいですか？ 203 名前：デフォルトの名無しさん [2007/01/07(日) 05:25:42 ] (?:　って変数に入れないようにするやつでしょ？ 204 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 05:28:07 ] print "$&\n" if $text =~/[1-9.]/; 205 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 05:32:00 ] 文字列だった。すまん 一つだけなら /[1-9.]+/ すべてなら print(join(',', /[1-9.]+/g)); 206 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 06:01:09 ] #!c:\usr/bin/perl　←だとアクセスできますが、 #!usr/bin/perl　←だとアクセ500のエラーがでます。 ３時間探しましたが答えが見つかりませんでした。 よろしくお願いします。 os:win2000 webserver:apache 2.059 active perl 207 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 06:04:39 ] >>206 #!/usr/bin/perl 208 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 06:05:19 ] スラッシュ一個たんなくね？ ×#!usr/bin/perl ○#!/usr/bin/perl 209 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 06:09:07 ] >>207-208 いろいろやっていくうちに"/"が消えてました。 やっとゴールにたどり着きました。ありがとうございました。 210 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 06:25:02 ] >>205 説明不足ですみません。 $text = "12:24" なら $textの表示そのものをしない $text = "3.142" なら表示する というような不要な文字が1つでもあれば 無視するといった感じのものが作りたかったのです。 よろしくお願いします。 211 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 06:30:58 ] $text =~/^[1-9.]+$/ and print "$&\n"; 212 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 06:32:14 ] printのとこ、$textじゃなくてわざわざ$&で出力する意味あるの？ 213 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 06:35:49 ] 短縮。 214 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 06:40:16 ] >>211 無事作成できました。ありがとうございました。 215 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 07:26:19 ] 2chのdatファイルを、差分で取得したいのですが、どのようにしたらよいのでしょうか？ 216 名前：デフォルトの名無しさん mailto:sage [2007/01/07(日) 08:09:31 ] If-Modified-Since と Range をつけて叩いて 206|304|416 のどれかをもらうようにする

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef