スクリプト改造工房 Part4
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
02/02/05 01:20ID:CZVDHHphという人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。
前スレ
Part2 http://pc.2ch.net/test/read.cgi/perl/986986227
Part3 http://pc.2ch.net/test/read.cgi/php/988808396
なお、質問するときは
1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
2）どんな風に改造して欲しいのか？ （完成イメージHTMLを用意すればなお良し）
を必ず明記しよう。
0413405
02/04/03 03:19ID:GttiUx1R検索で探してみたのですが、見あたりません。
メインのcgiの中にあるんですよね。
どこかにアップします。少しお待ち下さい。よろしくお願いします。
0414405
02/04/03 18:19ID:2YgAzoOmアップしました。
どなたかよろしくお願いします。
0416405
02/04/03 20:19ID:anNonN4Hはい
http://www.miniflo.com/cgi/up/source/064.txt
0417nobodyさん
02/04/03 20:30ID:???sl1_bbs_r.cgi と sl1_bbs_o.cgi と sl1_bbs_a.cgi も・・・・か？
0418nobodyさん
02/04/03 21:13ID:???このcgi
0419nobodyさん
02/04/03 22:25ID:???0420nobodyさん
02/04/03 22:39ID:???0421405
02/04/04 02:57ID:Psb3orCtお世話になります。
このＢＢＳはこのまま設置しようとしても構文エラー頻発します。
あらゆる所をかきかえなくてはなりません。
勿論必要なところは書き替えてます。
#!/usr/local/bin/perl を
#!/bin/perlに変えるとか、パーミッションの設定とかは出来ています。
エラーが無くなれば、今度は警告が出ます。結局まだ設置出来てません。
何なんでしょうか？
設置しようとしているサーバーはwakwakです。
0422nobodyさん
02/04/04 03:07ID:???sl1_bbs_cfg.cgiみせてみれ
0423nobodyさん
02/04/04 03:08ID:???sub check_data {
my ($value_data) = @_;
# $value_data =~ s/</</ig;
# $value_data =~ s/>/>/ig;
$value_data =~ s/\|\|\|//g;
$value_data =~ s/\r\n/<BR>/g;
$value_data =~ s/\r/<BR>/g;
$value_data =~ s/\n/<BR>/g;
&jcode'convert(*value_data,$mycode);
if ($mycode eq 'sjis') { &jcode'h2z_sjis(*value_data); }
if ($mycode eq 'euc') { &jcode'h2z_euc(*value_data); }
return $value_data;
}
こうする。
0424nobodyさん
02/04/04 03:10ID:???$value_data =~ s/</</ig;
$value_data =~ s/>/>/ig;
この2行を探して先頭に#を付けるだけ。
0425nobodyさん
02/04/04 03:11ID:???0426nobodyさん
02/04/04 03:16ID:???http://www.wakwak.com/info/connection-setup/ftp/custom-cgi.html
0427405
02/04/04 03:52ID:Psb3orCtありがとうございます。
sl1_bbs_r.cgi
の中にありました。
0428nobodyさん
02/04/04 03:59ID:???ソースを見たところ、あんまりいいたくはないけど
もっと処理速度を上げられる書き方があるのに．．という箇所が随所に
見られました。今後Perlを勉強してチューンナップしていってください。
0429nobodyさん
02/04/04 06:28ID:LDcuVgD6知り合いが使っていた言葉なのですが
0431nobodyさん
02/04/04 17:53ID:???えぇと、このアップロード掲示板の表示をソートしたときに
逆順にソートできないでしょうか？
新しい投稿を上にもってきたいのです。
0432nobodyさん
02/04/05 01:15ID:???たったこれだけの処理で２５００ステップもあるから、もっとコンパクトに
整理して書き直したほうがいいのでは？ ざっと見ただけで動作確認はしません
でしたが、一応以下に書いておきます。
2427行および2456行を↓のように書き替える。
@array= reverse sort @array;
0434nobodyさん
02/04/05 13:53ID:vHWX7n4+↑にあるTbookmarkplusについてなのですが、
登録画面と、変更・削除画面を分けたいのです。
よろしくお願いします。
0435nobodyさん
02/04/05 14:11ID:???http://www.b-u-g.net/cgi-bin/bstbp/cbbs.cgi?mode=al2&namber=57&rev=&no=0
ほほぉ〜マルチポストですか。なかなかの教えて君っぷりですな。
二度とくるな。
0436nobodyさん
02/04/05 14:13ID:UiVSKNUeここの ＣＯＭ ＣＨＡＴをiモード対応にしたいです。
0437nobodyさん
02/04/05 15:06ID:???Locationでログに飛ばしてみては？
0438436
02/04/05 15:15ID:UiVSKNUe0439nobodyさん
02/04/05 15:22ID:???そのチャットのどういうところに惹かれてそのチャットをi-mode対応にしたいの？
すでにi-mode対応の別のチャットにCOM CHATの機能をつけるという手段もあるべ。
0440436
02/04/05 15:28ID:UiVSKNUeここのＤＸチャットの携帯版と同じような
機能をつけたいんだけど・・・・
0441436
02/04/05 15:34ID:UiVSKNUehttp://www.cgiboy.com/
0442nobodyさん
02/04/05 17:44ID:???perlの知識ほぼ0で改造を考える君は凄いと思う。
0443436
02/04/05 18:22ID:u7CcrBBeあとは＄とか
0444nobodyさん
02/04/05 19:27ID:79Gl0aG1そこに色名を入れてもらい、その色で記事を表示するようにしたいのです。
（従来の■による色選択も活かしたまま、追加したい）
スクリプトは下記にアップさせてもらいました。
http://www.geocities.co.jp/HeartLand/1575/board.txt
どうかよろしくお願いします。
0445nobodyさん
02/04/05 21:25ID:YOkmh3/V教えてやろうか？
ラジオの部分をテキストにしやがれ。
0447春厨房
02/04/06 00:48ID:+tk8w0bj下のしりとりCGIで、「名前」と「しりとりの言葉」以外に、「コメント」の欄もつけたいんですが、
そのためにはどこをどう改造すれば宜しいでしょうか？
どうか教えてくださいまし。よろしくおねがいします。
↓
http://www.geocities.co.jp/SiliconValley-Cupertino/4960/siritori.txt
0448hanamogera ◆kkkKkkko
02/04/06 01:27ID:NYi0ELItやってみますので、12:00マデ待ってください。
でも、その前に誰かやっちゃうかも。
0449nobodyさん
02/04/06 01:37ID:SGfKyt/H(1)馴れ合い禁止。（一人で来る事。同伴禁止：いても知らぬ顔）
(2)「大盛りねぎだくギョク」を頼むこと。（並盛りねぎだくｷﾞｮｸも可）
(3)各会場ごとに指定時間厳守で現地集合。
(4)食ったら即帰る。
注）吉野家は家に帰るまでが吉野家です。
http://ex.2ch.net/test/read.cgi/entrance/1017935504/l50
http://www2.mnx.jp/carvancle/yoshigyu/ ｽﾚよりぬき等
0450春厨房
02/04/06 10:09ID:YHKRj1tKどうぞよろしくおねがいします。
0451hanamogera ◆kkkKkkko
02/04/06 10:26ID:NYi0ELItスミマセン、寝坊してしまいました。
もしかしたら12:00過ぎてしまうかもしれません。
あと、コメントって書いた人全員の記録しておくんですか？
それからどこに表示するんでしょう？
0452春厨房
02/04/06 11:34ID:zR3Pbdrfおはよう御座います、どうもです♪
よく見てみたら、このしりとりは「言葉」だけしか登録できないみたいでした。
だから、先ほどの「コメント」の欄を追加以外に「名前」追加出来るようにしてくださいまし。
本当に手前勝手ですみません。
-------------------------------------------
はい。コメントは書いた人全員分記録でお願いします。
表示の仕方は、ボックス部分が↓こんな感じでお願いします。
<center>
お名前：<input type="text" name="username" size="30" maxlength="200"><br>
言 葉：<input type="text" name="strings" size="30" maxlength="200"><br>
一 言：<input type="text" name="com" size="30" maxlength="200"><br>
初めの読みをひらがな一文字で：<input type="text" name="first" size="2" maxlength="2"> <br>
最後の読みをひらがな一文字で：<input type="text" name="end" size="2" maxlength="2"> <br>
</center>
表示部は↓こんな感じで宜しくお願い致します。（タグ怪しいかも）
<CENTER><table cellspacing=0 cellpadding=0 width=90%>
<tr><td colspan=2><hr size="1" color=#000000 width="100%"></td></tr>
<tr><td rowspan=2 align=right width=30><input type="checkbox" name="1"></td><td><b><font size="4" color="適当">「（言葉）」</font></b>
<font size="2" color="適当">（名前）(日時)</font> <font size="2" color="適当">No.1</font></td></tr>
<tr><td><font size="2" color="適当">（コメント）</font></td></tr>
</table></CENTER>
どうぞ宜しくお願い致します。時間は全く気にしておりません。ごゆっくりで結構です。
0453hanamogera ◆kkkKkkko
02/04/06 11:36ID:NYi0ELItとりあえずできました。
入力フォームがちょっと汚らしいので、いぢってください。
zip自己解答形式です。
http://www.sgmt.jp/files/siritori.exe
0454hanamogera ◆kkkKkkko
02/04/06 11:48ID:NYi0ELItどうやら同時レスだったみたいです。
今からもう一回やりますので、お待ちください。
0455nobodyさん
02/04/06 12:25ID:???0456hanamogera ◆kkkKkkko
02/04/06 12:29ID:NYi0ELItできました。
ちょっと皆さんもテストしていただけませんが？
http://www.sgmt.jp/cgi-bin/siritori/siritori.cgi
>>455
やめます。
0457春厨房
02/04/06 12:53ID:2fTm3+Oy今からテストさせていただきます。
0458hanamogera ◆kkkKkkko
02/04/06 12:56ID:NYi0ELItラウンジの人は書き込んでくれません(w
access_logはすごいことになってますが。
0459春厨房
02/04/06 14:08ID:1Z1uOFRvすごいです！バッチリです♪
有難う御座いました。
0460春厨房
02/04/06 14:10ID:1Z1uOFRv教えてくださいまし。ほんとに手間かけてすみません・・。宜しくお願いします
0461nobodyさん
02/04/06 14:17ID:???0462nobodyさん
02/04/06 14:17ID:???0463hanamogera ◆kkkKkkko
02/04/06 14:28ID:NYi0ELIthttp://www.sgmt.jp/files/siritori.zip
遅くなってすいません。
0464春厨房
02/04/06 16:01ID:90jMp2AAダウンロード＆設置させていただきました。ばっちり作動しました♪
本当にどうも有り難う御座います。このご恩は忘れません。
それでは失礼します。
0465nobodyさん
02/04/06 17:16ID:hOQwElKs,} {｀i;:r,;'ﾆ (;;;;､` , r'
. ｛i' i:.'ー<.･)}:ﾑ ヾi,
ｷﾀ━━━━━━━ﾉ ／/ -r /:::ミ ('ｰヽ━━━━━━━━━??!!
iﾞ i:/ /二./ /',=､__ﾉi/
ヽ ヽ! {:::} //::::''´`'7!/
ヽ､__ヽ!l::i:::::ii;;;;;;;|,ノ
｀ヽ､`ー""ヽ
`'ｰ-'''"
0467464
02/04/06 19:58ID:SOc4N1tk半角カナを入れるとさすがに文字化けしますが、それ以外なら全く問題無いです♪
お心遣いどうもありがとうございます。
0468nobodyさん
02/04/06 21:00ID:???0469hanamogera ◆kkkKkkko
02/04/07 09:58ID:???jcode.pl使って半角かなを全角に変換したほうがいいと思います。
0470464
02/04/07 12:27ID:0a2d4Jojうーん・・・半角カナは使わないように書いておいたので別にいいです。
・・・すみません。（汗）
0471ｷﾀ━━━━━━━━(ﾟ∀ﾟ)━━━━━━━━!
02/04/07 15:39ID:???,,､‐''"~￣ ￣``''‐､、
／ ＼
/ ヽ
/ ヽ
/ ／ ~~` '' ‐- ､､ ,,__ __ ,,..､､ -‐ '' "~~＼ ヽ
| / __ ￣ __ ヽ |
.| ｛ ´ ‐- ....__ __... -‐ ` ｝ .|
.| 〉,,・^'' - .,, ~ i ~ __,,.- ＾`・､.〈 |
./￣| /,／~ヽ､ `'' ‐--‐ ,.| ､‐-‐'' "~ _ノ~＼,ヽ |￣ヽ
| （` | / ヽ,,_____`‐-､_､..,,___ﾉ八ヽ___,,.._-‐_'"´___,, ノ ヽ .|'´） |
| ｝.| ./' ＼二二・二../ ヽ / ヽ､二・二二／ 'ヽ | ｛ |
.| //| .| ／ | |. ＼ | |ヽヽ|
.| .| | .| ／ | |. ＼ | | | .|
｜ヽ.| | / .| |. ヽ .| .|./ .|
| .| | / | | ヽ | | /
ヽ .| | / .| | ヽ | | /
.ヽ.| | / '二〈___〉二` ヽ | |./
| | `-;-′ | |
iヽ|. ,,... -‐"`‐"`'‐- ､、 |／i
| ヽ /...---‐‐‐‐‐----.ヽ / .|
| ヽ. ,, -‐ ''"~ ~"'' ‐- ､ / |
.| ヽ ! ./ .|
,,| ヽ. | ./ |、
|＼. ヽ ／ ／.|
.|. ＼. ヽ､＿___ ＿__／ ／ .|
0472nobodyさん
02/04/07 21:42ID:XlY3TlqRi-modeで見たときのread.cgiで、
現在の2chのように前の１０レス・次の10レスに対応したいんですが、
教えてください
0473nobodyさん
02/04/07 23:20ID:???0474nobodyさん
02/04/08 12:39ID:Udb0KNLP上記のようなCGIでアクセス制限をかけたＢＢＳがあります。
それでこのＢＢＳをブックマーク出来ないようにする方法はありますでしょうか？
0476nobodyさん
02/04/08 18:54ID:???0478474
02/04/08 23:08ID:5LgVRzDyどういうことですか？
0480nobodyさん
02/04/09 18:23ID:10B4imLY$ref = $ENV{'HTTP_REFERER'};
if ($ref eq "") { print"氏ねやカス！"\n; }
でどう？
0481nobodyさん
02/04/09 18:24ID:???$ref = $ENV{'HTTP_REFERER'};
if ($ref eq "") { print"氏ねやカス！\n"; }
0482age
02/04/10 21:49ID:???0483質問すんません
02/04/10 21:51ID:???0486nobodyさん
02/04/11 13:44ID:???この掲示板にて
レスが一定数を超えると
返信フォームでもレスがつけられないようにし、
なおかつお知らせが出るようにしたいです。
現状
http://members.tripod.co.jp/fukudakanbouchoukan/a.html
↓
このような感じにしたいです。
http://members.tripod.co.jp/fukudakanbouchoukan/b.html
お願いします。
0487nobodyさん
02/04/11 16:55ID:???設定項目の適当なところに追加
# 1スレッドの最大記事数
$res_max = 10;
670行目以降にある返信フォームのとこをいじる
# 関連記事出力
print "- 以下は、記事NO. <B>$in{'no'}</B> に関する<a href='#RES'>返信フォーム</a>です -<hr>\n";
$count=0; # ***** この行追加 *****
while (<IN>) {
($no,$reno,$date,$name,$mail,$sub,$com,$url) = split(/<>/);
(このへん省略)
print "<font color=$sub_color><b>$sub</b></font> 投稿者：<b>$name</b> 投稿日：$date $url <font color=$sub_color>No\.$no</font><br>\n";
print "<blockquote>$com</blockquote><hr>\n";
++$count; # ***** この行追加 *****
}
}
close(IN);
続きは >>488
0488nobodyさん
02/04/11 16:56ID:???# タイトル名
if ($resub !~ /^Re\:/) { $resub = "Re\: $resub"; }
# ***** ↓ここから *****
if ( $count >= $res_max ) {
print "返信が多くなってきたため、新規投稿で新スレを建ててください。<br><br>\n";
print "<a href=\"$script\">掲示板に戻る</a>\n";
} else {
# ***** ↑ここまで追加 *****
print <<"EOM";
<a name="RES"></a>
print "</td></tr></table></form>\n";
print "</blockquote>\n</body>\n</html>\n";
} # ***** この行追加 *****
exit;
}
#----------------#
# デコード処理 #
#----------------#
おわり
0490nobodyさん
02/04/12 17:54ID:Rf4zpV9vhttp://tackysroom.com/sample/smp_tackynote992.cgi
上記日記CGIを、特定の記事数ごとに表示するにはどうしたらよいでしょうか？
設定では月ごとか１日のみかどちらかしか選択できなくて、
１日ごとだと表示が面倒で、月ごとの表示だと重くなってしまうので…
ソースは
http://moe43.tripod.co.jp/cgi/tackynote.txt
です。どなたかよろしければ知恵を貸してやって下さい。
0491nobodyさん
02/04/12 21:43ID:???http://tackysroom.com/sample/smp_tackynotesp.cgi
一週間づつの表示ができる新しいVersionのがあるみたいですけど
これじゃダメなんですか？
0492490
02/04/12 22:29ID:???完全にこちらのミスです。
お手数をおかけして本当に申し訳ありませんでした。
わざわざ教えて下さってありがとうございました。
これからは初歩的（と言うのもバカバカしい…）ミスをしないように気を付けます…
0493nobodyさん
02/04/12 23:00ID:OHj6Fi0Khttp://sirizamurai.s4.xrea.com/sample/r_board.cgi
ここで配布されているr_boardというスレッドフロート式掲示板なのですが
レスをした後にスレのトップではなく掲示板のトップへ戻るように改造できないでしょうか?
0494nobodyさん
02/04/13 06:57ID:a/Dbri8Bワードパッドで開くような、でかいスクリプトを改造する気がしない
#---------------------------------------------------------------main
&decode;
&count;
if (-e "$mainte") { &error('メンテナンス中です。しばらくお待ちください。'); }
if ($in{'command'} eq "write") { &write; }
elsif ($in{'command'} eq "reswrite") { &reswrite; }
elsif ($in{'command'} eq "remove") { &remove; }
elsif ($in{'command'} eq "rjump" ) { &rjump; }
elsif ($in{'command'} eq "download") { &download; }
else { &html; }
exit;
#---------------------------------------------------------------html
を、どうにかしたらいいんじゃない？
0495nobodyさん
02/04/13 07:54ID:???そんなもん、レスの処理の後に Location で飛ばせばいいだけのことだろ。
>494
きみはプログラミングにメモ帳つかってる初心者だろ。
0497nobodyさん
02/04/13 14:44ID:VMPYMAwGが、フォームに入力した日本語が、どうしてもうまく表示されません。
cgi-lib.plというのが悪いような気がするのですが…。
これって、定番のライブラリですが、
うまく日本語化する方法はないのでしょうか？
やってることは、
require './jcode.pl';
と書いて、
&ReadParse（cgi-binでやる）
の後とかその中とかに、
&jcode'convert(*val,'sjis');
と書いたり、いろいろ試したのですが、ダメ。
１週間、ずーといろいろやったのですが、
どうしても、うまく行きません。
0498nobodyさん
02/04/13 14:46ID:???>>1
なお、質問するときは
1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
2）どんな風に改造して欲しいのか？ （完成イメージHTMLを用意すればなお良し）
を必ず明記しよう。
0499nobodyさん
02/04/13 14:50ID:VMPYMAwGcgi-lib.plというのは定番ライブラリで、
定番的処理の方法があるんじゃないかと
思って、質問しているのですが…。
どんなスクリプトにも対応できる
標準的なやり方ってないんですか？
0500nobodyさん
02/04/13 14:57ID:VMPYMAwGダメなものですか？
# Convert %XX from hex numbers to alphanumeric
$key =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
$val =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
# 次の1行追加
&jcode'convert(*val,'sjis');
# Associate key and value
$in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator
$in{$key} .= $val;
0502nobodyさん
02/04/13 15:44ID:???0503501
02/04/13 16:14ID:???ちなみに495は俺じゃないぞ
0504nobodyさん
02/04/13 17:40ID:???cgi-lib.plって初めて知ったよ。
で、作者様のページのサンプル
http://cgi-lib.berkeley.edu/ex/simple-form.html
で、ちゃんと日本語入力できて表示できてるんだけど・・・
やっぱおまえさんが自力で書いた部分に問題があるんじゃないかと。
0506500
02/04/13 18:24ID:VMPYMAwGたしかに、表示されました。
ということは、jcode.plは
なんのためにあるんですか？
0508nobodyさん
02/04/13 19:10ID:???r_boardの件
801行の
$in{'command'} = 'read';
を削除です
＞497
r_boardのデコードサブルーチン
sub decode {
my ($name,$value);
&ReadParse;
while (($name,$value) = each %in) {
if ($name ne "file") {
&jcode'convert(*value, "sjis", "", "z");
$value =~ s/\&/&/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\"/"/g;
$value =~ s/\r\n/<BR>/g;
$value =~ s/\r|\n/<BR>/g;
}
$in{$name} = $value;
}
}
0509nobodyさん
02/04/14 02:16ID:???0510500
02/04/14 04:56ID:ej0dAZG8レスありがとうございます。
初心者なもんで、苦労しましたが、
日本語がうまく表示されない原因は他にありました。
（メタキャラクタをはじくようなサブルーチンがあった。
これで１週間以上ムダにした）
なお、504さんがいうように、
jcode.plなしでも日本語表示できるのですが、
これは、jcode.plは使わなくてもいいということでしょうか？
■ このスレッドは過去ログ倉庫に格納されています