CGI Perl総合 (441ﾚｽ)
上下前次1-新
1(17): 名無しさん 2001/03/16(金)00:12 AAS
ぁ事件の後落ちぶれきった
ｺﾉ板の栄華を取り戻すべく
少し賢げな話しようぜ (ｵﾌﾟ
2(3): 名無しさん [sage ] 2001/03/16(金)00:42 AAS
#どこがイタイのでしょうか？
open(OUT,"|$mailer $address") || die "送信できませんでした\n";
$cgi = new CGI;
:
die if($cgi->param("realname") eq "");
$Etitle = $form{'titlename'};
$Ename = $form{'realname'};
$emale = $form{'mailaddr'};
$comment = $form{'comm'};
print OUT "Mail From Web\n";
省13
3(2): none [sage ] 2001/03/16(金)00:44 AAS
あってますか？#!/usr/local/bin/perl
$cnt_file = 'cnt.dat';
open(fp,"$cnt_file");
$cnt = <fp>;
close(fp);
++$cnt;
$len = length $cnt;
if ($len < $n) {
$imgfile = "0";
} else {
省25
4(2): obj [sage ] 2001/03/16(金)00:46 AAS
データファイルを読み込んで@LINESという配列に入れたとします。
配列の中身は
'23<>a<>0','26<>b<>5','14<>c<>3','30<>d<>9'
だったとして、$xxという変数にa〜dのいずれかの文字が入ります。
例えば$xxにcが入ったらcという要素を含む3要素目の'14<>c<>3'
の3を1増減、4にして
'23<>a<>0','26<>b<>5','14<>c<>4','30<>d<>9'
になった配列をデータファイルに上書き保存したいのですが
どのように組めばよいのでしょうか？
open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
省21
5(1): 名無しさん 2001/03/16(金)01:08 AAS
>>4
何がしたいのかさっぱりわからん。
これで良いのか？
open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
@LINES = <IN>;
close (IN);
$xx = "c";
foreach (@LINES) {
my ($t1, $t2, $t3) = split /<>/;
next unless $t2 eq $xx;
省6
6: 名無しさん [sage ] 2001/03/16(金)01:10 AAS
あ、いかんいかん。
foreachにはいるまえに chomp(@LINES)
出力は print OUT join("\n", @LINES);
7: 名無しさん [sage ] 2001/03/16(金)01:15 AAS
>>2
全部。0点。
・sendmail 使うなら -tとか使え。
・ヒアドキュメント使え。
・CGIモジュール使うなら、あえて%formにセットすることないだろ
・Content-type自分でださなくていいだろ。 CGIモジュールつかうなら。
・未定義値が欲しいなら eq undefするだろ、ふつー。
でdieしたらサーバーエラーになるだろ、自前ルーチンで表示させたれ。
8(1): 名無しさん [sage ] 2001/03/16(金)04:07 AAS
>>2
(1)ロックしないの？
(2)$nって何？
runmode用の変数？
(3)ファイルハンドルは大文字に統一すれ
謎の $nをつかった、$cnf_file.tmpをつかって
ロックというか、トランザクションをとってる
つもりなんだったら、たぶん、完全に間違い。
($nの設定時に排他処理してたらすまん）
というわけで、たぶん、あってません。
9(3): ふさふさ 2001/03/16(金)09:29 AAS
>１さん
httpで串刺してきたハゲに
ftpのリクエストを送信する
例の別プロトコル抜きのソースきぼーん！
10(2): 教えて 2001/03/16(金)17:22 AAS
昼間はいねえのか！ゴラァァァ！
11(9): 5-8 [sage ] 2001/03/16(金)18:20 AAS
おれは1じゃないよ。
>>8
すまん ×>>2 ○>>3
>>9
おれ、UGの人じゃないんで（爆）、それしらない。
JAVAアプレット連携させるのかなあ。
それとも 擬似サーバー立てといて、そのポートに
ftp://www.server:niseport/
とかでHTTPプロキシを外してアクセスさせるのかなあ。
>>10
省1
12(3): 9-10 [sage ] 2001/03/16(金)18:56 AAS
>>11
ｽﾏｿ、9も10もわいや。
スレ立てといてレスよこさねえとは、ふてえ野郎だなって思って
いらいらしてたんで、一発抜こうかなって思ってたとこだったんだ（*´ρ`*）
アプレットは使ってないよ。Perlだけ。
南国工房で前にみたけど、わかってることはこんな感じ。
串さして来たハゲ→htmlで出力された掲示板でやりたい放題
→出力されたhtmlはフレームが使われている→0%,100%で小さい方はもちろん不可視
→小さい方にftpをリクエストする、何かが仕込まれているらしい。
→ハゲは気づかずにいつも通りかきこを行い、送信ボタンを押す。
省7
13: 11 2001/03/16(金)19:27 AAS
>>12
南国工房ってとこもはじめて聞いた(^^;
手法は、11で書いた手法と同一だね。
書いてもいいけど、これぐらいなら、
そこらへんにころがってそうな気がするなあ。
誰か知らない？
14: 12 2001/03/16(金)20:07 AAS
おお、頼もしいこと言う人が、この板にも久々にあらわれたのぉ！
>そこらへんにころがってそうな気がするなあ。
ところがないのよ、あってもソースは公開してないんだよ。
送信ボタン押すとオラの生ＩＰが表示されるだけだっちゅーの。
自分の生ＩＰみて何が面白いと。。。何とかパクろうと思ったけどね。
ディレクトリ掘ってファイルいただくＣＧＩは持っているんだが、
ありゃ同一鯖でしか使えないわな。
オラもC言語でハローワールドをウィンドウに表示させることが出来るが
それじゃ話にならんわなー(T-T)
Ｃ言語の本読んでたら、髪の毛がたくさん抜け落ちてきてな
省2
15: 11 [ninty-one@mail.goo.ne.jp ] 2001/03/16(金)20:36 AAS
動作サンプルあったのがラクだから
動いてるところ教えてくれー。
# つか、今日、スケジュール遅れで納期のばしてきたのに。
# 客が知ったら激怒だろうな.....。
16: 12 2001/03/16(金)20:55 AAS
ありゃ、本命のサイトがわからなくなっちまった。
こっちの方も同じ仕組みだとは思うんだが
なんかtelnetが起動したぞ。。。？？
ま、いっか。↓
www.tok2.com/home/pat/ipget.html
17(1): 1 2001/03/16(金)23:49 AAS
俺は嬉しいぜ、、、、
みんな、、、、、書き込みｱﾘｶﾞｯﾁｭﾝ・・・・
>>9-10
FTPから抜くｶｳｿﾀで良いのか・・・？
手持ちのﾔﾂで合ってると思うが
漏れが変にｲｼﾞｯﾃ不安定な動作ｶﾏｽかも知れんが気にすんな (ｦﾌﾟ
つか違ったら拾ってｸﾚﾖ
http://server2047.virtualave.net/ibzrjp/count_p.txt
18(1): sage [sage ] 2001/03/16(金)23:54 AAS
>>17
頂きます。
有難うごぜーますだ。
19: 1 2001/03/16(金)23:55 AAS
ﾂｶﾖ
南国工房じゃ健作してもﾋｯｶｶﾝﾅｲﾖ
正式名称は南国CGI工場
今でもﾛｸﾞか遺跡が有る筈だから暇だったら探しとくさヽ(´,ー`)ノ
確か2ヶ所、、、Logeんﾄｺと、、、、
20: 1 [sage ] 2001/03/17(土)00:01 AAS
http://server2047.virtualave.net/ibzrjp/env.txt
http://server2047.virtualave.net/ibzrjp/crypt.txt
漏れのﾃﾞｨｽｺに放置されてた工場のﾌﾟﾄﾝのｿｰｽ
つか大したﾓﾝ無いﾈ
上下前次1-新書関写板覧索設栞歴
あと 421 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.495s*