【 スクリプト改造工房 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:vOOsWTxUAll Clear (^-^)v > () と名前のところにそのALL Clearとでて文字のところに()とでます。
後その自分の発言を削除を押した後発言をするとAll Clear (^-^)v > () が消えてしまいます。
援助お願いします。
0003前田
03/03/16 18:42ID:KSrtergbこちらのｻｲﾄのポップアップ式の掲示板を使ってるのですが
開示版に書かれた最後の記事の時間をindexページに表示したいのですが
どのようにすればよろしいのでしょうか？
教えてください
↓こんなｻｲﾄみたいにです。
http://www.ayapro.com/board.html
0004nobodyさん
03/03/16 23:51ID:???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いやです。
0006AR
03/03/17 13:44ID:DC9PFXA+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
援助お願いします。
0011nobodyさん
03/03/17 16:59ID:???0012AR
03/03/17 18:06ID:DC9PFXA+ちなみにいつもはメモ帳でやってます。
0013nobodyさん
03/03/17 18:27ID:???0014nobodyさん
03/03/17 18:30ID:E6NZQVv8秀麻呂を知らんのかっと、。
0015nobodyさん
03/03/17 19:33ID:???とりあえず聞く前に自分で適当なエディタを探して試すべし。
（秀丸は有料だから、フリーのを……なんて質問は却下だよ）
0016nobodyさん
03/03/17 20:12ID:???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]<br>
[$bbs_name]<br>
[$bbs_date]
</body>
</html>
HTML
下のサイトのやつです。
ttp://xx.alpha-sv.com/vf4/cgi/update_bbs.cgi
0019sage
03/03/19 14:16ID:Z36WfgQaファイルが月ごとになっているのでほかのスクリプトから移植することができませんでした。
できれば検索にかかった記事の全文を表示し該当ワードを太字にするような検索結果にしたいです。
わかる方がいましたらよろしくお願いします。
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:???@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:???一番上の行を抜き取るならこれでいいんじゃない？
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:???初心者のほう逝って勉強してきたほうがいいですよね…
0027nobodyさん
03/03/19 17:32ID:???0028nobodyさん
03/03/19 18:13ID:???0032nobodyさん
03/03/21 02:31ID:Q30fXesm0035nobodyさん
03/03/21 03:48ID:NS9P8WQ30036nobodyさん
03/03/21 05:15ID:b07vwTaxhttp://homepage3.nifty.com/digikei/
0037nobodyさん
03/03/21 07:18ID:???とあるスクリプトの該当部分
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 "<B>[$i]</B>";}
else {print "[<A HREF=\"$script?page=$i\">$i</A>]";}
}
if ($page < $lpage){
$npage = $page + 1;
print " [<A HREF=\"$script?page=$npage\">次のページ</A>]";
}
print "<BR><BR><BR>\n";
}
else {print "<BR><BR>\n";}
あとは自分の都合のいいように改造すれ
0038AR
03/03/22 15:47ID:WjvvL6Ftちなみに秀丸をつかってやりました。
ソース⇒http://csx.jp/~lgyec/ichat.data
おかしい部分を教えてください。
0040nobodyさん
03/03/22 16:52ID:???お前なぁ・・・
同じこと何度目だよ？（ﾟДﾟ#）
秀丸なら その他→ファイルタイプ別の設定→表示 で
全角空白を記号で表示 にチェック入れてみれ
できたという報告をするまで二度と来るな！
0041nobodyさん
03/03/22 17:57ID:O6IB41Gfどうやるのか見当がつかない。
なんかヒントがあったら教えてオクレ。
0044AR
03/03/22 19:01ID:gauSJKrI自分の発言を削除押したらそのメッセージがでるんですけど。
名前のところにまでそのメッセージがでます。
援助お願い致します。
0045nobodyさん
03/03/22 19:22ID:???氏ね
二度とくんなｳﾞｫｹ！
0048nobodyさん
03/03/23 02:47ID:???なんかこの板は質問のへたなのばかりだな
0049nobodyさん
03/03/23 08:57ID:???質問下手の相手をする気はねぇよ。
ただでさえ、実生活で顧客の曖昧な要求の処理に苦労してんのに、こんなとこまで来てやってられるか。
0050nobodyさん
03/03/23 09:19ID:???>>44の"そのメッセージ"ってのあたりになると解らんけど・・・
で、htmlとしてソースを吐こうとするのは、普通のCGIじゃ無理かと。
無論、自分で作れば問題ではない
0051nobodyさん
03/03/23 13:04ID:???じゃあこんなスレに出入りすんなよ。
カチンと来る気持ちもわかるが、
そうやって雰囲気悪くされるとそれも頭に来る。
というわけで、馬鹿相手にしたくないときはレスしないか、
そおれが出来ないならスレを覗かないかどっちかにしてくれ。
0052AR
03/03/23 13:15ID:7sODWzUz自分の発言を消去を押すと自分の発言した文字すべてにAll Clear (^-^)vが付いてしまうので、それを付かずに一番上に'All Clear (^-^)v'をつける改造をお願いします。
援助宜しくお願い致します。
005349
03/03/23 21:22ID:???ああ、すまない。確かに見ていて気持ちのいい書き込みじゃなかった。
しかしながら、>>52 には別の意味でカチンと来てしまったよ。
ただ、こういう書き込みがあると、他の質問者もこのレベルになるんじゃないかと心配でならない。
できれば、もうちょっとマシな質問の仕方を学んで欲しいと思うのだけれども、
俺の考えることじゃないのかな。
0054nobodyさん
03/03/24 00:48ID:???回答者ももう歩み寄ってﾅﾏｱﾀﾀｶｲ視線の送るということで。
0055nobodyさん
03/03/24 00:49ID:???0056AR
03/03/24 15:53ID:YcFPejc40057nobodyさん
03/03/24 15:57ID:???(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
~~~~~~~~~~~~~~~~~~~~~~~~~~
0058nobodyさん
03/03/24 16:55ID:???もうくんなっつっただろうが！
なぁ〜にが援助だｳﾞｫｹ、稲！！
0061nobodyさん
03/03/24 22:21ID:???0062nobodyさん
03/03/25 02:45ID:???0063nobodyさん
03/03/26 01:43ID:???Jcode::convert(\*value, "utf-8"); #Jcode.pm変換後
&jcode'convert(*sub, "euc", "", "z"); #変換前
Jcode::convert(\*sub, "utf-8"); #変換後
文字コードをユニコードにしたいのですが、これであってますか？
006641
03/03/26 04:41ID:Ri6qLnoQ整理すると、つまり負荷負荷のために表示を.cgiではなく.htmlにしたいの。
ぐぐってみたんだけど情報が見つからなくて、
なにかヒントがあればなぁと思ってこのスレに来たんだよ。
でも慌てすぎてて舌足らずだったね。
勘弁してちょ。
もちっと自分で試行錯誤してから出直すよん。
006741
03/03/26 04:41ID:Ri6qLnoQ0069nobodyさん
03/03/26 16:22ID:yvUoj8Wihttp://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:???H"の有識者が現われる前にスレ汚し。
えーと、要は、
1. H"ではログに UserAgent が残らない
2. acc.cgi をホストで判別できるように直したがダメだった
で、
Q1. ホストで何を判別したいの？
Q2. ソースを直した箇所って条件に合致した後、どんな処理をするの？
Q3. H" のリモートホストって、'pdxcgw.pdx.ne.jp' で固定なの？
Q4. どうダメだったの？いや判別できなかったんだろうけど、具体的はどーなのよ
0072nobodyさん
03/03/26 21:52ID:???亀レスだが、perl/CGIなら
$bbsdata = (掲示板のHTMLすべて);
open (FH, +<$filename);
print FH $bbsdata;
close(FH);
でいいんじゃないの?
007369
03/03/26 21:52ID:???A2.それが分からないから困ってる。
A3.そう、固定。
A4.書き換えても変化無し、エラーも何も起きない。
以上です。
007472
03/03/26 21:54ID:???>>72(書き込み処理含む)の後で、locationヘッダでhtmlに飛ばすとか。
書き込みだけCGI使うことになるから、かなりLOM多いなら有効だとｵﾓﾌ。
■ このスレッドは過去ログ倉庫に格納されています