トップページ⇒php
821コメント330KB

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

■ このスレッドは過去ログ倉庫に格納されています
0001103/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化済み)
0002AR03/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;
}

消去後の名前とメッセージをそれぞれ好きなのに変えれ。
消去しないほうはコメントアウトしれ。
0005203/03/17 02:02ID:TTdi1HRW
>>4
いやです。
0006AR03/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:???
せっかくやってやったのに、いやですだとー？
0009AR03/03/17 14:48ID:DC9PFXA+
エラーがでたので見てください
ソース⇒http://csx.jp/~lgyec/ichats.data
援助お願いします。
0010nobodyさん03/03/17 15:18ID:???
>>9
ふざけてんのか？
全角スペースを置き換えれって言っただろうが！
0011nobodyさん03/03/17 16:59ID:???
スペースが見えるエディタを使ったほうがいいね。
0012AR03/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]<br>
[$bbs_name]<br>
[$bbs_date]
</body>
</html>
HTML

下のサイトのやつです。
ttp://xx.alpha-sv.com/vf4/cgi/update_bbs.cgi
0018nobodyさん03/03/19 13:24ID:???
>>17
「動かない」だけじゃわかんないよ。
「どう動かないのか」を書いてくれ。
0019sage03/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
0022sine03/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);
00251703/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 "<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";}

あとは自分の都合のいいように改造すれ
0038AR03/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化したいんだけど、
どうやるのか見当がつかない。
なんかヒントがあったら教えてオクレ。
■ このスレッドは過去ログ倉庫に格納されています