【ｽﾚｯﾄﾞ】2ｃｈ型掲示板 その5【ﾌﾛｰﾄ型】
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/04/22 03:33ID:VioYA9sp初 て
め て
て み
駄 わ て
ス か
レ る
か
圖 な
Λ＿Λ
（ ´∀｀）
（ ）
過去ログ
1 http://pc.2ch.net/test/read.cgi/php/988816430/
2 http://pc.2ch.net/test/read.cgi/php/998794497/
3 http://pc.2ch.net/test/read.cgi/php/1002782823/
4 http://pc.2ch.net/test/read.cgi/php/1010669197/
クレクレ厨と教えて君は書き込まないでください。
書き込んだのを発見しても他の方は無視してください。
0479nobodyさん
02/06/22 23:36ID:???0480nobodyさん
02/06/23 00:59ID:???0482462
02/06/23 02:00ID:???やってることはスゲー単純で、$ENV{'PATH_INFO'} を %FORM の対応している
連想配列に設定しているだけ。こんなの、うｐするまでもないもんだと思うが…
欲しいのか？
0484nobodyさん
02/06/23 15:06ID:???0485nobodyさん
02/06/23 16:04ID:???$size = int((-s $file) / 1024);
print "$size KB";
とか書いてそうだな。(ﾌﾟ
0487nobodyさん
02/06/23 17:28ID:???0488452
02/06/23 18:02ID:???容量が収得できないみたいです。
お馬鹿なおいらに突っ込みキボン(;´Д`)
if ($ENV{'PATH_INFO'}) {
print "</dl>";
print "<b>",int((-s DAT) / 1024),"KB</b>";
〜
}else {
print "</dl>";
print "<b>",int((-s DAT) / 1024),"KB</b>";
〜
}
0489nobodyさん
02/06/23 18:11ID:???0490pear ◆FRUIT8pk
02/06/23 18:49ID:???$file にサイズ取得したいファイルをあらかじめ代入しておく
0491nobodyさん
02/06/23 18:52ID:???もうね、アホかと。バカかと。
素人は print 'Hello world.'; でもやってなさいってこった。
0492466
02/06/23 18:59ID:???>>465が書いた例に対し、なぜ、わざわざ "." で結合するのか聞いたけど、
その回答が>>469の
> 明示のために使う方が正しいに決まっている。
か？
意味わかんねぇよｗ
何を明示すんだ？
そもそも$sizeって何に使うんだ？
使いもしねぇ変数作ってどうすんだよ？
おまけに "." 使って結合してるし…
>>465みたいに書きたいなら、普通は
> print int((-s $file) / 1024), "KB";
こう書くのがセオリー
これなら無駄なメモリ転送が起きないからな
ここまで書いてわからんなら氏ね
0493452
02/06/23 20:23ID:???>$file にサイズ取得したいファイルをあらかじめ代入しておく
ご丁寧にありがとです。何となく判ってきた…。
>>491
馬鹿って宣言してるから大目に見てちょ。
あとは自分でやってみるョ。
0494nobodyさん
02/06/23 21:02ID:???ボク厨房ですって言えば荒らしてもいいとは限らない
ボク精神病なんですって言えば馬鹿な事してもいいとは限らないのだよ。
0495pear ◆FRUIT8pk
02/06/23 21:02ID:???確かにそっちのほうが良いですね。。
まだまだよくわかってないんで。
0496452
02/06/23 21:32ID:???参考にしたURI：http://www.presso.jp/text/perl/file.html
どなたか添削おながいします。
open( DAT, "<../$bbs/dat/$key.dat" ); #←手前にこの一行を付け足してみました(;´Д`)
if ($ENV{'PATH_INFO'}) {
print "</dl>";
print "<b>",int((-s DAT) / 1024),"KB</b>";
〜
}else {
print "</dl>";
print "<b>",int((-s DAT) / 1024),"KB</b>";
〜
}
0497452
02/06/23 21:38ID:???print "</dl><b>",int((-s DAT) / 1024),"KB</b>";
0498pear ◆FRUIT8pk
02/06/23 21:45ID:???その "," は、文字列連結演算子の "." と等価の意味合いがあるんですか？
0499466
02/06/23 22:30ID:???print の実体は関数で、リストコンテキストを受け取るから、
"," で区切って渡せば前から順番に print してくれる
で、"." は文字列の結合演算子だから、先にメモリ上で結合してから、
その値を print に渡す
内部処理が違うから効率に差は出るけど、表示だけ見ると等価になる
0500nobodyさん
02/06/23 23:01ID:???500ゲットォォォ。
￣￣￣￣∨￣￣￣￣￣￣
_＿∧∧＿
／＼(ﾟーﾟ*) l＼ (´´
＼／|￣∪￣￣|＼ (´⌒(´
＼|＿＿＿＿|≡≡≡(´⌒;;;≡≡≡
(´⌒(´⌒;;
0501いい加減にしろ。コーディングスレ逝け。クズ共
02/06/23 23:02ID:???た か が "." で 熱 く な っ て い る 馬 鹿 共 の 集 う ス レ は こ こ で す か？
0502nobodyさん
02/06/23 23:18ID:???0504nobodyさん
02/06/24 00:41ID:???http://17ch.lib.net/test/read.cgi?bbs=morningcall&key=024704127
0505nobodyさん
02/06/24 00:42ID:???ｽﾏｿ
0507462
02/06/24 01:21ID:???sub decode_pathinfo
{
my ( $path_info, $resno, $h, $tmp );
$path_info = $_[0];
if ( $path_info ne '' ) {
( $tmp, $FORM{'bbs'}, $FORM{'key'}, $resno ) = split( /\//, $path_info );
$resno =~ /(i|l?)([0-9]*)(\-?)([0-9]*)(n?)/;
$FORM{'ls'} = $1 if ( $1 ne '' );
$FORM{'st'} = $2 if ( $2 ne '' );
$h = $3;
$FORM{'to'} = $4 if ( $4 ne '' );
$FORM{'nofirst'} = 'true' if ( $5 eq 'n' );
if ( $FORM{'ls'} eq 'l' ) {
$FORM{'ls'} = $FORM{'st'};
delete $FORM{'st'};
}
elsif ( $FORM{'ls'} eq 'i' ) {
$FORM{'imode'} = 'true';
delete $FORM{'ls'};
}
elsif ( $FORM{'st'} && $FORM{'to'} eq '' ) {
if ( $h ne '-' ) {
$FORM{'to'} = $FORM{'st'};
$FORM{'nofirst'} = 'true';
}
}
}
}
0508nobodyさん
02/06/24 01:43ID:???もそうだね。
0509nobodyさん
02/06/24 02:24ID:???print qq(<font color=red face="Arial"><b>$datfilesize KB</b></font> <font size=2><b>[ ２ちゃんねるの一日1,600万PVを支えるBig-Server.com ]</b></font>);
0510nobodyさん
02/06/24 02:29ID:ykcyiIef0511pear ◆FRUIT8pk
02/06/24 06:56ID:???"," の方が効率はいいってことですね
丁寧にありがとうございます。
0512perlはあんまｼﾗｿ
02/06/24 09:29ID:L5sFfYHF文字コード変換がperl側でサポートされるとか。
いいねぇ
0516W3C信者
02/06/24 16:13ID:???0518nobodyさん
02/06/24 16:40ID:???0520YBE＠１７ｃｈ ◆YBEdlEW2
02/06/24 19:48ID:???>>507すまんです。sub系の最後に入れると両パターン(*1)でもエラーでます。
分析分析っと、、、
*1：/read.cgi/test/000と/read.cgi?bbs=test?key=000。
0523nobodyさん
02/06/24 20:14ID:???それはremake.cgiも同じように改造してないからじゃないのか？
0524nobodyさん
02/06/24 21:00ID:???> すまんです。sub系の最後に入れると両パターン(*1)でもエラーでます。
> 分析分析っと、、、
> *1：/read.cgi/test/000と/read.cgi?bbs=test?key=000。
ごめん。言っている意味が解らん
件のスクリプトは、read.cgi に入れて使うもんで、decode_pathinfo を適切な
所から、適切なパラメーター与えて呼び出すようにすればオッケー
0525nobodyさん
02/06/24 21:30ID:???ブラウザで戻ると昔のまんま(；´Д｀)
使わないので、 pathinfo.txt にその板のアドレスを書かなきゃいけない。
http://selfish.ug.to/newslog/txt/kage.txt
Ver.0.99.1.52 02/05/21 00:38 (Part64 610)
・PATH_INFO仕様の外部板に対応。
PATH_INFO仕様に対応した外部板のホスト名を
pathinfo.txtにずらずら書き並べてください。
これも一応あめぞう型？PATH_INFOにも対応しているみたいだけど・・・。
0528nobodyさん
02/06/24 21:37ID:???0529nobodyさん
02/06/24 21:46ID:???http://mtbbs.tr-w.net/x/read.cgi/zatu/1/6
ｼﾞｻｸｼﾞｴﾝ（・Ａ・）ｲｸﾅｲ!!
0530nobodyさん
02/06/24 22:11ID:???0531462
02/06/24 22:20ID:???>>524 の
> 件のスクリプトは、read.cgi に入れて使うもんで、decode_pathinfo を適切な
> 所から、適切なパラメーター与えて呼び出すようにすればオッケー
をちゃんと読んでくれ。それでも、解らないなら使わない方がいいよ
あと、read.cgi とか bbs.cgi で動的 html や html ファイル生成ロジックの
部分も修正しないと【完全な】PATH_INFO 対応にならないぞ
#サブルーチンにした意味が解っていないのかと…（略
0533nobodyさん
02/06/25 00:03ID:???{
my ($name, $value, %get, $range);
if($ENV{'QUERY_STRING'} ne ""){
foreach(split /&/, $ENV{'QUERY_STRING'}){
($name, $value) = split /=/;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
$get{$name} = $value;
}
$bbs = $get{'bbs'};
$key = $get{'key'};
$st = $get{'st'};
$to = $get{'to'};
$ls = $get{'ls'};
$im = $get{'imode'};
$nf = $get{'nofirst'};
}
# PATH_INFO分解
if($ENV{'PATH_INFO'} ne ""){
($bbs, $key, $range) = split /\//, substr($ENV{'PATH_INFO'}, 1), 3;
if($range =~ /^l(\d+)/){$ls = $1;}
if($range =~ /^(\d+)\-(\d+)/){
$st = $1; $to = $2;
}elsif ($range =~ /\-(\d+)/){
$to = $1;
}elsif ($range =~ /(\d+)\-/){
$st = $1;
}elsif($range =~ /^(\d+)/){
$st = $1; $to = $1; $nf = "true";
}
if($range =~ /i/){$im = "true";}
if($range =~ /\./){$nf = "false";}
if($range =~ /n/){$nf = "true";}
}
}
0534nobodyさん
02/06/25 00:57ID:???$bbs = $get{'bbs'};
$key = $get{'key'};
$st = $get{'st'};
$to = $get{'to'};
$ls = $get{'ls'};
$im = $get{'imode'};
$nf = $get{'nofirst'};
なにこれ？なんか意味あんの？
0535nobodyさん
02/06/25 01:25ID:???perl本でも読め。
0536nobodyさん
02/06/25 01:33ID:???0539nobodyさん
02/06/25 03:13ID:???ココ低レベル過ぎもうだめぽ
0540nobodyさん
02/06/25 04:36ID:???#! /usr/local/bin/perl -w
use strict;
でエラーの出ないようなスクリプトを書かないの？
0541nobodyさん
02/06/25 07:49ID:???0542nobodyさん
02/06/25 09:18ID:wgUHmCM10543nobodyさん
02/06/25 09:19ID:???0544perlはあんまｼﾗｿ
02/06/25 12:43ID:???それじゃあんま意味ないじゃん・・・。
>>541-542
難しい事でも何でもないんだから少しは勉強しる！
っていうか何でそこまでしてわざわざPATH_INFO使わにゃならんのか
まったく理解できん（ｗ
0545nobodyさん
02/06/25 14:06ID:???Perl のパスが /usr/local 以下になってる時点で終わってるな
ついでに use strict 使って書くぐらいだったら、他の言語を使った方がいい
>>544
Perl 5.8 の文字コード変換機能は、UN*X の Iconv みたいなもんだから、
機能的には Jcode.pm より劣るはず
0546nobodyさん
02/06/25 14:29ID:???いいじゃん。＜perl5.8
http://openlab.ring.gr.jp/Jcode/index-j.html
0547534
02/06/25 16:20ID:???わざわざ宣言もしてない変数に値をコピーする必要があるの？
ってことなんだけどね…
KENTがよく使ってるから？ﾜﾗ
0549nobodyさん
02/06/26 18:38ID:???http://mtbbs.tr-w.net/x/read.cgi/zatu/1/6
http://mtbbs.tr-w.net/x/read.cgi/zatu/11/1
0550nobodyさん
02/06/26 18:48ID:Iliy3EZC訂正したいなら書いとけ。
中途半端な知ったかだとコード書いたとたんに叩かれるけどな(ｗ
0551nobodyさん
02/06/26 18:56ID:???>>533だけ見たって、受け取り方がわからんから書きようがないじゃん
まぁ、>>533のコードが糞なのは漏れも禿同だな
ここじゃ厨房度が高いから、>>466みたいに叩かれるぞｗ＞534
0552nobodyさん
02/06/26 19:00ID:???出回ってるread.cgiには先頭のほうですでにグローバルで$bbs,$key,〜は
宣言済みであちこち使ってるからでしょ
それともお手軽改造前提の話を解ってないないのか・・・
兄さんの頭の中の完璧read.cgiをさらしてもらいたいもんだが、晒したとたん叩きラッシュだな。きっと。
0553nobodyさん
02/06/26 23:40ID:krkVcNtQフレーム分割したTOPページの、メニューじゃない方のhtmlに
ステータスバーにメッセージを流すようにscript表記をしました。
ミスもなく流れるのですが困ったことが！
メニューから他ページに飛んだとき、scriptを使っていないhtmlが
表示されているのに、ステータスバーにリンクが終わった時点での
メッセージが固まって残ってしまっています。
これを解決することはできるのでしょうか。IE6、手打ちで書いています。
本を読んでも検索しても???です。よろしくお願いいたします。
0554nobodyさん
02/06/26 23:55ID:???http://pc.2ch.net/hp/index.html
0555nobodyさん
02/06/30 04:07ID:???0556nobodyさん
02/06/30 12:46ID:???0557nobodyさん
02/07/01 02:41ID:???Perlに関してこれ以上上達しないよ、自分の技術は完成したよなんて人いるのか？
常に学習だと思うが。
0559nobodyさん
02/07/01 10:46ID:+IHc8nVshttp://tr-w.net/
http://uho.s7.xrea.com/
で記事Noではなく名前の左の数字で削除､修正できるようにするにはどうすれば
良いのでしょうか。
本家では解答が得られませんでした。
名前の左側の数字が記事Noなんじゃないの？
どうしたいわけ？
0561nobodyさん
02/07/01 17:42ID:c3BeU9Eu右側にあります。
0563ちょめちょめ
02/07/01 21:00ID:???0565ｱﾗﾝﾄﾞﾗ･ﾌﾞﾚｲｽﾞ ◆Blazed1A
02/07/01 23:19ID:???>>47のリンク先からdownloadできるcgi設置したんダケド、なんにちか前から
イキナリ動かなくナタヨ。
subbbs.cgiが必ず Internal Server Error 500 にヒカカルネ。
パーミッションは鯖の指定どおりだし、FTPもゼンゼンいじってナイのにオカシイYO。
あ、鯖はxreaだヨ。
ドナタか、subbbs.cgiの手直しできるヒトがいたらヨロシクデス。
0567ｱﾗﾝﾄﾞﾗ･ﾌﾞﾚｲｽﾞ ◆Blazed1A
02/07/01 23:47ID:???ミーのは５鯖ダヨ？
モチロン、10鯖以降のも動かないネ。
0568nobodyさん
02/07/02 00:21ID:???0569nobodyさん
02/07/02 00:30ID:???0570nobodyさん
02/07/02 04:02ID:1/JUp4cEhttp://219.96.225.172/
0571pear ◆FRUIT8pk
02/07/02 04:50ID:???文法チェックをするとよいかも
ttp://www.kent-web.com/utility/index.html
0572nobodyさん
02/07/02 19:37ID:???再配布まではしてないけど叩くべきじゃないか？
0573nobodyさん
02/07/02 19:42ID:???0574nobodyさん
02/07/02 20:22ID:9bR35N6e0576nobodyさん
02/07/02 21:29ID:???http://mtbbs.tr-w.net/
■ このスレッドは過去ログ倉庫に格納されています