スクリプト改造工房 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を用意すればなお良し)
を必ず明記しよう。
0768759
02/06/23 02:08ID:Bn+v9pGhもう一つ教えて頂きたいことがあるのですが...
http://homepage2.nifty.com/f-mld/count.pl.txt
このカウンターで、50の倍数を踏んだ人にランダムでメッセージを表示させる
ようにしたいのですが、どのように書けばよろしいでしょうか?
どうか、どうかよろしくおながい致します。
0770xx
02/06/23 02:24ID:???こんな感じでしょうか?
unless ($count % 50){
@data= <DATA>;
print $data[int(rand(@data))];
}
__END__
メッセージ1
メッセージ2
メッセージ3
:
0771759
02/06/23 03:06ID:Bn+v9pGhすみません...ご迷惑をおかけします。
Pealを勉強したいのですが、どのようにすれば良いかわからなくて...
オススメのサイトや書籍などがありましたら教えて頂けないでしょうか?
>>770
教えて頂きありがとうございます。とても嬉しいです。
でも、どこに記述すれば良いのかがサッパリ解りません...
print "訪問者:$total<br>T:$count Y:$ycount\n";
この下でよろしいのでしょうか?
07743PIO ◆3pIoOHKo
02/06/23 13:21ID:x3pCNKFh漏れはここで勉強した
http://tohoho.wakusei.ne.jp/wwwperl.htm
07753PIO ◆3pIoOHKo
02/06/26 15:11ID:DwF94vyq0776nobodyさん
02/06/26 19:58ID:???よろしくおねがいします。下がスクリプトです。
http://kirazoo.tripod.co.jp/tree.txt
07773PIO ◆3pIoOHKo
02/06/26 22:14ID:yU8VbQZuとてつもない改造が必要かと思われる。
あと、本当に改造してほしいならばsageずにageろ
0778nobodyさん
02/06/26 22:39ID:???そのスクリプトじゃないとダメっていう理由がないなら
レスがついたらTreeが上昇する機能がついてる別のスクリプト使ったら?
http://www.kent-web.com/bbs/wforum.html
0779nobodyさん
02/06/27 00:07ID:???0781776
02/06/27 18:50ID:lD8zMgyZレスありがとうございます。
かなりの改造が必要なんですね...
デザイン的に結構気に入ってたもんで出来ないものかと思って質問してみました。
別にKENTを使いたくないという訳ではないのですが今乗り換えるとログの問題もあり
旧と新二つ設置しなければいけなくなる為少々抵抗を感じます。
もう少しこのままレスが付くのを待ってみます。
もう一つ質問したらきっと叱られる思いますが>>776の場合、改ページ処理で<option value>ダグで選ぶのではなく「戻る」「次」見たいに変更するにはどのようにしたら良いものでしょうか。ヒントだけでもお願いします。
0782nobodyさん
02/06/27 23:05ID:???上記のうなぎスクリプトなんですが、書きこみ欄に4桁程度の
削除キーを書いて、ユーザがカキコの後から編集、削除ができ
るようにしたいんですが、やはり大規模な書き換えになってしまう
んでしょうか。よろしくお願いします。
0783nobodyさん
02/06/27 23:56ID:???そう言う事をやろうとすると…
・ログに削除キーを記録するように変更(項目の追加)
・削除キーが何らかの手段で与えられた場合の編集、削除ロジック追加
最低でもこれらが必要になるね
07843PIO ◆3pIoOHKo
02/06/28 16:27ID:???やれば出来るだろうが漏れのスキルでは丸1日かかってしまう。
誰か他所あたってくれや。
>>782
DESでパスワードを暗号化する必要もあると思われ
http://tohoho.wakusei.ne.jp/wwwperl2.htm#crypt
0785名無しさん
02/06/29 00:13ID:9XF42yOc0786TTK
02/06/29 00:29ID:???このCGIでフォームページを作って
「○○マガジンを購読しますか?」
という質問を作る。でチェックをつけた人は送信する
時に同時に購読させられる。でもってマガジンを複数設定したい。
できますか?
0787nobodyさん
02/06/29 01:04ID:???それ、普通のフォームメールだろ。
アンケートなどをつけられるのは他にいくらでもあるが
単にメールを送るだけ。
受信してどうこうってのは別問題。
0791_.exe
02/06/29 09:29ID:???print "訪問者:$total<br>今日:$count 昨日:$ycount\n";
if(($count % 50)==0){
print "てめぇ50番台じゃねぇか。";
}
0793nobodyさん
02/06/30 14:40ID:???0794TTK
02/06/30 17:29ID:???07953PIO ◆3pIoOHKo
02/06/30 22:01ID:8ch/aqv5ほとんどだな。
「このサイトのこれなんですが」なんて書かれても、ダウソしてきて
ソース見て・・・なんてことをする気にはならん。
少なくともオリジナルのソースをtxtでどこかにあpしてすぐ見られるようにして、
どこをどうしたいのか明確にするぐらいはしてもらわないと。
できれば笑われる覚悟でわからないなりに自分でいじってみたソースも見せてくれれば。
おかしければ突っ込むが、そこまでやるのなら手を貸してやろうかという。気にもなる。
0798nobodyさん
02/07/01 16:33ID:1mNAxNOZ07993PIO ◆3pIoOHKo
02/07/01 17:29ID:Cd4UgU1rそうしましょう
0800759
02/07/01 17:40ID:???あれから色々なサイトのスクリプトを参考にPerlを学んで
ようやく「@」の意味が解りました。
みなさんにはとてもお世話になりました。
また、何かわからないことがあったらよろしくおねがいします。
もう来るなと言われそうですが...
0802nobodyさん
02/07/02 19:45ID:SyZG/7SIこのギルド用スクリプトを改造したいのです。
JPEGとGIFしかアップロードできない作りになっているのですが、
それ以外(htmlやエクセル、PDF)なども使えるようにしたいのです。
さらに、画像以外のファイルは「詳細情報」というテキストリンクにしたいのです。
自分でもいろいろやってみたのですが、どうにも上手くいきません。
(エラー表示もされないまま、ファイルはアップロードされていないと言う状態になりました)
ヒントだけでもよいですので、どうか知恵を貸してください。
0804nobodyさん
02/07/02 22:48ID:???そしてここに書いてね。
怪しいところは見つかってんだろ?
0805nobodyさん
02/07/03 00:54ID:???http://zurubon.strange-x.com/upload.txt(ずるぼんあぷろだ)
のあbユされた各ファャCルの日付の横bフ少しの空白の緒齒鰍ノ
bぷファイル個封ハのレス欄を付bッたいのですが緒o来ますでしょb、か?
bィ願いします。
0806nobodyさん
02/07/05 17:27ID:???CgicafeさんのKerokerochatを改造したいのですが
http://saya.kiy.jp/cgi/chat.html(大元です)
このチャットをROM禁止にしたいのです。
別途入室フォームを置いて、それに入力後チャットに入れるように
したいのですが・・・。
http://www.roomyroo.com/~myroom/cgi-bin/uploader/source/55.txt
これがソースです。
0808nobodyさん
02/07/06 22:36ID:???自分である程度改造して、こんな感じに改造したんですけどうまくいかない
見たいな感じでもうperlコーディングスレと統合しちゃえば?
0809nobodyさん
02/07/07 00:05ID:???0810nobodyさん
02/07/07 00:07ID:???0813nobodyさん
02/07/07 01:56ID:???短い すくりぷとはperlだけとは限らない罠
0814nobodyさん
02/07/07 13:45ID:PB57yOoLhttp://cgi.linkclub.or.jp/~kimkim/index2.shtml
の「K-db」で、新規入力する時にコメント欄に特定文字(今の所不明です)を入力
すると、2行目以降が表示されなくなってしまいます。
例えば、コメント欄に
音楽がほんわかしてて気持ちいいです。
希望としてももう少し難しくして欲しい。
ゴルフゲー好きなら落とそう。
と入力すると、ログには
音楽がほんわかしてて気持ちいいです。
しか投稿されないのです。
出来れば修正方法をご教授願えれば、と思うのですが、、
よろしくお願いします。
0816nobodyさん
02/07/07 14:13ID:PB57yOoLすみません、そこのサポートBBSに投稿している人の発言をそのまま書いて
しまいました。
投稿出来る場合と出来ない場合がありますので、、
自分もそうなのかな?と鵜呑みにしてしまっていました。
ですので、根拠は無いです、、すみません。
思い込みでした。
0818nobodyさん
02/07/07 14:21ID:PB57yOoLそうです、ある発言は<BR>タグ以降もログに記録されるのに、
ある発言は1行目の<BR>タグも含めてきれいさっぱり2行目が消えています。
あ、改行を<br>にCGIが変更してログに書き込んでいると思います。
0819nobodyさん
02/07/07 14:21ID:???0821nobodyさん
02/07/07 21:05ID:???一応
$commentmain =~ s/\r\n/<br>/g;
$commentmain =~ s/\r/<br>/g;
$commentmain =~ s/\n/<br>/g;
と記述されています。
改行を<BR>タグに変換するんですよね?
この行に追加するのですか??
もうこんなレベルで済みません、、、
0822nobodyさん
02/07/07 22:40ID:???一気にやれよ。
0823nobodyさん
02/07/08 07:06ID:???$commentmain =~ s/\r\n|\r|\n/<br>/g;
に変更したのですが、やはり無理でした。
ちょっと簡単には出来そうもないですよね、、
ありがとうございました。
0824nobodyさん
02/07/08 07:06ID:???0825トウモロコシ
02/07/08 18:07ID:???このCGIに同盟とMAP移動というプログラムを付けてみたいです
txtは
http://wind.gi-ga.net/ebs-txt/config.txt
http://wind.gi-ga.net/ebs-txt/ebs.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub1.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub2.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub3.txt ←お手数ですがソースを見てもらえますか?
http://wind.gi-ga.net/ebs-txt/ebs_sub4.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub5.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub6.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub7.txt
ちなみに副管理人募集中です(関係ない)
0826名無し
02/07/08 19:46ID:KuVKR3XX今までの出会い系サイトとは一味もニ味も違うサイトです。バーチャルタウンを実際に体験できます!!!
詳しくは下記UELをクリックして、確かめて!!
http://www.e-mansion.co.jp/co/ac.html
08303PIO ◆3pIoOHKo
02/07/08 22:00ID:???0831nobodyさん
02/07/09 00:43ID:b0rFJDUghttp://www.alsialab.com/
に過去ログ機能をつけたいんですがやりかたわかんないよー
0833831
02/07/09 02:21ID:nS3zIebyどういうことでしょうか?
もしかして私は何か大きな勘違いをしているのでしょうか?
過去ログって古い書き込みをどこまで遡って見られるかだろ?
そのBBSは古いほうから消えていくタイプなのか?
08363PIO ◆3pIoOHKo
02/07/09 10:41ID:aNf12itaワラタ
0839831
02/07/09 20:53ID:nU6vpFNH新しい方から消えては意味がないので要求しないです。
0840nobodyさん
02/07/09 22:38ID:???で、その消えた分を「過去ログ」として保存したい訳?
なんで、こう逆質問しないと、はっきりとした意図が解らないような質問する訳?
古いほうから消えるって言っても、親記事の数に制限があって
古いものが消えるのか、あるいはレス数に(同上)。
だとしたらそれを過去ログ(別ログ)で残したいのか、制限そのものを
なくしたいのか。
オリジナルがどういう機能で、それをどうしたいか書かなきゃ。
そのCGIを落として動作を確かめて君のやりたいことを
推測するなんてことは誰もやらないと思うよ。
0842831
02/07/09 23:56ID:k5xDVD5V消える分を保存したいんです。
親記事の数に制限があって、新しく親記事を作ると一番下にあるものが消えるので、
それを残しておけるようにしたいと思っています。
制限をなくすことはできますが、制限したままでいこうと思います。
0843nobodyさん
02/07/10 00:04ID:???だったら、
$res = pop(@bbs_data);
で、$resを追記で過去ログ酔うファイルにでも書き込んでいけばいいんじゃ内の?
0844nobodyさん
02/07/10 02:25ID:???0846nobodyさん
02/07/10 03:35ID:???print pop(@bbs_data);
close(FILE);
0855nobodyさん
02/07/11 17:16ID:???悲惨な831がいるスレはここですか?
0856831
02/07/11 18:13ID:6V/lnArc>>851は私ではありませぬが
0857コギャル&中高生
02/07/11 18:17ID:geOvSY9Zヌキヌキ部屋へ直行
0859nobodyさん
02/07/12 03:06ID:mQ+sLvjc誘導されてきました。改造はこちらでしたね…(;´д`) ジブン イッテヨシ
どなたかご教授くださいませ。
こちらの日記CGIはタグを使いたい場合、CGIの設定の中に
使いたいタグを(font a b u s i)という形式で書くことに
なっているのですが、どうも入れ子状態のタグだと
一番内側にあるタグ以外は無視されてしまうようなのです。
( <a><img></a> の場合、画像は表示されるが
アンカータグのカッコは&lt;に変換されてしまう)
タグを入れ子にできるようにするためには、
どのように書き換えればいいのでしょうか?
ヒントだけでも構いませんのでお願い致します・゚・(ノД`)・゚・
CGIをテキストに変換したものです。
http://blue.ribbon.to/~brm/d-board.txt
0860つられて向こうに書いちゃったヨ
02/07/12 03:38ID:???d-board.libの
foreach $tag (@$okTagClose){
while($text_data =~ /<($tag)([^&]*)>([^&]+)<\/$tag>/i){
$text_data =~ s/<($tag)([^&]*)>([^&]+)<\/$tag>/<$tag$2>$3<\/$tag>/i;
$text_data = &ok_tag($text_data);
}
}
foreach $tag (@$okTagOpen){
while($text_data =~ /<$tag([^&]*)([^\.cgi]*)([^&]*)>/i){
$text_data =~ s/<$tag([^&]*)([^\.cgi]*)([^&]*)>/<$tag$1$2$3>/i;
}
}
を
foreach $tag (@$okTagClose){
$text_data =~ s|<(${tag}.*?)>(.*?)</${tag}>|<$1>$2</$tag>|ig;
}
foreach $tag (@$okTagOpen){$text_data =~ s/<(${tag}.*?)&gt;/<$1>/ig;
}
と入れ替えていけないかな。
0861860
02/07/12 03:43ID:???下から3行目の<(${tag}.*?)>は
<(${tag}.*?)>
で。
0862nobodyさん
02/07/12 03:55ID:???おおお、で、できました!!・゚・(ノД`)・゚・
自分なりに、先程UPしたファイルと睨めっこして
『「&lt;」がないけどなぜ…(;´д`)???』と首を傾げていて、
それがlibファイルにあることに気付き、>>860の部分と
またもや睨めっこして頭を沸騰させていたところでございました。
こんな時間に、本当にどうもありがとうございました!!
入れ替えたところをなんとか理解できるように精進したいと思います。
(あちらにもお礼を書かせていただきます。)
0863nobodyさん
02/07/12 06:27ID:fSxvbH1Nなんですが、これの一覧表示の際に
通常はコラムの「題名 日付」の順に並ぶのを「ジャンル 題名 著者名 日付」
という形にするために書き込み欄に新たにselectかtextareaを作って
設定できるようにしたいのですが、どのように書き換えたらいいのでしょうか?
よろしくお願いします(;´Д`)
0864860
02/07/12 07:54ID:H5YGeUXYごめん、>>860のやり方だと例えば<a>を許可した場合に
<applet>とかも許可されちゃうわ。
回避するには以下のように変更して。
foreach $tag (@$okTagClose){
$text_data =~ s|<(${tag}(\s.*?)?)>(.*?)</${tag}>|<$1>$3</$tag>|ig;
}
foreach $tag (@$okTagOpen){$text_data =~ s/<(${tag}(\s.*?)?)>/<$1>/ig;
}
って、もう来ないかな…
>>863
見た目だけで良いなら題名の欄にジャンルと著者名も一緒に
書くようにしてみては?
別々に記録して読み込んだりソートしたり出来るように改造するとなると
人に聞かないで出来る人でも数時間かかるような作業になるかと。
0865nobodyさん
02/07/12 08:41ID:???> 見た目だけで良いなら題名の欄にジャンルと著者名も一緒に書くようにしてみては?
> 別々に記録して読み込んだりソートしたり出来るように改造するとなると
>人に聞かないで出来る人でも数時間かかるような作業になるかと
今はとりあえずそうしてるんですが、やっぱり別途記録するとなると大掛かりに
なりますよね。。どうもありがとうございます(;´Д`)。
0866nobodyさん
02/07/12 17:23ID:ia5y4ZlD文字化けしないようにするにはどこをどういじればよいでしょうか?
0867nobodyさん
02/07/12 17:25ID:???jcode.pl なり Jcode.pm なりつかって全角に変換する。
■ このスレッドは過去ログ倉庫に格納されています