*99の指定したCGIを*00が作るスレ (327レス)
1-

228: 02/12/20 23:38 ID:??? AAS
おまいら趣旨を理解しやがってください。
229
(1): 02/12/24 23:42 ID:2kS8TiT1(1) AAS
メリクリ
230: 02/12/25 17:15 ID:U7g6MD4O(1) AAS
>>229
クリメリ
231: 02/12/25 21:45 ID:??? AAS
ヴァリュクリ
232: 02/12/27 09:52 ID:PDegbcoZ(1) AAS
クリスマス以降寂れたのか?
233
(1): 02/12/31 10:34 ID:2j4SuGi0(1/2) AAS
100ではないが99のはこんなんで良いのか?
URL取得部分が激甘なのでmailtoとか他のサイトの部分まで拾って痛いが(藁

#!/usr/local/bin/perl -w
use Socket;
$boardList = "board_list.dat";
if(!(-e $boardList)) {
$method = "GET";
$host = "www.ff.iij4u.or.jp";
$path = "~ch2/bbsmenu.html";
$port = getservbyname('http', 'tcp');
省8
234: 02/12/31 10:34 ID:2j4SuGi0(2/2) AAS
続き

while (<SOCKET>){
m/^\r\n$/ && last;
}
open(LIST, "> $boardList");
while (<SOCKET>){
if($_ =~ /HREF=([^> ]+)/) {
print LIST "$1\n";
}
}
省8
235: _ 02/12/31 10:48 ID:gfphPIoL(1) AAS
外部リンク[htm]:freeweb2.kakiko.com
236: 02/12/31 13:16 ID:qLQW6luA(1) AAS
おゆ〜
237
(1): 03/01/04 20:27 ID:tm/4/3y9(1) AAS
>>233
もうちょっと読みやすくつくってクレ
238: 03/01/04 20:28 ID:??? AAS
>>237
読めないか?
239: 03/01/04 21:21 ID:uoWySJDJ(1) AAS
読みにくい。
注釈文をいれようょ
240: 99 03/01/05 14:51 ID:??? AAS
>>100
早く作れよ頃すぞ
241: 03/01/06 16:15 ID:vXxmrd3Z(1) AAS
あげ
242: 03/01/10 16:05 ID:??? AAS
Perl らしくない。
もうちょっと呪文を混ぜようょ
243: 03/01/11 12:22 ID:9FJE/Arw(1) AAS
Perl らしくない。
もうちょっと電波を混ぜようょ
244: [age] 03/01/11 12:32 ID:??? AAS
いいかげんそろそろ書かないとな、>>100 よォ!
245: 03/01/12 02:32 ID:??? AAS
いつくらいに>>100が頃されますか?
246
(1): 03/01/13 01:58 ID:zFhrRpi4(1) AAS
if($a == 1){
#--VBじゃねえんだぞ----
# $a = $a + 1;
$a++;
}
247: 03/01/13 09:26 ID:??? AAS
>>246
$aが初期値の0だと仮定するとそのループの中は一回も実行されない。

お前も似たようなレベルだ。
1-
あと 80 レスあります
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル

ぬこの手 ぬこTOP 0.007s