821コメント330KB

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

■ このスレッドは過去ログ倉庫に格納されています

00011

03/03/16 18:28ID:vOOsWTxU

#================================
# スレッドの説明
#================================

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

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

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

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

#================================
# 過去のスレッド
#================================

【PART1】行方不明
【PART2】http://pc.2ch.net/test/read.cgi/perl/986986227/
【PART3】http://pc.2ch.net/php/kako/988/988808396.html (HTML化済み)

0002AR

03/03/16 18:32ID:vOOsWTxU

PART5での続き・・。
All Clear (^-^)v > () と名前のところにそのALL Clearとでて文字のところに()とでます。
後その自分の発言を削除を押した後発言をするとAll Clear (^-^)v > () が消えてしまいます。
援助お願いします。

0003前田

03/03/16 18:42ID:KSrtergb

http://www2s.biglobe.ne.jp/~geoph/download.html
こちらのｻｲﾄのポップアップ式の掲示板を使ってるのですが
開示版に書かれた最後の記事の時間をindexページに表示したいのですが
どのようにすればよろしいのでしょうか？
教えてください

↓こんなｻｲﾄみたいにです。
http://www.ayapro.com/board.html

0004nobodyさん

03/03/16 23:51ID:???

>>2
sub deleteme{
#自分の発言消去
open (IO,"+<$logfile");
eval{flock(IO,2)};
while (<IO>){
　if ($_ =~ /<>$ip/){
　　@y2=split(/<>/,$_);
　　if ($y2[6] ne $ip){
　　　push(@log,$_);
　　}else{
　　　$y2[0] = 'All Clear (^-^)v';　　#消去後の名前
　　　$y2[5] = 'All Clear (^-^)v';　　#消去後のメッセージ
　　　push(@log,"$y2[0]<>$y2[1]<>$y2[2]<>$y2[3]<>$y2[4]<>$y2[5]<>$y2[6]<>$y2[7]<>\n");
　　}
　}else{
　　push(@log,$_);
　}
}
truncate(IO,0);
seek(IO,0,0);
print IO @log;
close (IO);
&reload2;
}

消去後の名前とメッセージをそれぞれ好きなのに変えれ。
消去しないほうはコメントアウトしれ。

00052

03/03/17 02:02ID:TTdi1HRW

>>4
いやです。

0006AR

03/03/17 13:44ID:DC9PFXA+

>>5は放置でお願いします。

0007nobodyさん

03/03/17 13:48ID:VODuniq+

ｵﾛｵﾛ(ﾟﾛﾟ;))((;ﾟﾛﾟ)ｵﾛｵﾛ
http://hkwr.com/
http://hkwr.com/bbs

0008nobodyさん

03/03/17 14:10ID:???

せっかくやってやったのに、いやですだとー？

0009AR

03/03/17 14:48ID:DC9PFXA+

エラーがでたので見てください
ソース⇒http://csx.jp/~lgyec/ichats.data
援助お願いします。

0010nobodyさん

03/03/17 15:18ID:???

>>9
ふざけてんのか？
全角スペースを置き換えれって言っただろうが！

0011nobodyさん

03/03/17 16:59ID:???

スペースが見えるエディタを使ったほうがいいね。

0012AR

03/03/17 18:06ID:DC9PFXA+

>>11スペースが見えるエディタでオススメな奴ありますか？
ちなみにいつもはメモ帳でやってます。

0013nobodyさん

03/03/17 18:27ID:???

秀丸でも使え

0014nobodyさん

03/03/17 18:30ID:E6NZQVv8

>>12
秀麻呂を知らんのかっと、。

0015nobodyさん

03/03/17 19:33ID:???

つうか大抵のエディタなら全角スペースを見えるようにできるんじゃない？
とりあえず聞く前に自分で適当なエディタを探して試すべし。
（秀丸は有料だから、フリーのを……なんて質問は却下だよ）

0016nobodyさん

03/03/17 20:12ID:???

sakura

0017nobodyさん

03/03/19 11:51ID:???

掲示板などの最新書き込み者とか日付が表示されるページを作ったのですが、うごかないです。
#!/usr/bin/perl
#ユーザー設定
$bbs = './i-modebbs/imodebbs.dat'; #BBSログファイル
$bbsurl = 'http://www.*******/cgi/i-modebbs/imodebbs.cgi'; #BBSのURL
#設定終了

#bbsログファイル読込み#
open (BBS, "$bbs");
@bbsfile = <BBS>;
close (BBS);
($bbs_number,$bbs_date,$bbs_name,$bbs_title,$bbs_mail,$bbs_hpurl,$bbs_mhost,
$bbs_magent,$bbs_com) = split(/,/,$bbsfile[0]);

#html部分#
print <<HTML;
<html>
<head><title>掲示板</title></head>
<body>
<a href="$bbsurl">掲示板</a> [$bbs_number] 
[$bbs_name] 
[$bbs_date]
</body>
</html>
HTML

下のサイトのやつです。
ttp://xx.alpha-sv.com/vf4/cgi/update_bbs.cgi

0018nobodyさん

03/03/19 13:24ID:???

>>17
「動かない」だけじゃわかんないよ。
「どう動かないのか」を書いてくれ。

0019sage

03/03/19 14:16ID:Z36WfgQa

ttp://www.kent-web.com/variety/calen.html に検索機能をつけたいのですが
ファイルが月ごとになっているのでほかのスクリプトから移植することができませんでした。

できれば検索にかかった記事の全文を表示し該当ワードを太字にするような検索結果にしたいです。

わかる方がいましたらよろしくお願いします。

0020nobodyさん

03/03/19 14:31ID:???

>>18
エラーがでてしまいます…

0021nobodyさん

03/03/19 14:49ID:wSFZE8Gs

★男はココを見るべし★女と金と？？？★
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
http://www.pink-angel.jp/betu/linkvp2/linkvp.html

0022sine

03/03/19 14:58ID:mSaoA1aL

やっぱり
ＶＢスプリクトだよね！

0023nobodyさん

03/03/19 15:46ID:???

open (BBS, "$bbs");
@bbsfile = <BBS>;
close (BBS);
($bbs_number,$bbs_date,$bbs_name,$bbs_title,$bbs_mail,$bbs_hpurl,$bbs_mhost,
$bbs_magent,$bbs_com) = split(/,/,$bbsfile[0]);

この中に原因があると見た！って、オリジナルのソースもわからんから
推測だけどな。

0024nobodyさん

03/03/19 16:11ID:???

>>17

一番上の行を抜き取るならこれでいいんじゃない？
open(BBS, "$bbs");
while (<BBS>) {
($bbs_number,$bbs_date,$bbs_name,$bbs_title,$bbs_mail,$bbs_hpurl,$bbs_mhost,$bbs_magent,$bbs_com) = split(/,/);
last;
}
close(BBS);

002517

03/03/19 17:15ID:???

やっぱエラーでちゃいます…
初心者のほう逝って勉強してきたほうがいいですよね…

0026nobodyさん

03/03/19 17:28ID:???

>>25
ソース晒せって

0027nobodyさん

03/03/19 17:32ID:???

ただ単にヘッダがないからエラーになってんでしょ。

0028nobodyさん

03/03/19 18:13ID:???

もしかして、あれで全部だったのか・・・

0029nobodyさん

03/03/19 19:31ID:???

>>20
どんなエラーが出るんだよ

お前の脳内エラーなんか知るかハゲ

0030nobodyさん

03/03/20 19:32ID:???

>>25
print <<HTML;
の後に
＞Content-type: text/html
＞(空行)
＞(空行)
入れてみれ

0031nobodyさん

03/03/20 23:08ID:???

>>25

>>30の言っていることをようく考えろよ。
CGIをまともに動かしたいんなら、ヘッダーをきちんとしなきゃな。

0032nobodyさん

03/03/21 02:31ID:Q30fXesm

表示結果の部分を10コずつに分けて次のリンクで10コずつ表示させたいんですが、どうすれば良いんでしょうか？お願いします！

0033nobodyさん

03/03/21 02:40ID:???

>>32
>>1

0034nobodyさん

03/03/21 02:54ID:???

>>32
お願いしますって言われたって、何を改造すればいいのさ？

0035nobodyさん

03/03/21 03:48ID:NS9P8WQ3

http://www.agemasukudasai.com/bloom/

0036nobodyさん

03/03/21 05:15ID:b07vwTax

ここしかないでしょ？
http://homepage3.nifty.com/digikei/

0037nobodyさん

03/03/21 07:18ID:???

>>32
とあるスクリプトの該当部分

if ($listnum > $pageview){
if ($page >= 2){
$bpage = $page - 1;
print "[<A HREF=\"$script?page=$bpage\">前のページ</A>] ";
}
if ($listnum % $pageview == 0){$lpage = int($listnum / $pageview);}
else {$lpage = int($listnum / $pageview) + 1;}
for ($i=1; $i<=$lpage; $i++){
if ($i == $page){print "[$i]";}
else {print "[<A HREF=\"$script?page=$i\">$i</A>]";}
}
if ($page < $lpage){
$npage = $page + 1;
print " [<A HREF=\"$script?page=$npage\">次のページ</A>]";
}
print " \n";
}
else {print " \n";}

あとは自分の都合のいいように改造すれ

0038AR

03/03/22 15:47ID:WjvvL6Ft

また挑戦してみたのですが、エラーが起こりました。
ちなみに秀丸をつかってやりました。
ソース⇒http://csx.jp/~lgyec/ichat.data
おかしい部分を教えてください。

0039nobodyさん

03/03/22 15:50ID:???

>>38　倍角文字が入ってる
perl -wc hoe.cgi

でエラー箇所でるからちっとは自分で調べれ・・・

0040nobodyさん

03/03/22 16:52ID:???

>>38
お前なぁ・・・
同じこと何度目だよ？（ﾟДﾟ#）

秀丸なら　その他→ファイルタイプ別の設定→表示　で
全角空白を記号で表示　にチェック入れてみれ

できたという報告をするまで二度と来るな！

0041nobodyさん

03/03/22 17:57ID:O6IB41Gf

掲示板の表示をhtml化したいんだけど、
どうやるのか見当がつかない。
なんかヒントがあったら教えてオクレ。

0042nobodyさん

03/03/22 18:01ID:???

>>41
意味不明
ブラウザで見てるなら、普通はhtmlになってるだろ

0043nobodyさん

03/03/22 18:05ID:???

>>41
>>1

0044AR

03/03/22 19:01ID:gauSJKrI

無事できたのですが。
自分の発言を削除押したらそのメッセージがでるんですけど。
名前のところにまでそのメッセージがでます。
援助お願い致します。

0045nobodyさん

03/03/22 19:22ID:???

>44
氏ね

二度とくんなｳﾞｫｹ！

0046nobodyさん

03/03/22 23:59ID:???

>>42
連邦の板みたいhtmlに吐き出して
負荷を減らしたいってことじゃないの？

0047nobodyさん

03/03/23 02:05ID:???

>>42
過疎板なんだからお客さんは大切にｗ
意図は46が言うとうりに汲み取れるけどな～
カルシウム取って落ち着きなさい。

0048nobodyさん

03/03/23 02:47ID:???

ｈｔｍｌをファイルに書き出したいって言えばいいのに
なんかこの板は質問のへたなのばかりだな

0049nobodyさん

03/03/23 08:57ID:???

>>47
質問下手の相手をする気はねぇよ。

ただでさえ、実生活で顧客の曖昧な要求の処理に苦労してんのに、こんなとこまで来てやってられるか。

0050nobodyさん

03/03/23 09:19ID:???

>>49まだニュアンスとしてはわかる範囲だと思うが・・・・
>>44の"そのメッセージ"ってのあたりになると解らんけど・・・

で、htmlとしてソースを吐こうとするのは、普通のCGIじゃ無理かと。
無論、自分で作れば問題ではない

0051nobodyさん

03/03/23 13:04ID:???

>>49
じゃあこんなスレに出入りすんなよ。
カチンと来る気持ちもわかるが、
そうやって雰囲気悪くされるとそれも頭に来る。
というわけで、馬鹿相手にしたくないときはレスしないか、
そおれが出来ないならスレを覗かないかどっちかにしてくれ。

0052AR

03/03/23 13:15ID:7sODWzUz

>>4さん無事削除後メッセージがでました。
自分の発言を消去を押すと自分の発言した文字すべてにAll Clear (^-^)vが付いてしまうので、それを付かずに一番上に'All Clear (^-^)v'をつける改造をお願いします。
援助宜しくお願い致します。

005349

03/03/23 21:22ID:???

>>51
ああ、すまない。確かに見ていて気持ちのいい書き込みじゃなかった。
しかしながら、>>52 には別の意味でカチンと来てしまったよ。

ただ、こういう書き込みがあると、他の質問者もこのレベルになるんじゃないかと心配でならない。
できれば、もうちょっとマシな質問の仕方を学んで欲しいと思うのだけれども、
俺の考えることじゃないのかな。

0054nobodyさん

03/03/24 00:48ID:???

というわけで、質問者はもう少し具体的な質問を心がけるように。
回答者ももう歩み寄ってﾅﾏｱﾀﾀｶｲ視線の送るということで。

0055nobodyさん

03/03/24 00:49ID:???

送りがな滅茶苦茶…逝ってきますｽﾞｻｰ

0056AR

03/03/24 15:53ID:YcFPejc4

援助お願い致します。

0057nobodyさん

03/03/24 15:57ID:???

>>56
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
　　　　　　　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~

0058nobodyさん

03/03/24 16:55ID:???

>56
もうくんなっつっただろうが！
なぁ～にが援助だｳﾞｫｹ、稲！！

0059nobodyさん

03/03/24 17:22ID:???

もちつけ～ >>58
努力しる～ >>56

0060nobodyさん

03/03/24 18:39ID:???

>>56
みんな君の努力の跡が見えんからこんないわれ方をするんだよ。
どんな改造をしてきたか、スクリプトをここに晒せ！

0061nobodyさん

03/03/24 22:21ID:???

春休み突入企画！援助改造を求める子供達

0062nobodyさん

03/03/25 02:45ID:???

ネタか電波じゃないのかと思えてきとるわけだが・・・

0063nobodyさん

03/03/26 01:43ID:???

&jcode'convert(*value, "euc", "", "z"); #変換前
Jcode::convert(\*value, "utf-8"); #Jcode.pm変換後

&jcode'convert(*sub, "euc", "", "z"); #変換前
Jcode::convert(\*sub, "utf-8"); #変換後

文字コードをユニコードにしたいのですが、これであってますか？

0064nobodyさん

03/03/26 02:48ID:???

>>63
Jcode::convert(\$value, "utf-8");

0065nobodyさん

03/03/26 02:50ID:???

>>64
間違った
Jcode::convert(\$value, "utf8");

006641

03/03/26 04:41ID:Ri6qLnoQ

表現ヘタでごめんね。
整理すると、つまり負荷負荷のために表示を.cgiではなく.htmlにしたいの。
ぐぐってみたんだけど情報が見つからなくて、
なにかヒントがあればなぁと思ってこのスレに来たんだよ。
でも慌てすぎてて舌足らずだったね。
勘弁してちょ。
もちっと自分で試行錯誤してから出直すよん。

006741

03/03/26 04:41ID:Ri6qLnoQ

負荷負荷→負荷軽減

006863

03/03/26 05:17ID:???

>>65さん

ありがとうございました。この記述でちゃんとUTF-8にエンコードできました。

0069nobodyさん

03/03/26 16:22ID:yvUoj8Wi

http://www.futomi.com/library/accp.html
http://www.futomi.com/cgi-bin/dlrank/dlranklog.cgi?dl=accp_zip
このアクセス解析を改造したいです。

このアクセス解析はログ内に
20030326155753 ***.docomo.ne.jp 210.153.84.***.1048661873 - http://*** - "DoCoMo/1.0/N504iS/c10/TB" "-" "-"
と言ったログを残すのですがH"ではログが
20030326124628 pdxcgw.pdx.ne.jp 210.168.199.42.1048650389 - - - "" "-" "-"
となってしまいUser Agentは残らないようです。
そこでacc.cgiを
} elsif($user_agent =~ /^PDXGW/) {
から
} elsif ($ENV{'REMOTE_HOST'} eq 'pdxcgw.pdx.ne.jp') {
とホストでの判別できるように
記述し直しましたが
これだけではダメのようです。

ホストでの判別、もしくはUser Agentによる判別をしたいのですが。。。
http://specters.net/cgipon/labo/c_dist.html
http://specters.net/cgipon/labo/c_env.cgi?c=h
http://specters.net/cgipon/labo/h_spec.html

このあたりを参考にしたんですが。。。

0070nobodyさん

03/03/26 17:24ID:NtHaVELZ

　　。　　*　　　。　☆　　。　+ 　。　 + ☆　　*
　☆　http://www5b.biglobe.ne.jp/~ryo-kyo/osu.html　☆
　。 ☆ 。 * ☆ 　　+ 。　　　。　　+　　+　　☆　　☆

おすすめの無料オンラインゲームは↓　vector
http://my.vector.co.jp/servlet/System.FileDownload/download/ftp/0/278022/pack/win95/game/table/pachinko/majo_.lzh

0071nobodyさん

03/03/26 21:00ID:???

>>69
H"の有識者が現われる前にスレ汚し。

えーと、要は、
1. H"ではログに UserAgent が残らない
2. acc.cgi をホストで判別できるように直したがダメだった

で、
Q1. ホストで何を判別したいの？
Q2. ソースを直した箇所って条件に合致した後、どんな処理をするの？
Q3. H" のリモートホストって、'pdxcgw.pdx.ne.jp' で固定なの？
Q4. どうダメだったの？いや判別できなかったんだろうけど、具体的はどーなのよ

0072nobodyさん

03/03/26 21:52ID:???

>>66
亀レスだが、perl/CGIなら
$bbsdata = (掲示板のHTMLすべて);

open (FH, +<$filename);
print FH $bbsdata;
close(FH);

でいいんじゃないの?

007369

03/03/26 21:52ID:???

A1.ログから出て、アクセス解析に表示されるようにしたい
A2.それが分からないから困ってる。
A3.そう、固定。
A4.書き換えても変化無し、エラーも何も起きない。

以上です。

■ このスレッドは過去ログ倉庫に格納されています

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

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