トップページ⇒php
982コメント439KB

【 スクリプト改造工房 PART 7 】

■ このスレッドは過去ログ倉庫に格納されています
0001sage03/09/17 15:28ID:ZcvVdw5C
　
#================================
# スレッドの説明
#================================

「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。

質問するときは以下の点に注意して書いて下さい

(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い

※答えてくれないからといって逆ギレする厨はお断り

過去ログ>>2
0002nobodyさん03/09/17 15:29ID:???
　
#================================
# 過去のスレッド
#================================

【PART1】行方不明
【PART2】行方不明
【PART3】http://pc.2ch.net/php/kako/988/988808396.html
【PART4】http://pc.2ch.net/php/kako/1012/10128/1012839651.html
【PART5】http://pc2.2ch.net/php/kako/1028/10281/1028193595.html
【PART6】http://pc2.2ch.net/test/read.cgi/php/1047806915/
0003nobodyさん03/09/17 15:41ID:???
もしかして行方不明のPart2ってこれか？
http://pc2.2ch.net/test/read.cgi/hosting/986986227/

まだ書けるぞｗ
0004nobodyさん03/09/18 01:52ID:ixewk0aN
おつかれぃ
0005nobodyさん03/09/18 07:44ID:???
早速ですが…
ttp://proxy.ymdb.yahoofs.jp/users/e2fdabc/bc/%a5%de%a5%a4%a5%c9%a5%ad%a5%e5%a5%e1%a5%f3%a5%c8/mkakikomitai.txt?bco2Uu_Ax0ZrFQaa
こちらのもっと書き込み隊というBBSにファイルアップロード機能をつけていただけませんか？
私は、プログラミングは高校でBASICを少し触った程度で、Perlの知識は全くないので、構造が全然わからないのです(´∀｀；)
0006503/09/18 08:15ID:???
ごめんなさい。
追加です。
できれば、画像をアップした時にプレビュー画像がでるようにしてくださると幸いです。
ややこしいこと言って申し訳ないです。
0007nobodyさん03/09/18 10:43ID:???
んなURL踏むかよ
0008nobodyさん03/09/18 10:52ID:???
まったく知識がないなら初めから画像掲示板を使え
0009すみません、長くなります。03/09/18 12:00ID:ixewk0aN
print "<SCRIPT language=\"JavaScript\">\n";
print "<!--\n";
print "// _dom : 0=other, 1=Mozilla, 2=NN4, 3=IE4/5\n";
print "_dom=(document.all?3:(document.getElementById?1:(document.layers?2:0)));\n";
print "function getDiv(nm){\n";
print " if(_dom==1) return document.getElementById(nm);\n";
print " if(_dom==2){\n";
print " var s='';\n";
print " for(var i=1; i<arguments.length; i++)\n";
print " s+='document.layers.'+arguments[i]+'.';\n";
print " return eval(s+'document.layers.'+nm);\n";
print " }\n";
print " if(_dom==3) return document.all(nm);\n";
print " return null;\n";
print "}\n";
print "function showLAYER(div){\n";
print " if(_dom==2)div.visibility='show'\n";
print " if(_dom==1 || _dom==3){div.style.visibility='visible'}\n";
print "}\n";
print "function hideLAYER(div){\n";
print " if(_dom==2)div.visibility='hide'\n";
print " if(_dom==1 || _dom==3){div.style.visibility='hidden'}\n";
print "}\n";
print "function setBGCOLOR(div,color){ \n";
print " if(_dom==2){div.bgColor=color ; return;}\n";
* print " if(_dom==1 || _dom==3){div.style.backgroundColor=color; return;}\n";
0010>>9-1003/09/18 12:00ID:ixewk0aN
print "}\n";
print "window.onload=BGC\n";
print "function BGC(){\n";
print " setBGCOLOR(getDiv('test0'),'#FFFFbb')\n";
print "} \n";
print "-->\n";
print "</SCRIPT>\n";


DHTMLやJavaScriptを用いて、ポップアップウィンドウを取り付けようとしてるんですが
*のついてるラインに「オブジェクトがありません」というエラーが出てきて動作してくれないんです。
Perl文法チェックもクリアし、また、HTMLファイルなら正常に動作しました。
*のラインを削除すればまた別の場所にガタが来てしまい、にっちもさっちも行きません。
何が原因なのでしょうか？
0011nobodyさん03/09/18 12:01ID:???
すみません、失敗しました。

>>9-10
です。
0012nobodyさん03/09/18 12:13ID:???
>>11
そりゃJavaScriptのエラーだ。板が違う
エラーそのものは、div が null だから。
00131103/09/18 12:16ID:???
>>12
ありがとうございます。
板違いすみませんでした。
別の板で訊いてみます。
0014nobodyさん03/09/18 12:58ID:YoW283GX
(´･∀･`）ﾍｰ
0015nobodyさん03/09/18 13:00ID:YoW283GX
( ･∀･)つ〃
0016nobodyさん03/09/18 22:31ID:???
上の方で似たような言われていて、煽られているのでこの注文をするのは恐縮なのですが、
CGICafeさんのもっと書き込み隊改造スクリプトLight Bbs(http://saya.kiy.jp/test_cgi/lbbs/lbbs.cgi)
に、同じくCGICafeさんのReference Book(http://saya.kiy.jp/test_cgi/rbook/rbook.cgi)にあるファイルアップロード機能を移植してほしいのです。

※CGICafeさんの鯖は不安定なようで、たまに503エラーがでますが、リロードしていただけると直ります。

スクリプトファイルはテキストにして、アップさせていただきました。
http://webplus.snow.ble.org.uk/lbbs.txt　こちらがLight BBSのスクリプト
http://webplus.snow.ble.org.uk/rbook.txt　こちらがReference Bookのスクリプトです。

Perlの知識は、紙谷 歌寿彦さんという方の「はじめての人のためのかんたんPerl/CGI入門」という本を全部やったぐらいです。
難しいことはわからないかも知れませんが、基本的なことならわかると思います。
手助けよろしくお願いします。
0017nobodyさん03/09/19 10:05ID:???
機能をひとつ追加するのって大変なんよ…
0018nobodyさん03/09/19 10:16ID:???
注文かぁ・・・
0019nobody ◆2chGAUCATE 03/09/19 14:23ID:vq53tWeh
URLジャンプを作りたいんですけど、
まず書き込まれたURLを
s/([^=^\"]|^)(http|ftp)(\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"jamp.cgi?site=$2$3\" target=\"_target\">$2$3<\/a>
にしてsite=[$2$3]の部分を取り出して、ジャンプするURLをひょうじしたいんだが、
どうやってやるか・・・・・・・・
0020nobodyさん03/09/19 14:28ID:???
ワケワカラン。

http://example.com/jamp.cgi?site=http://example.jp/hogehoge

ってURLにアクセスしたときにhttp://example.jp/hogehogeを表示したいって事か？
0021nobody ◆2chGAUCATE 03/09/19 15:44ID:???
>>20そう
わけ分からなくてｽﾏｿ
0022nobodyさん03/09/19 15:53ID:???
広告でも貼りまくろうってのか？
0023nobodyさん03/09/19 18:19ID:???
俺、つい三日くらい前に目からうろこが落ちたよ。
暗闇の中にいたはずが急に薄ぼんやりだけど明るくなって来た。
ハッシュとファイルの開け閉めがわかったとたんのことだった。
ようやく初心者段階にたどり着いたよ。
わかるかなぁ、この感動。
0024nobodyさん03/09/19 20:05ID:???
>>16
> 手助けよろしくお願いします。
うん、手助けしてあげる。
そのかわり、できる所まで自分で改造しる！
本を１冊やったんなら、そこそこできると思うし…
同じ作者のスクリプトだから移植性はいいと思うぞ。
(スクリプト見てないけど…)
0025nobodyさん03/09/19 20:43ID:???
2ch互換ｽｸﾘﾌﾟﾄでPATHINFO仕様にしているんですが、
例えば１つのﾚｽだけ表示する場合に、
http://pc2.2ch.net/test/read.cgi/php/1063780103/25n
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　~~~
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ↑
　　　　　　　　　　　　　　　　　　　　　　　　　　　 このn
を取るにはどうすればいいですか？
0026nobodyさん03/09/19 20:45ID:???
>>24
ありがとうございます。
しかし、この本、ほんとに初心者用で、すごく簡単なタイプのゲストブック程度を作るぐらいのレベルまでしか載っていないんです。
それにスクリプトはCGI Cafeさんがデザイン改造されただけで、もとの作者はBBSの方がTackyさんでアプロダの方はKentさんなんですよ(´･ω･)
私にできるのはせいざいアップに関係のありそうなスカラーをコピペするぐらいでしょうか。。
0027nobodyさん03/09/19 20:50ID:???
>>26
おまい前ｽﾚの590か？
0028nobodyさん03/09/19 20:59ID:IKKn6B4V
#ログ読込
open(IN,"$file") || &error("Can't open $file");
@lines = <IN>;
close(IN);
#$count初期化
$count = 0;

#ログ全部
foreach $line (@lines) {
local($name,$email,$url,$msr) = split(/<>/,$line);
#カウント処理
$count = $count + 1;
&output;
}

IE6とNN7とOperaを使ってます。

掲示板で、書き込みがあるカウント数に達する毎に<br>や</tr>等で
改行させるようにする事は可能でしょうか？

今のところ$countを使うことで書き込み1つ1つにカウント数を割り当てる事は出来ました。
ここから、例えば10カウント毎に</tr>を入れて改行させたいのですが
その方法はおろか可能かどうかもわからなくて不安でして・・・。

00292603/09/19 21:02ID:???
２ちゃんねるに書き込むのは１年ぐらい前にＰＣが起動しなくなった時Window板に書き込んだ時以来ですので違いますよ。
というよりDat落ちしてるのでその記事が読めないんですが、もしかして全く同じ注文なんですか？
0030nobodyさん03/09/19 21:57ID:???
>>28
#ログ全部
foreach my $count (0 .. $#lines) {
local($name,$email,$url,$msr) = split(/<>/,$lines[$count]);
print ($count%10 == 9) ? '</tr>' : '<br>' ;
}

みたいな？
00312803/09/20 02:56ID:???
すみません、レス遅くなりました。

>>30
ありがとうございます。
試してみたんですがエラーになってしまいました。
perl <tr> $count
などでググり、出てきた情報を頼りにあちこちイジってみましたが駄目でした。

ttp://www.kari.to/upload/source/d/1884.txt

こちらにスクリプトを上げておきました。（最初からこうすべきだった・・・。）
よろしくお願いします。
0032nobodyさん03/09/20 03:10ID:???
>>30をどう試して、どういうエラーが出たのか書いてくれんと。
003328 1/203/09/20 03:44ID:???
>>32
>>30のスクリプトをそのまま
#ログ全部
foreach $line (@lines) {
local($name,$email,$url,$msr) = split(/<>/,$line);
と入れ替えるとサーバエラーになりました。
文法をチェックしてみると
print (...) interpreted as function at tmp.pl line 116.
Useless use of a constant in void context at tmp.pl line 119.
Useless use of a constant in void context at tmp.pl line 119.
Unmatched right bracket at tmp.pl line 126, at end of line
syntax error at tmp.pl line 126, near "}"
tmp.pl had compilation errors.
↓エキサイト翻訳
tmp.pl 116行で機能として解釈された印刷(...)。tmp.pl 119行に無効の情況中の定数の役立たない使用。
tmp.pl 119行に無効の情況中の定数の役立たない使用。
tmp.pl 126行に無比の右ブラケットはライン・シンタックス・エラーの終わりに、
tmp.pl 126行で「}」tmp.plの近くで編集エラーを持っていました。

116行目はprint ($count%10 == 9) ? '</tr>' : '<br>' ;
119行目は$count = $count + 1;
126行目は }
です。

↓もう少し続きます。
003428　2/203/09/20 03:48ID:???
foreach my $count (0 .. $#lines) {
local($name,$email,$url,$msr) = split(/<>/,$lines[$count]);
print ($count%10 == 9) ? '</tr>' : '<br>' ;
}
の一番最後の｝を外すとサーバエラーにはなりませんが
「オブジェクトがありません」のエラーに。（これは記述ミスが原因のようです）
チェックすると

tmp.pl 116行で機能として解釈された印刷(...)。
tmp.pl 116行に無効の情況中の定数の役立たない使用。
tmp.pl 116行に無効の情況中の定数の役立たない使用。
一度だけ使用される名前「main::s2」:tmp.pl 77行に可能な誤植。
一度だけ使用される名前「main::s3」:tmp.pl 77行に可能な誤植。
一度だけ使用される名前「main::email」:tmp.pl 115行に可能な誤植。
一度だけ使用される名前「main::count」:tmp.pl 111行に可能な誤植。
一度だけ使用される名前「main::url」:tmp.pl 115行に可能な誤植。
一度だけ使用される名前「main::msr」:tmp.pl 115行に可能な誤植。
tmp.plシンタックスOK

116行目は print ($count%10 == 9) ? '</tr>' : '<br>' ;
77行目はlocal($s1,$s2,$s3,$s4) = split(/<>/,$line);
0115: local($name,$email,$url,$msr) = split(/<>/,$lines[$count]);

以上です。
0035nobodyさん03/09/20 04:04ID:???
＞<br>や</tr>等で 改行させるようにする
どっちがいいのさ？brだとするとこんなのでいいんじゃないの？

#$countの初期化
$count = 1;

#ログ全部
foreach $line (@lines) {
local($name,$email,$url,$msr) = split(/<>/,$line);
#カウント処理
$count++;
&output;
if($count%10 == 0){ print '<br>'; }
}
0036nobodyさん03/09/20 04:05ID:???
$count = 0; の間違い
0037nobodyさん03/09/20 04:11ID:???
×　print ($count%10 == 9) ? '</tr>' : '<br>' ;

○　print $count%10 == 9 ? '</tr>' : '<br>' ;
○　print ($count%10 == 9 ? '</tr>' : '<br>') ;
00382803/09/20 04:24ID:???
>>35-37
出来ました！
>>35の<br>を</tr><tr>にした所、ちゃんと改行されました。
勉強になりました。ありがとうございます。
0039nobodyさん03/09/20 04:29ID:???
10毎に</tr>入れるんだったら、<tr>も入れなきゃ…
00403903/09/20 04:29ID:???
おっと、遅すぎたなぁ～
逝ってくる…
0041nobodyさん03/09/20 04:32ID:???
イ㌔
0042nobodyさん03/09/20 17:48ID:???
つーか、なるべく正しいHTML吐くようにしようよう。
それやるなら、
</td></tr><tr><td>
だろう？
0043nobodyさん03/09/20 18:04ID:???
>>42
違うと思うぞ
すでに</td>でおわってると思うぞ
0044nobodyさん03/09/20 18:48ID:???
だな
0045nobodyさん03/09/20 21:06ID:???
>>29
ま、どうでもいいや。

兎に角、このｽﾚの>1にもあるように、
> (3) 少しは自分で考えること。

漏れたちはあくまでもお手伝いだからな。
全部やってもらおうと思うのは大間違いだからな。
>>29が改造して、どうしても出来ない部分だけをお手伝いするんだからな。

やれる範囲でいいから自分で改造しる！
0046nobodyさん03/09/20 23:18ID:???
KENＴさんとこの WebPatio　v.1.32　の改造で質問させてください。

このＣＧＩで同名のスレッドを立てようとすると
「重複しています。別のスレッド名を指定してください。」
となりエラーが出るのですが、これを回避する改造のやり方を教えてください。
自分で色々やったらおかしくなってしまいました。

なんとなく大幅な改造が必要な予感はしてるのですが
設置後半年経って、このことに気づいて焦ってます。
どなたかご教授願えないでしょうか？
0047nobodyさん03/09/20 23:34ID:???
>>46
# KENTのスクリプトみたいなstrictしてないソースなど見る気もしないが。
そのスクリプトはスレッドの判別をスレッド名で行っているようだが、
これをスレッドごとに適当なID（たとえば、スレッドを立てた時のepoch秒）とかを割り振り、
これによってスレッドの判別をするようにすればいい。

1.ログの記録構造を変更し、
2.ログの展開、収縮部分を新しい記録構造に対応させ、
3.スレッド名を扱っている部分を、全てスレッド名とスレッドIDを扱うように変更
で、完成。

ほうら、簡単だろ？
ここまで言えば、自分でできるよな？
0048nobodyさん03/09/21 11:21ID:???
前スレでお世話になった者なのですが、
ここのおかげ様で無事にタグ使用可能になりHPで使わせていただいているのですが、
使用方法のところにタグ使用不可能になっていたので直した所文字化けしました・・・。
どうすれば文字化けせずに表示させることが出来るのでしょうか?
839行目を変えました。ttp://up.isp.2ch.net/up/5e4ffb6e0b5a.cgi
よろしくお願い致します。
0049nobodyさん03/09/21 11:28ID:???
839行目はコメントだが…
0050nobodyさん03/09/21 12:07ID:???
>>48
おおかた、Shift-JISを"で囲って表示してんだろ。
Shift-JISの扱いに関してはこの板でも何度も何度も出てるのに、
何も読んでないんだな。
調べろ。ググれ。
0051nobody ◆2chGAUCATE 03/09/21 13:35ID:???
掲示板でのクッキーを保存するやり方
0052nobodyさん03/09/21 17:07ID:???
>>51
が、どうかしたんですか？
0053nobodyさん03/09/21 19:43ID:???
に興味があるってことかナー
名前は◆2chGAUCATE

やらないか
0054nobodyさん03/09/21 20:34ID:???
>>48
前ｽﾚ859の君か！
よく覚えてるよ。
いや、忘れられないといったほうがいいな…

いちばん簡単な方法を教えるよ。

タグ使用可能です　=>　タグ使用可です

これでバッチリだ！(笑
0055さすらい55403/09/21 22:23ID:???
http://.../../gazou/2003/09/21/gazou.jpg

のように、ディレクトリの/2003/09/21/の部分が
今日の日付になっている形式で保存された画像を、
自動的に読み出して、トップページの画像を更新するスクリプトを探しています。
トップページの画像へのリンクを自動的に今日の日付で
書き換えてくれるようなやつです。
↓のスクリプトを書き換えればできるらしいのですが、私には無理です。。
どなたかよろしくおねがいします。

<?
$time = time();
$ltime = localtime( $time , 1) ;
$day = sprintf( "%04d%02d%02d" , $ltime["tm_year"] + 1900 , $ltime["tm_mon"] + 1 , $ltime["tm_mday"] );
echo "img src=\"image/$day.png\"></td>\n";
}
?>



0056nobodyさん03/09/21 22:29ID:???
そもそもPHP使えるの？
0057さすらい55403/09/21 22:39ID:???
>>56
プロバイダーはぷららなんですが、ぷららのHPで今調べたところ
「Perl　バージョン5.005です。RubyやPHPは使えません」
と書いてありました。
0058nobodyさん03/09/21 22:51ID:???
ちょっと長くなりますけど。。。

#!/usr/bin/perl
$main_cgi = "download.cgi";
$this_cgi = "index.cgi";
#フォームデコード
@pairs = split(/&/,$ENV{'QUERY_STRING'});
foreach $pair (@pairs) {
($name,$value) = split(/=/, $pair);
$value = s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
#HTMLヘッダ出力
print "Content-type: text/html; charset=x-sjis\n\n";
print "<html><head><title>FileCopyMachine</title><!--nobanner--></head><body>\n";
if ($FORM{'url'} ne ''){
$url =$FORM{'url'};
print "<br>$urlのダウンロードを開始します<br>\n";
system("$main_cgi $url > /dev/null &");
}
#入力フォームをブラウザに表示
print "<form action=\"$this_cgi\" method=GET>";
print "コピー元ファイル名：<br>\n";
print "http://<;input type=text name=\"url\" size=100 value=\"\">\n";
print "<input type=submit value=\"転送開始\">";
print "<br><br><br><a href=\"./$this_cgi\">Reload</a>\n";
print "</form>\n";
print "</body></html>\n";
exit;
0059続き03/09/21 22:52ID:???
#!/usr/bin/perl
use Socket;
#ダウソ先ディレクトリ
$downdir="./";
#httpポート番号
$target_port = 80;
#コマンドラインより文字列取得
$target = $ARGV[0];
@temp; = split( /\//, $target );
$target_hostname = shift(@temp);
$file_name = pop(@temp);
$target = "http://$target";
#HOST→IP変換
$target_ip_address = inet_aton($target_hostname);
socket (SOCKS_,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
connect (SOCKS_,sockaddr_in($target_port,$target_ip_address));
#バッファを一旦抜く
select(SOCKS_);
$|=1;
select (STDOUT);
#接続先の鯖にファイル送出要求
print SOCKS_ "GET $target HTTP/1.1\r\n";
print SOCKS_ "Referer: $target_hostname\r\n";
print SOCKS_ "Host: $target_hostname\r\n";
print SOCKS_ "Accept: */*\r\n";
print SOCKS_ "User-Agent: Monazilla/1.00 (FileCopyMachine/0.10)\r\n";
print SOCKS_ "\r\n";
0060最後03/09/21 23:00ID:???
#ヘッダ飛ばしフラグ
$flags = 0;
open(FILE_,">$downdir$file_name");
while (<SOCKS_>){
if ($flags == 1){ print FILE_ $_;}
if ($flags == 2){ $flags = 1;}
if ($_ = /Content-type/i) { $flags= 2 ;}
}
close(SOCKS_);
close(FILE_);
exit;

--スクリプトここまで

とある本に載っていた、ファイルのサーバ間転送のスクリプトをそのまんま（ユーザエージェントなどは変更）写しました。
が、いくら「転送開始」ボタンを押しても、一向に転送が始まりません。
ちゃんと転送開始されていれば、ページ上部に「ダウンロードを開始します」と出るのですが、
それが出ないことから、
＞　if ($FORM{'url'} ne ''){
のところがあやしいと思ってるんですが。。。
くだらない質問かも知れませんが、よろしくお願いいたします。

ちなみに、>>58をindex.cgi >>59-60をdownload.cgiというファイル名で設置しています。
0061さすらい55403/09/21 23:02ID:???
>>58
難しそうですね。。。
どこを書き換えたらいいのかわからないです(´Д⊂
アポですみません。
0062さすらい55403/09/21 23:05ID:???
>>58
自分の質問へのレスかと勘違いしました。
>>60は無視してください。。
0063nobodyさん03/09/21 23:06ID:kPJ/tg2Z
>>61
いや、それは新規の質問でﾁﾐ宛の答えではなかろうｗ
0064さすらい55403/09/21 23:14ID:???
>>63
｡･ﾟ･（ﾉД｀）･ﾟ･｡
0065nobodyさん03/09/21 23:14ID:???
>>55
それはPHPのスクリプトだ。Perlしか鯖に入ってないなら、当然動かない。
もういいから本買って勉強しろ。
006658-6003/09/21 23:15ID:???
ごめんなさいねぇ。。。
まるで返答みたいな書きかたして。
0067nobodyさん03/09/21 23:18ID:???
>>58
$value = s/
　　　　　↓
$value =~ s/


print "<br>$urlのダウンロードを開始します<br>\n"; から下のことは知らんけど
0068nobodyさん03/09/21 23:29ID:???
>>64
で、さすらい554は↓について何もコメントせんのか？

△▲　WebProg 初心者の質問 Part5　▼▽
http://pc2.2ch.net/test/read.cgi/php/1060263267/607
0069nobodyさん03/09/22 00:30ID:???
>>67
チルダを見落としてましたか。ありがとうございます。
。。。が、今度はこんなエラーが出てきました。
syntax error at ./download.cgi line 13, near "; =" Execution of ./download.cgi aborted due to compilation errors.

なお、13行目は　$file_name = pop(@temp);
コメントと空行を削除して考えると　$|=1;
です。
変数名(?)が|(たてぼう)なのもおかしい気がしますが。。。
でも、本を見てもそう書いてあるんですよね。。。
0070未承諾広告※ ◆aiY4htt2.2 03/09/22 00:40ID:???
>>58-60
穴だらけのスクリプトな悪寒。
もったいないかもしれないけれどその本は捨てた方がよいかも。。。

>>69
$target = $ARGV[0];
@temp; = split( /\//, $target ); # ここが鰓。「@temp = 」だす。
$target_hostname = shift(@temp);
0071nobodyさん03/09/22 00:42ID:???
おっ！未承諾広告タンだ。批判要望板で出会って以来だ。
0072nobodyさん03/09/22 00:47ID:???
@temp; = split( /\//, $target );
　　　　　　　　↓
@temp =~ split( /\//, $target );

if ($_ = /Content-type/i) { $flags= 2 ;}
　　　　　　　　↓
if ($_ =~ /Content-type/i) { $flags= 2 ;}
0073nobodyさん03/09/22 00:48ID:???
>>69
自分で Syntax Error も取れないような奴が改造なんかしてんじゃねえよ！

>>70
あんた、業者か？
0074nobodyさん03/09/22 01:02ID:???
本当にみなさん、すみませんでした。おかげさまでなんとかうまくいったと思います。
ボケボケな質問ばかりで本当にすみませんでした。

穴だらけだなんだと言われてるんで、またどっかで似たようなスクリプト探してみようかと思います。
0075nobodyさん03/09/22 01:05ID:???
またどっかで似たようなスクリプト探してみようかと思います。
またどっかで似たようなスクリプト探してみようかと思います。
またどっかで似たようなスクリプト探してみようかと思います。
またどっかで似たようなスクリプト探してみようかと思います。
またどっかで似たようなスクリプト探してみようかと思います。

頼むからもう二度と来るな。
0076nobodyさん03/09/22 01:08ID:???
>>75
多分、来ません。
0077nobodyさん03/09/22 01:19ID:???
>>76
多分じゃ駄目だ。絶対に、にしとけ。
改造スレなのにスクリプト探しの話題を振ってくるような奴には、
二度とお目にかかりたくない。
0078nobodyさん03/09/22 10:54ID:???
別の参考書を探してみようかと思います、だったらまだましだったのにな
0079nobodyさん03/09/22 18:11ID:7DCR1SyV

KENTWEBのCOMCHATにROMの人数を表示したいです。
http://www.kent-web.com/chat/comchat.html

ソースに加えるものを教えてください。
0080nobodyさん03/09/22 18:12ID:???
まず、ROMの定義は何かね？
0081nobodyさん03/09/22 18:12ID:7DCR1SyV
ROMはチャットを観ている人
0082nobodyさん03/09/22 18:16ID:???
>>81
誰かにゆいチャットのソースを見せてもらえ。
あれが一番勉強になる。
0083nobodyさん03/09/22 18:19ID:???
わからねぇなら答えるなや
雑魚が
0084nobodyさん03/09/22 18:19ID:???
そのチャットを観ているのを知る（判定する）条件を聞いたんだが・・・
まあいいや
0085nobodyさん03/09/22 18:31ID:???
アホか？
チャットを見ているのはCGIを開いてる奴だろ
0086nobodyさん03/09/22 18:34ID:???
CGIにアクセスして、かつCHATに参加して無いもの（←だろ？）、、
というのは想像つくが、じゃあROMじゃなくなるのはどのタイミング？

定義も決められないのにプログラムかけるわけが無い
0087nobodyさん03/09/22 18:37ID:???
>>83
誰に言ってるの？
それに、このスレの趣旨を理解してるの？
0088nobodyさん03/09/22 18:46ID:???
ROMじゃなくなるのアクセスを辞めたときだろ
ばかじゃねえの
0089nobodyさん03/09/22 18:47ID:???
定義以前にただの頭がおかしいだけだろ
融通が利かない駄目人間か？
0090nobodyさん03/09/22 18:48ID:???
定義以前にただの頭がおかしいだけだろ
融通が利かない駄目人間か？
0091nobodyさん03/09/22 19:37ID:???
>>88
HTTPプロトコルの特性も知らない馬鹿ハケーン

>>89
>>90
論理で考えられない人間はプログラムなんかできないって。
やめた方がいい。マジで。
0092nobodyさん03/09/22 19:45ID:???
プログラムができる以前の問題として、お前みたいな奴は人間関係ができないだろ
0093nobodyさん03/09/22 19:57ID:???
>>92
誰に言ってる？　いや、マジで疑問なんだが。
しかも、それを言って何がどうなるか発展性のない内容だな。
さらに言えば、スレの趣旨と合ってない。
何が不満？　不満があるならその内容をきちんと言わなきゃな。
ここにいる連中はお前の友人でも家族でもなんでもないんだから、
何か言いたいことがあるんなら、きちんとわかるように言うべきだろう。

てか、そもそもアンタ誰？　>>79か？
0094未承諾広告※ ◆aiY4htt2.2 03/09/22 21:11ID:???
まーよーするに http で喋ってる状態では、チャットシステムのように参加している人数は確認できないってことなんですよ。

そのあたりを理解できていないのが過去に 1000GEX と宣ってた香具師がいたかのぉ（ｗ
0095nobodyさん03/09/23 12:27ID:???
程度低すぎ（　´,_ゝ｀）
0096nobodyさん03/09/23 12:55ID:cDBIlZxL
Javaスクリプトの関数で引数に数値以外の文字列を指定する方法を教えてください

function Jump(n){
parent.main.location.href ="menu/"+n+".htm")

で、10.htmや20.htmにしたらジャンプできるのですが
index.htmやmenu.htmにしたらエラーが出て動きません
0097nobodyさん03/09/23 12:56ID:???
>>96
+ JavaScript の質問用スレッド vol.22 +
http://pc2.2ch.net/test/read.cgi/hp/1062943541/
0098nobodyさん03/09/24 00:46ID:???
>>96
onclick="Jump(index)"// error
onclick="Jump('index')"// ok
0099nobodyさん03/09/24 06:56ID:ou/l0CeA
スレッド天国という掲示板なんですが、書き込んでもスレッドが上がらないようにするには
どの項目をいじればいいんでしょうか？それではスレッド式の
意味がないと思われるかもしれませんが、荒らし対策が
できないので日付順にしたいのです。もし分かる方いたらお願いします。m(_ _)m

http://mbc.s33.xrea.com/uploader/upload.html
↑の「スレッド天国」というやつがスクリプトです。
0100nobodyさん03/09/24 11:12ID:???
>>99
それアップローダだろ
Perl質問スレにあったやつだよな。
0101nobodyさん03/09/24 11:14ID:???
ってうｐしてたのか、すまん
しかしこれ１つでなんでもやるタイプで長すぎて読むの疲れる
実際に動かしてLOG調べたほうがよさげ
■ このスレッドは過去ログ倉庫に格納されています