■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
ＣＧＩ３分クッキング
Vol:026
発行日： 1999年10月8日
総発行部数： 1379部
（1999年10月7日現在）
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆PR◆--------------------------------------------------------------------
●おいしいお肉でお馴染の「いづつ屋」では、
只今１００名様限定キャンペーン中。
牛タンのみそ漬けを１０００円にてご奉仕中！
めちゃくちゃ美味しいお肉を、是非ご賞味下さいませ。
http://www.tanba-izutsuya.com/
--------------------------------------------------------------------◆PR◆
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆目次◆
●Ｗｅｂ新撰組ニュース
●今日の献立：ヨッ！人気者っ！！（その３）
●予告
●はぎちゃん今日のひとこと
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆PR◆--------------------------------------------------------------------
★★ 今年の就職活動は、ソフトバンクが贈る「ecareer」で決まり！ ★★
★★ ただいま学生登録すると、抽選でパソコン10台当たりますよ！ ★★
click< http://a.clickincome.net/md/dk?mid=78e5bd05c08f2fdf421a469b0ca1785a >
--------------------------------------------------------------------◆PR◆
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
●Ｗｅｂ新撰組ニュース
メールを使った新しい遊びを追及する「メールで遊ぼう！」。
現在会員数が1700名を越えました。
引き続き会員募集を行っておりますので、未だの方は、
http://www.web-kyoto.com/vmail/
へＧＯ！
Ｗｅｂ新撰組メンバー執筆のCGI参考書。
「Perlで作る楽しいCGI」は、エーアイ出版のエーアイムックNo.237。
内容についての御質問は、新撰組ＭＬ(http://www.web-kyoto.com/ml/)へ。
●今日の献立：ヨッ！人気者っ！！（その３）
プログラムの続きです。
さて、前回、ヨソのチャットからデータをそっくり盗んで来ました。
それを整形してあたかも自分が作ったように見せます。
盗んで来たデータのうち、必要なのは、みんなの書き込みデータです。
例えば、データの中身がこんな感じだったとしましょう。
---------------------------------------------------------
1:
2:
3:
4:White Board
5:
6:
7:[Top]
8:[言葉を教える]
9:[簡易版White Board]
10:
11:
20:はぎちゃん:ほえほえ〜〜
255.255
.255.255 at 9/16.12:49.JST |
21: はぎちゃん:ほえほえ〜〜
255.255
.255.255 at 9/16.12:49.JST |
22: はぎちゃん:ほえほえ〜〜
255.255
.255.255 at 9/16.12:49.JST |
23:
24:
---------------------------------------------------------
１行が長い所は改行を入れてますが、先頭に行番号を付けましたのでそれを見
ながら以下の説明を読んで下さい。
さて、必要なのは、上記のデータのうち20行目から22行目の部分だけです。
そこで、@buf変数から不要な部分を取ってしまいましょう。
----------------------------------
1:#!/usr/local/bin/perl
2:
3:$ChatURL='http://www.www.www/~kappa/chat.cgi';
4:$ChatHost='www.www.www';
5:$CgiName='./hninki.cgi';
6:
7:&GetFormdata;
8:
9:if(!$FORM{'action'}){
10: $action='show';
11:}else{
12: $action=$FORM{'action'};
13: $action='show' if($action ne 'write');
14:}
15:
16:if($action eq 'show'){
17: &httpSend("$ChatURL","$ChatHost",1,300);
18: for($i=20;$i<=$#buf;$i++){
19: last if($buf[$i] =~ /<\/body>/);
20: $dmy=$buf[$i];
21: &jcode'convert(*dmy,'euc');
22: push(@kakikomi,$dmy);
23: }
-----------------------------------------
18行目から23行目で、@kakikomi変数に、書き込みデータだけが入りました。
盗んで来たデータの日本語コードがeucでない場合を考えて、21行目で変換して
います。
では、これをキレイキレイにして表示させます。
-----------------------------------------
24: print <<"EOL";
25:
26:
27:
28:ニセモノチャット
29:
30:
31:ニセモノチャット
32: