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

スクリプト改造工房 Part3

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。2001/05/02(水) 21:59ID:nr93n3do
「こういうふうにスクリプトを改造したいけどやりかたわかんないよー」
という人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。

前スレ
Part1 http://tako.2ch.net/test/read.cgi?bbs=perl&key=958370869
Part2 http://tako.2ch.net/test/read.cgi?bbs=perl&key=986986227
＃板移動に伴い「CGI改造工房」→「スクリプト改造工房」に改名

なお、質問するときは
1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
2）どんな風に改造して欲しいのか？ （完成イメージHTMLを用意すればなお良し）
を必ず明記しよう。
0002名無しさん＠お腹いっぱい。2001/05/03(木) 03:10ID:???
http://tako.2ch.net/test/read.cgi?bbs=perl&key=986986227&st=22&to=22&nofirst=true
$goukei=$ten01+$ten02
PRINT'合計点は$goukeiです';
じゃだめかい？
0003名無しさん＠お腹いっぱい。2001/05/03(木) 03:11ID:???
http://tako.2ch.net/test/read.cgi?bbs=perl&key=986986227&st=100&to=100&nofirst=true
だった
0004３2001/05/03(木) 03:14ID:???
http://tako.2ch.net/test/read.cgi?bbs=perl&key=981947727&st=100&to=100&nofirst=true
だった。。。。
0005名無しさん＠お腹いっぱい。2001/05/03(木) 04:05ID:???
>>2-4
うーん、これだけの情報じゃ全然わかりませんよ。
その改造中のスクリプトの拡張子を".txt"に変えて
どこかにアップして、ここにURLを書いてください。
0006むぎ茶　　　　　　2001/05/03(木) 06:28ID:???
> $goukei=$ten01+$ten02
> PRINT'合計点は$goukeiです';
> じゃだめかい？


だめに決まってんじゃん（ｎ


┐(´ー｀)┌


┏━━━━━━━━━┓
┃（'Д'）y ─┛~~　┃
┃むぎ茶　　　　　　┃
┃[email protected]　　┃
┗━━━━━━━━━┛
むぎちゃんねる
http://aho0baka.virtualave.net/bbs/bbs.cgi
ﾒｲﾘﾝｸﾞﾘｽﾄ
http://www.freeml.com/ml_info.php?ml=bitvalley
0007向こうの912001/05/03(木) 11:00ID:65INSVJM
$goukei=$ten01+$ten02;
print'合計点は$goukeiです';
じゃだめかい？

↑ではダメでした。。
0008名無しさん＠お腹いっぱい。2001/05/03(木) 16:22ID:VShMkoDc
>>7
シングルクォートをとってみるのはいかがなものか、、、
0009名無しさん＠お腹いっぱい。2001/05/03(木) 16:28ID:???
↑Internal Server Errorになりますが
0010Ｔ女の竹田2001/05/03(木) 16:32ID:???
>>7
マジレスしちゃうけど、シングルクォートをダブルクォートにするといいよ。
0011Ｔ女の竹田2001/05/03(木) 18:25ID:SrCJlQfA
前スレ42のスクリプトだけど、43さんのその一の方法でやってみたら
うまくいったよ。
変更点は、451行の
@plines = <PD>;を
$pline = <PD>; に。
454-458行の
foreach $reline (@plines) {
    ($a,$b,$c,$d,$e) = split(/\,/,$reline);
$poi = "$a"*10 + "$b"*50 + "$c"*30 - "$d"*20 - "$e"*30 ;
$pnin = $a+$b+$c+$d+$e ;
}
のところを、
($a,$b,$c,$d,$e) = split(/\,/,$pline);
に。
0012Ｔ女の竹田2001/05/03(木) 18:30ID:???
↑ごめん。ちょっとまぎらわしかったかも。
下二行は変更なしだから、
($a,$b,$c,$d,$e) = split(/\,/,$pline);
$poi = "$a"*10 + "$b"*50 + "$c"*30 - "$d"*20 - "$e"*30 ;
$pnin = $a+$b+$c+$d+$e ;
に変更ってことね。

あと、463行の
print "<br>投票数 $pnin\n";
の後ろに
print "<br>内訳：とても良い $b 良い $c 普通 $a 良くない $d 最悪 $e\n";
を追加。
0013Ｔ女の竹田2001/05/03(木) 19:09ID:???
1380行と1386行の、@plines = <FD>;も、同じように
$pline = <FD>;
に変更。1395行の
foreach $pline (@plines) {
と
1397行の
}
を削除。
それと、1396行の($a,$b,$c,$d,$e) = split(/\,/,$pline);の次に、
$a=$a+0;$b=$b+0;$c=$c+0;$d=$d+0;$e=$e+0;
を追加。
1404行のunshift(@new,$value);を削除。
1407行のprint FD @new;を、
print FD $value;
に変更。
0014Ｔ女の竹田2001/05/03(木) 19:15ID:???
1398-1402行の、if ($FORM{'points'}=10) { $a++ ;}等は、=を==に変えて
if ($FORM{'points'}==10) { $a++ ;}
というふうに5行全部変えてね。

だいたいこれで全部だけど…
Netfirmsではなぜか環境変数の
$ENV{'REMOTE_HOST'}が空みたいだから、
スクリプトの中に
if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; }
ってところが何か所かあるけど、ぜんぶ後ろに
$host or $host=$addr;
を付け加えて。このままだとちゃんと動かないよ。
0015Ｔ女の竹田2001/05/03(木) 19:43ID:???
あ、あと一個。
378行の
chop($host);
を削除して。
0016名無しさん＠お腹いっぱい。2001/05/03(木) 20:49ID:???
http://tako.2ch.net/test/read.cgi?bbs=perl&key=981947727&st=91&to=91&nofirst=true
>@ten01 = ('','1','2','3','4','5');
>@ten02 = ('','1','2','3','4','5');
これ、@ten01=(1..5);
とするといいよ。数字をクォートで囲むと文字列扱いになるから。
001722世紀を目指す名無しさん2001/05/04(金) 22:11ID:DYf6StlI
http://www.haide.net/~seirei/team.txt
これで、報告処理の所を片方が登録したらでは処理ではなく、
2人が報告しないと、処理をしないようにしたいのですが。

具体的に言うとこんな感じです。
１人が報告→ログに記録される。
もう１人が報告→ポイント換算などの処理をする。

いろいろ試したのですが、ダメでした。
よろしくおねがいします
0018名無しさん＠お腹いっぱい。2001/05/04(金) 23:23ID:aohLIYsg
>>17
「勝者-敗者」を一時的に記録する未決ファイルを作るとよいのでは。
報告処理は以下のようになる。
・未決ファイルを参照し、今回の「勝者-敗者」にマッチするデータが
　あれば、それを削除し、ポイント記録処理をおこなう。
・未決ファイルにまだデータがなければ、「勝者-敗者」データを
　未決ファイルに追加する。
0019@創作文芸板2001/05/05(土) 17:06ID:sQgyaM9Y
>>11-15　Ｔ女の竹田さま
　出来ました！　本当にどうもありがとうございます。
　http://2chmoji.netfirms.com/cgi-bin/antho.cgi
　クレジットにお名前入れても良いですか？
0020向こうの912001/05/05(土) 22:52ID:gKS1guvg
>>16
@ten01=(1..5);とやってもダメでした・・・
0021Ｔ女の竹田2001/05/05(土) 23:01ID:???
>>19 @創作文芸板さま
動きましたか(^-^) よかった。

クレジットは、入れない方が…(^-^；) ちょっといじっただけなので。
ただ、変更点に関しての責任者という意味で、スクリプトのコメント
部分に、変更日時・変更箇所と併せて
「by Ｔ女の竹田＠Webプログラミング板」とでも書いておいてください。

また改造したい所や分からない所などあったら、いつでも聞いて
くださいね。
0022名無しさん＠お腹いっぱい。2001/05/05(土) 23:18ID:???
>>20
@ten=(1,2,3,4,5);
これならどうだ！　＋２するのをお忘れなく！
0023向こうの912001/05/05(土) 23:39ID:gKS1guvg
>>22
それでもダメでした。
私の書き方が間違ってるのかもしれないので
http://members.nbci.com/ixlbzo/petit.txt
↑に書きかけのスクリプトを上げておきました。
0024774_Surver_Error2001/05/06(日) 01:44ID:???
>>23
@ten01 = ("","1","2","3","4","5","6","7","8","9","10");
@ten02 = ("","1","2","3","4","5","6","7","8","9","10");
$goukei = $ten01 + $ten02;
ダブルクォーテーションで囲むと文字扱いになるから、まず外さないと駄目だと思うんだけど。
というか@ten01=
foreach(0 .. $#ten01) {
print "<option value=\"$ten01[$_]\">$ten01[$_]\n</option>"; }
こうする意味がないぞー。ここは普通に<select>でvalueを数字にセットしてnameをten01にすべきじゃないの？？
0025@創作文芸板 2001/05/08(火) 00:23ID:???
>>21
了解しました。本当にありがとうございました。
できるかぎり自分で努力した上で、つまったらまた聞きに来ます。
0026ななしっこ2001/05/13(日) 07:46ID:MvIacDdA
チャットのログ部分に　参加者とロムが表示されるようにしたいのですけど・・
こんなふうにしたいんです。↓
http://members2.tsukaeru.net/chibiske/chatking/konnano.html
スクリプトはこちらにおいてあります。↓　（.txtにしてあります。）
http://members2.tsukaeru.net/chibiske/chatking
宜しくお願いします。
0027ぷれ2001/05/14(月) 00:13ID:nW.8An4c
http://www.net-easy.com/bbs/oneline.html
http://perl.gizo.net/download/bbs/oneline_cgi.txt

掲示板の発言をランダムに設定件数だけ表示させたいんですが。
改造宜しくお願いします。

また、発言をランダムソートできるスクリプトがあれば紹介してください。
0028名無しさん＠お腹いっぱい。2001/05/14(月) 21:13ID:???
>>27
とりあえず配列をランダムに並び替える方法
http://www.din.or.jp/~ohzaki/perl.htm#ArrayRandom

改造はしんどいんで俺はパス
0029名無しさん＠お腹いっぱい。2001/05/14(月) 22:17ID:EOc017bI
http://www4.tkcity.net/~elmo/
↑脱走犬エルモさんのpetit board荒らし対策機能つきのやつに
http://dx.sakura.ne.jp/~fbrand/fifnel/
のfifnelさんの2ch型スレッド表示機能＆さげ機能をつけたいのですが、
どのようにすればいいのでしょうか・・・。
回答お願いいたします。
0030名無しさん＠お腹いっぱい。2001/05/15(火) 10:32ID:???
>>29
ソースどっかにｱﾌﾟしてよ
0031292001/05/15(火) 22:07ID:gjtLxID6
エルモさんのスクリプト（荒らし対策）
http://www4.tkcity.net/~elmo/accessory/petit213.zip

fifnelさんのスクリプト（2ch風）
http://dx.sakura.ne.jp/~fbrand/fifnel/app/yybbs_2ch_12.lzh

なお、手が加えてあるのはpetit.cgiだけだそうです。
0032名無しさん＠お腹いっぱい。2001/05/15(火) 22:16ID:???
>>29
・・落として解凍しろと？
そんなあなたは優しい人を待ちなさい。
0033272001/05/15(火) 23:09ID:/aLV95x6
＞http://www.net-easy.com/bbs/oneline.html
＞http://perl.gizo.net/download/bbs/oneline_cgi.txt
＞
＞掲示板の発言をランダムに設定件数だけ表示させたいんですが。
＞改造宜しくお願いします。

＞とりあえず配列をランダムに並び替える方法
＞http://www.din.or.jp/~ohzaki/perl.htm#ArrayRandom

分からないです。。。誰かお願いします。
0034名無しさん＠お腹いっぱい。2001/05/16(水) 00:19ID:1AgH6foc
>>33
ソースにリンクが張ってあったので、ちょっと見てみたよ。
ログを@DATAに読み込んだ直後に、ランダムな並べ替えを
すればいいような。。。　変更場所わかる？
0035332001/05/16(水) 18:31ID:gyp5F88c

分かりません詳しく教えてもらえないでしょうか？
0036342001/05/16(水) 20:10ID:aLcMWg8.
>>35
うーん、まだその段階かあ。今は自力改造は無理っぽいから、
http://corn.2ch.net/test/read.cgi?bbs=php&key=988728069&st=2&to=2
このへんのリンク先を参考に、いろいろ勉強してみてください。
0037332001/05/16(水) 20:59ID:BRyBMYmA
あっさりできました。

http://www.din.or.jp/~ohzaki/perl.htm#ArrayRandomを参考にしたら。
どうも。
0038どらみ2001/05/17(木) 00:10ID:QVLw6.Fk
ealis bbsを２ちゃんねる風にTOPにスレッド項目
（ex ［12］Perlを語ろう<12>）などを表示する場合
どう改造すればいいのでしょうか？誰か教えて下さい♪

http://kano.vis.ne.jp/erial/ealis/index.html
0039名無しさん＠お腹いっぱい。2001/05/17(木) 00:40ID:srfZahY6
>>38
ここ>>32を読んでどうするか考えてみれ
0040名無しさん＠お腹いっぱい。2001/05/17(木) 10:25ID:???
[ルール追加]

圧縮されているスクリプトは解凍してからアップしよう。
0041どらみ2001/05/17(木) 14:55ID:WAoXbitY
あ、すまなんだ。

ealis cgi http://wakayama.cool.ne.jp/kome15/ealis.cgi.txt
ealis sub cgi http://wakayama.cool.ne.jp/kome15/ealis_sub.cgi.txt
ealis log cgi http://wakayama.cool.ne.jp/kome15/ealis_log.cgi.txt
ealis_wri.cgi http://wakayama.cool.ne.jp/kome15/ealis_wri.cgi.txt
ealis_cfg.pl http://wakayama.cool.ne.jp/kome15/ealis_cfg.pl.txt
ealis_let-std.pl http://wakayama.cool.ne.jp/kome15/ealis_let-std.pl.txt
あとは、ealis.log は空テキスト　jcode.pl　だけ。
EUCコードのCGIです。
ealis cgiのthreadモードをうまく改変すれば、
元のノーマルモードでなんとかなりそうなんですが、
素人のためわかりません。ほんとご迷惑おかけします。
0042どらみ2001/05/17(木) 15:01ID:WAoXbitY
ealis_let-std.pl だけHTML表示されちゃうみたいなのでソースみてください。
■ このスレッドは過去ログ倉庫に格納されています