■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

2ch型掲示板

665 :名無しさん@お腹いっぱい。 :2001/08/09(木) 18:38 ID:???
トリップ対応希望!!

666 :名無しさん@お腹いっぱい。 :2001/08/09(木) 18:40 ID:???
ひとり用キャップ、略してトリップ
http://teri.2ch.net/test/read.cgi?bbs=accuse&key=997341975

667 :微笑 :2001/08/09(木) 19:09 ID:???
__
         〃 _`__
     ,,-=-、、l{,_'´..._ `ヽ、、
   〃. ',.´二W´- ‐-`\ \ヽ、___
   _{l,'.'´      、 ヽ ヽ ヽ彡k、ヽ\
  .//`/   i l.    \ 、ヽ `、 i彡}ヽ`' ´ ▲女優,アイドル、脱がしました▲
. /| / i {  |l {\ {ヽ、_!..ヽ」_/} .}./ |__〉、
 \l.{. l.ヾ _.ゝ_土. ゝ -'fT;;ヽ,| lテ}| ||__〉
   /iヽゝヽ/{~);;:l     {:..''ノ'ノノ|{ノ |_!!女優,女子高生のエッチ画像ばかりを厳選収集!スクール水着,女優,画像ばかり。
  .|_|l」ヽ. ヽ ゞ‐'   、   ̄`ノレヽソ|  
     (.ソ.ゝ     --    /' {=}ノ ◆アイドル画像秘宝館◆
     (=| l へ、      /ノノ((.)). http://www.futomomo.com/netidol/idolhappy/maki/ 
     ((!)ヾヽヽ` ;.- ' ´ |'' ''"'´◆アイドラー◆
         `~^``/'l    ゜>\_ http://www.futomomo.com/netidol/idoler/megu/
     , -‐〃"´ |___/   >- 、 ◆セーラー服◆
   / ./〃    |=/    〃/  \ http://www.futomomo.com/netidol/sailor/miku/
  /   | ||, ‐-、_,...!、/_ ,..、 .〃/      ヽ ◆人妻◆
  〈   / -ー.{ { {.=  ヽ、|| l      | http://www.futomomo.com/netidol/waif/mai/
  |   ヽ  /| |\   / i 〉        | ◆スイート倶楽部◆
  〈  ∧ l_/./ |  | \ _/  /       / http://www.futomomo.com/netidol/sweetclub/miyuki/

hjklkl;o

668 :名無しさん@お腹いっぱい。 :2001/08/09(木) 19:24 ID:???
>>657
トクトクは2ch型掲示板禁止では?

669 :名無しさん@お腹いっぱい。 :2001/08/09(木) 19:40 ID:???
>>668
2ちゃんねるのように掲示板を多数設置するのが禁止では?

670 :見本 :2001/08/09(木) 20:53 ID:???
板を4個くらいしか作ってないけどやばいすか?
やばかったら撤去します

671 :見本 :2001/08/09(木) 20:54 ID:???
670は
>>668
>>669
です

672 :sky-yeah :2001/08/09(木) 22:37 ID:???
>>498
uerror.cgi(アクセス制限するIPリスト、という理解でよろしいでしょうか)の
置き場所は、

 "../" . $FORM{'bbs'} . "/log/uerror.cgi"
じゃなくて
 "../" . $FORM{'bbs'} . "/luerror.cgi"

ではないでしょうか。
bbs.cgiの該当個所を見て気が付き、書き換えて試しましたら
たまたまうまくいきましたのでご報告まで。
(bbs.cgiの242行辺り)
 if(-e "../$FORM{'bbs'}/uerror.cgi"){
 open (IN,"../$FORM{'bbs'}/uerror.cgi");

673 :名無しさん@お腹いっぱい。 :2001/08/09(木) 22:42 ID:???
>>665-666
(゚Д゚)ハァ? そんなもん17掲示板にはないから作ってくれた

674 :672 :2001/08/09(木) 22:45 ID:???
舌足らずで申し訳ありません。

17さんが>>380で公開されたスクリプト群のうちのkanri2.cgiに、
>>498さんの指摘による分を追加したものに対して、
「/log/uerror.cgi」と記述されている部分を一括して
「/uerror.cgi」に置換してみました。

675 : :2001/08/09(木) 23:46 ID:BmZbPjoY
名前に◆って入れてるのにどうして◇になっちゃうんですか?

676 :名無しさん@お腹いっぱい。 :2001/08/10(金) 00:19 ID:RfaXOdcA
ところで、2ch型掲示板のCGIスクリプトとか
無料で提供しているサイト知らない?
もっと安全な2ch風サイトを持ちたいんだけど。

677 :名無しさん@お腹いっぱい。 :2001/08/10(金) 00:32 ID:???
>>676
ここでDLしてこい。それから、「あめぞう型」な。
http://isweb19.infoseek.co.jp/computer/big-08/111.html

678 :名無しさん@お腹いっぱい。 :2001/08/10(金) 00:37 ID:???
>>677
それ、古い。しかも安全じゃなヨ。

679 :名無しさん@お腹いっぱい。 :2001/08/10(金) 00:40 ID:RfaXOdcA
安全じゃないってどういうこと?

680 :名無しさん@お腹いっぱい。 :2001/08/10(金) 00:41 ID:???
>>679
危険ってこと。

681 :名無しさん@お腹いっぱい。 :2001/08/10(金) 00:58 ID:RfaXOdcA
>>680
それはわかっとる

682 :名無しさん@お腹いっぱい。 :2001/08/10(金) 01:14 ID:.g3YDluw
すげえ

683 :名無しさん@お腹いっぱい。 :2001/08/10(金) 02:34 ID:???
vedaは危険じゃないですか?>>678

684 :名無しさん@お腹いっぱい。 :2001/08/10(金) 03:00 ID:???
トリップ実装のためのヒントです。
http://corn.2ch.net/test/read.cgi?bbs=entrance&key=997377815

685 :名無しさん@お腹いっぱい :2001/08/10(金) 03:11 ID:???
>>672
そのバグって14.zipのkanri2.cgiの不具合でわ?
未だにレスがあるということは15.zipでも修正されていないってことなんですか?

15.zipのkanri2.cgiの中身確認したら>>498のサブルーチンは見当たらなかった
けども、正常に動いているような気がするんだけれども、
結局 15.zipのkanri2.cgiは>>498を付け足した方がいいんですか?

15.zipでも直した方がいいのか、修正した方がいいのかDocchi!?

686 :名無しさん@お腹いっぱい。 :2001/08/10(金) 04:02 ID:???
>>653さん、どうもです。
直りました!

う〜ん、しかし書き込みをみてると14のバグと15のバグがわからなくなってきた・・・

687 :名無しさん@お腹いっぱい。 :2001/08/10(金) 04:04 ID:???
トリップの暗号化コード
http://corn.2ch.net/test/read.cgi?bbs=entrance&key=997381086&st=119&to=119

688 :◇◇ :2001/08/10(金) 07:12 ID:???
http://teri.2ch.net/test/read.cgi?bbs=accuse&key=997341975&ls=50
トリップか、名前欄に◆まで入らなくなった

689 :◇◇ ◆Z52ChxFM :2001/08/10(金) 07:14 ID:???
名前欄:◆◇#789898
テストスマソ

690 :17 ◆puVb716E :2001/08/10(金) 08:11 ID:???
トリップ搭載ー(仮)
http://www.apc.7777.net/file/bbs2ch/bbs.txt
http://www.apc.7777.net/file/bbs2ch/subbbs.txt

691 :17 :2001/08/10(金) 08:25 ID:???
↑なぜかFTPが使えないので
http://www.geocities.com/seven0100/bbs.txt
http://www.geocities.com/seven0100/subbbs.txt


692 : ◆xs1/kago :2001/08/10(金) 08:26 ID:???
>>690
早っ!
ごくろうさまです!

693 :名無しさん@お腹いっぱい。 :2001/08/10(金) 10:09 ID:???
subbbs.cgiって何に使うものなんですか?
iモード?

694 : :2001/08/10(金) 10:25 ID:PkS8ePU6
read.phpって何に使うものなんですか?

695 :名無しさん@お腹いっぱい。 :2001/08/10(金) 11:53 ID:???
>>694
初心者の君にはこれをあげるよ!
http://www.google.com/en

696 :名無しさん@お腹いっぱい。 :2001/08/10(金) 15:42 ID:???
17さんの掲示板ヴァージョン15を使おうとしている者です。
すみません。パーミッション設定がどーやってもうまくいきません。
もう「教えてクン」や「初心者」とでも言われてもいいので教えて下さい。
お願いします。

697 :名無しさん@お腹いっぱい。 :2001/08/10(金) 17:56 ID:???
教えてクンや自称初心者には教えない。

698 :名無しさん@お腹いっぱい。 :2001/08/10(金) 18:58 ID:???
subbbs.cgiって何なの?

699 :名無しさん@お腹いっぱい。 :2001/08/10(金) 19:16 ID:???
subbbs捨てて、
新スレ別窓に設定してスレたててみそ

700 :名無しさん@お腹いっぱい。 :2001/08/10(金) 19:20 ID:???
スレ立て確認か、、、(―_―

701 :名無しさん@お腹いっぱい。 :2001/08/10(金) 21:40 ID:???
パーミッションがうまくいかないんならなんでもかんでも707にしろ!
セキュリティーなんかクソくらえ!

702 :1 :2001/08/10(金) 22:14 ID:KWfG9o7o
http://www.traffimagic.com/WIP15MMKOCA/B000057/comein/WIP

http://www.traffimagic.com/WIP15MMKOPA/B000017/comein/WJF

http://www.traffimagic.com/WIP15MMKOQA/B000022/comein/WJH

http://www.traffimagic.com/WIP15MMKOSA/B000057/comein/WJT

http://www.traffimagic.com/WIP15MMKOCA/B000013/comein/WJF

http://www.traffimagic.com/WIP15MMKOPA/B000018/comein/WJH

703 :名無しさん@お腹いっぱい。 :2001/08/11(土) 01:32 ID:19Fw1.Uw
http://isweb34.infoseek.co.jp/feminine/takoimo/
スネちゃまが相手したるで

704 :名無しさん@お腹いっぱい。 :2001/08/11(土) 02:11 ID:???
>>696
なら設置してるサーバーかURL教えてくんないと・・・

705 :名無しさん@お腹いっぱい。 :2001/08/11(土) 04:32 ID:???
>>696

設置ディレクトリは707
*.cgiは755
*.TXT、*.htmlは666

これで大概動くはずですけど…
あと、17さんのスクリプトは、動かせるサーバにも制約がありますよ。

706 :ヽ(´ー`)ノ ◆PeRL5b/w :2001/08/11(土) 11:37 ID:???
ヤター やっとちょといいの出たよー P266だとつらいぷぅ

707 :きつね :2001/08/11(土) 11:40 ID:KWfa94uY
私の所は
設置ディレクトリ701
*.cgiは700
*.TXT600
*.htmlは604
で動きました。

708 : ◆NRhOuzXM :2001/08/11(土) 13:00 ID:???
test

709 : ◆7420631I :2001/08/11(土) 16:01 ID:N6Aog.2M
tes?

710 :名無しさん@お腹いっぱい。 :2001/08/11(土) 17:42 ID:???
>>691 17さん
このverから導入したので、間違ってたらすんません。
bbs.cgi内を見たら、それらしき記述があるので、
fusianasanが使えると思ったのですが、fusianasan使えないです。

711 :名無しさん@お腹いっぱい。 :2001/08/11(土) 19:51 ID:???
17さんのスプリプトってだれかan httpdで使ってる人いますか?
ブラウザではいいんですが、書き込みすると
かちゅ〜しゃだとログが詰まっていると言われて
いったんログを消さないと表示出来ません。

どっかにゴミでも混入してるんでしょうか?
perlの改行コードのせいかな?

712 :名無しさん@お腹いっぱい。 :2001/08/11(土) 23:28 ID:???
>>711
それ多分改行コード
家ではローカルでそうなった。
freewebだと大丈夫。

713 :18才の芸能人 :2001/08/12(日) 00:16 ID:6KogsX6I
◆綺麗なおねぇさんは好きですか?◆
http://www.futomomo.com/netidol/sister/megu/
◆アイドル画像秘宝館◆
http://www.futomomo.com/netidol/idolhappy/maki/

fesfeswfew

714 :名無しさん@お腹いっぱい。 :2001/08/13(月) 02:16 ID:k33LxcP.
もしかして、トリップのパターン変わってる?

715 :名無しさん@お腹いっぱい。 :2001/08/13(月) 02:21 ID:???
トリップのパターン変更に対応きぼーん。

716 :名無しさん@お腹いっぱい :2001/08/13(月) 03:01 ID:mNIUXHFA
うん、トリップ変わったねぇ

717 :名無しさん@お腹いっぱい。 :2001/08/13(月) 04:04 ID:???
トリップって何?

718 :名無しさん@お腹いっぱい。 :2001/08/13(月) 04:09 ID:???
ストリップ

719 :名無しさん@お腹いっぱい。 :2001/08/13(月) 04:33 ID:???
>>717
過去ログ読めや(゚Д゚#)ゴルァ!!

 > > 6 6 6 で が い し ゅ つ

720 :名無しさん@お腹いっぱい。 :2001/08/13(月) 04:36 ID:???
SALT変わる度に対応して貰うのカー (゚д゚lll)
アルゴリズムは変わってねえべ??

721 :名無しさん@お腹いっぱい。 :2001/08/13(月) 04:39 ID:???
もう変わらないだろうから

722 :1 :2001/08/13(月) 06:38 ID:v3lhdDZ2
http://www.topmode100.com/ranking/rankem.cgi?id=jtn3f

http://www.topmode100.com/ranking/rankem.cgi?id=jtn3f

723 :◆kTvYxtEs :2001/08/13(月) 13:31 ID:???
tes

724 :名無しさん@お腹いっぱい。 :2001/08/13(月) 14:38 ID:zXL3P2Gg
マジカルバナナみたなやつです
http://www2.azaq.net/free/bn/bn.cgi?helloby
           ↑
      私はここにはまってます

725 :17 :2001/08/13(月) 17:19 ID:???
新しいsaltは「ww」のようです
適当に850行あたりを書き換えといてください

726 :名無しさん :2001/08/13(月) 19:02 ID:???
730 名前:WWCU ◆2ch/WWCU 投稿日:2001/08/11(土) 19:40 ID:???
>>727
そのようです。

早速だけど見切れたかも知れません。

どうやらパスの2文字目と3文字目をsaltに使うようです。

で、パスが1文字しかない場合、saltは「H{」です。
で、パスが2文字しかない場合、saltは、パスの2文字目と「H」です。

今度こそ間違いじゃないと思うけど。。。

727 :名無しさん@お腹いっぱい。 :2001/08/13(月) 19:20 ID:???
>>726
半角英数字の場合、パスの2文字目と3文字目を種にしてる模様・・・
全角日本語の場合、サパーリわかりません。

728 :◆IRreONPU :2001/08/13(月) 20:45 ID:???
>>725-727
トリップスレにあったトリップサーチスクリプトから移植。

#トリップ
my ($trip,$key,$salt);
if($FORM{'FROM'}=~/#/){
$FORM{'FROM'}=~/([^#]*)#(.+)/;
$key = $2;
$salt = substr($key."H.", 1, 2);
next if ($salt =~ /["#&.\/<>]/o);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = substr(crypt($key, $salt),-8);
}

$FORM{'mail'} =~ /([^#]*)/;$FORM{'mail'} = $1;
$FORM{'FROM'} =~ /([^#]*)/;$FORM{'FROM'} = $1;

$FORM{'FROM'}.=" ◆$trip" if($trip);

かちゅ〜しゃ板のスクリプトを入れ替えて正常動作することを確認。

729 :◆2Wyjdi7M :2001/08/13(月) 22:17 ID:???
>>728
実装してみました。有難うございました。

730 :◆H2EPjTeY :2001/08/13(月) 22:21 ID:???
ふむふむ。。。さんきゅー >>728

731 :名無しさん@お腹いっぱい。 :2001/08/14(火) 00:59 ID:???
megabbsが一番いいYO!

732 :名無しさん@お腹いっぱい。 :2001/08/14(火) 01:29 ID:???
>>731
sageカキコをカウントしないからキライ。

733 :名無しさん@お腹いっぱい。 :2001/08/14(火) 06:00 ID:???
>>728
かちゅ板でテストしたところ、
>next if ($salt =~ /["#&.\/<>]/o);
のせいで、$saltにこれらの文字が含まれていると、
パスがそのまま表示されてしまいます。
2ちゃんでは
>$salt =~ s/[^\.-z]/\./go;
が働いて、ちゃんと"."に入れ替わって暗号化されます。
例として、名前欄にname#a#testといれると、
本来ならname ◆C7.mGKvIとなりますが、
かちゅ〜しゃ板ではname#a#test とそのまま表示されます。

そもそも該当個所の意味がわからないのですが、
単純に削除してよろしいでしょうか?
それとも17さんのスクリプトにおいては何か意味があるのでしょうか?

734 :733 :2001/08/14(火) 06:32 ID:48vccb9g
それと、3,4行目の
>$FORM{'FROM'}=~/([^#]*)#(.+)/;
>$key = $2;
ですが、単純に
$FORM{'FROM'}=~/#(.+)/;
$key = $1;
で十分じゃないでしょうか。名前部分は最後でもう一度取り直しているし。

735 :◆IRreONPU :2001/08/14(火) 13:12 ID:???
>>733
>そもそも該当個所の意味がわからないのですが、
>単純に削除してよろしいでしょうか?

17さんの>>691のスクリプトで

my $trip;
#トリップ
if($FORM{'FROM'}=~/#/){
$FORM{'FROM'}=~/([^#]*)#(.+)/;
$trip=substr(crypt($2,86),-8);
}


$FORM{'mail'} =~ /([^#]*)/;$FORM{'mail'} = $1;
$FORM{'FROM'} =~ /([^#]*)/;$FORM{'FROM'} = $1;


$FORM{'FROM'}.=" ◆$trip" if($trip);

と書いてある場所を置き換えてください。

>かちゅ板でテストしたところ、
>>next if ($salt =~ /["#&.\/<>]/o);
>のせいで、$saltにこれらの文字が含まれていると、
>パスがそのまま表示されてしまいます。

申し訳ありません。解析プログラムの、チェックを飛ばしているところを
そのままにしてしまったようです。当該行は削除してください。

736 :◆IRreONPU :2001/08/14(火) 13:33 ID:???
>>734
こっちもそのとおりです。

737 :◆IRreONPU :2001/08/14(火) 13:59 ID:???
>>728の改良版です。>>733-734の指摘を受けた場所を変更しています。
17さんのスクリプトから置き換える場所は>>735と同じ。

#トリップ
my ($trip,$key,$salt);
if($FORM{'FROM'}=~/#/){
$FORM{'FROM'}=~/#(.+)/;
$key = $1;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = substr(crypt($key, $salt),-8);
}

$FORM{'mail'} =~ /([^#]*)/;$FORM{'mail'} = $1;
$FORM{'FROM'} =~ /([^#]*)/;$FORM{'FROM'} = $1;

$FORM{'FROM'}.=" ◆$trip" if($trip);

チェックしてみた限りでは、これでOKのはず。

738 :733 :2001/08/14(火) 14:36 ID:48vccb9g
>>735-737
お疲れ様です。
該当個所というのは、単にnextの部分のつもりだったのですが、
なんか失礼な書き方になってしまいましたね。ごめんなさい。

739 :729 :2001/08/14(火) 20:17 ID:???
>>738
有難うございました。はねられる文字列もなく非常に助かってます。

740 :名無しさん@お腹いっぱい。 :2001/08/15(水) 14:21 ID:???
すげー。
知識はないですが出来上がったら絶対使わせて貰います。

荒らし回避sage

741 :名無しさん@お腹いっぱい。 :2001/08/15(水) 20:37 ID:???
sage

742 :名無しさん@お腹いっぱい。 :2001/08/15(水) 20:50 ID:???
sage?

743 :名無しさん@お腹いっぱい。 :2001/08/15(水) 21:41 ID:???
http://www.apc.7777.net/aborn/index2.html
http://www.nissay.f2s.com/perl/index2.html

定期的に貼ってみる。

744 :17 :2001/08/15(水) 22:31 ID:vS4Lx6Q.
まんこ

745 :名無しさん@お腹いっぱい。 :2001/08/15(水) 22:57 ID:???
>>743 太文字バグも仕様って事かな。

746 :名無しさん@お腹いっぱい。 :2001/08/16(木) 03:16 ID:???
もう終わってしまったのかな?

17さんの>>601の15.zipをベースに
>>691のcgiを差換えた物での不具合なんですが、

・新規スレッド作成画面を別窓にすると、name,mailのボックスがでない。
 (書込みは可能)
・スレッド倉庫移転が出来ない。
 (処理が完了しても元のまま。板間移転は問題無し)

このくらいですね。

747 :名無しさん@お腹いっぱい。 :2001/08/16(木) 05:17 ID:???
もう終わりました。
後は独自で改造して下さい。

748 :名無しさん@お腹いっぱい。 :2001/08/16(木) 05:30 ID:???
>>747
ネタだろ?

749 :746 :2001/08/16(木) 06:52 ID:???
他に問題の出ている人は居ない様なので、サーバの問題でしょうか。
違っている部分は以下の通りです。

(正)
|while (xx1 < len) {
|xx2 = tmp1.indexOf(";", xx1);
(違)
|while (xx1 xx2 = tmp1.indexOf(";", xx1);


(正)
|<!--
|document.write("<INPUT TYPE=text NAME=FROM SIZE=20 VALUE=");
|document.write(Name, ">");
|// -->
(違)
|<!--
|document.write("document.write(Name, ">");
|// -->

因みにテストで使用したのは、prohostingです。

750 :672 :2001/08/16(木) 08:23 ID:???
>>749

>>268-273 あたりに似た問題が出てますね。
わたしはとりあえず272さんの解決法を採りました。

751 :746 :2001/08/16(木) 08:48 ID:???
>>750

>>268の状態にしたら全く同じ現象がでました。
やはり、サーバ絡みの様です。
ありがとうございました。

752 :名無しさん@お腹いっぱい。 :2001/08/16(木) 10:20 ID:???
>>751
漏れもプロホスで使ってて、同じ症状出るから、直接CGIからクッキー読み出す
ようにしたよ。
↓こんな感じ<read.cgiの191行あたりからね
-------
unless($FORM{'imode'}){

#クッキーの呼び出し
@pairs = split(/;\s*/,$ENV{'HTTP_COOKIE'});
foreach $pair(@pairs){
($cdat,$value) = split(/=/,$pair);
if($cdat eq MAIL) {$cmail = $value;}
if($cdat eq NAME){$cname = $value;}
}

print "Content-type: text/html\n\n";
print <<EOF;
<HTML>
(中略)
<td> 名前:
<INPUT TYPE=text NAME=FROM VALUE="$cname" SIZE=19>
E-mail<font size="1">(省略可)</font>:
<INPUT TYPE=text NAME=mail VALUE="$cmail" SIZE=19>
</td>

753 :746 :2001/08/16(木) 11:13 ID:???
>>752
752さんの方法で無事解消でされました。
大変、助かりました。

どうもありがとうございます。

754 :672 :2001/08/16(木) 12:01 ID:???
>>752
実は私も大変助かってしまいそうです。
ありがとうございます。早速試します。

755 :名無しさん@お腹いっぱい。 :2001/08/17(金) 18:12 ID:???
板別ランキング用スクリプト(17のスクリプト対応)でも作るか

756 :名無しさん@お腹いっぱい。 :2001/08/17(金) 22:18 ID:???
期待

757 :746 :2001/08/17(金) 22:40 ID:???
17さんのread.cgiを、転送データが軽くなるように(実況板向け)
表示部分だけ改造して使ってます。

http://yarakasu.chat-jp.com/misc/read.txt

758 :名無しさん@お腹いっぱい。 :2001/08/18(土) 02:32 ID:WtnnlNw.
17さんのスクリプトで過去ログ倉庫に逝ったdatは
自分でHTML化しないといけないんですか?

759 :名無しさん@お腹いっぱい。 :2001/08/18(土) 03:07 ID:???
>>758 これを使うがよかろう。

DAT2HTML
http://members.tripod.co.jp/tatsu01/

760 :名無しさん@お腹いっぱい。 :2001/08/18(土) 03:34 ID:???
>>759
これのperlスクリプト版ないですかね?
作ってってみようと挑戦しましたがいかんせん素人にプログラムはムリでした・・・
基本ルーチンさえ教えてくれたらprintは自分で何とかしたいとおもってます

761 :名無しさん || die :2001/08/18(土) 06:41 ID:???
>>760
さっくり作ってみた。Perl よくわからないので汚いけど。
http://nuna.tripod.co.jp/dat2html_pl.zip

762 :名無しさん@お腹いっぱい。 :2001/08/18(土) 11:09 ID:???
>>760
おいらが作った基本ルーチンはこんな感じ。。。
効率わるいね^^;
open (IN,"<$file.dat");
@log = <IN>;
close(IN);
$i=0;
while($log[$i]){
($name[$i],$mail[$i],$date[$i],$text[$i],$title[$i]) = split(/<>/, $log[$i]);
chop($title[$i]);
$i++;
}
(中略)
$i=0;
while($log[$i]){
$name[$i] = "<a href=\"$mail[$i]\">$name[$i]</a>" if $mail[$i]; $no = $i + 1;
print OUT "<dt>$no 名前:<font color=\"forestgreen\"><b>$name[$i]</b></font> 投稿日:$date[$i] <dd> $text[$i]<BR><BR>\n";
$i++;
}

763 :名無しさん@お腹いっぱい。 :2001/08/18(土) 11:37 ID:???
↑きたねー

764 :名無しさん@お腹いっぱい。 :2001/08/18(土) 11:38 ID:???
ていうか。

@log = <IN>;

この時点ですでに逝ってるね・・

211KB
新着レスの表示

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30