■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50
【スレッド】2ch型掲示板 その5【フロート型】
- 483 :466 :02/06/23 02:05 ID:???
- >>481
( ゚Å゚)ホゥ
で、その根拠は?
ま、どうせ書けないんだろうけどなw
誰か漏れの疑問に早く答えてよ〜!
- 484 :nobodyさん :02/06/23 15:06 ID:???
- この板だけ保守って要らないから便利だな
- 485 :nobodyさん :02/06/23 16:04 ID:???
- >>466って質問のレベルから言って
$size = int((-s $file) / 1024);
print "$size KB";
とか書いてそうだな。(プ
- 486 :466 :02/06/23 16:35 ID:???
- >>485
プッ
結局、誰もわからないわけか
- 487 :nobodyさん :02/06/23 17:28 ID:???
- 飛べない豚はただの豚って事で放置しような・・・
- 488 :452 :02/06/23 18:02 ID:???
- >>465+>>476の方法では無理で、>>477の方法では「0 KB」と表示されるようになりました…。
容量が収得できないみたいです。
お馬鹿なおいらに突っ込みキボン(;´Д`)
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>";
〜
}
- 489 :nobodyさん :02/06/23 18:11 ID:???
- もう、付き合ってられん。少しくらいperl学んできてくれ。
- 490 :pear ◆FRUIT8pk :02/06/23 18:49 ID:???
- >488
$file にサイズ取得したいファイルをあらかじめ代入しておく
- 491 :nobodyさん :02/06/23 18:52 ID:???
- その程度のおつむで2ちゃんねるスクリプトを弄ろうってか。
もうね、アホかと。バカかと。
素人は print 'Hello world.'; でもやってなさいってこった。
- 492 :466 :02/06/23 18:59 ID:???
- めんどうだからマジレスしとく
>>465が書いた例に対し、なぜ、わざわざ "." で結合するのか聞いたけど、
その回答が>>469の
> 明示のために使う方が正しいに決まっている。
か?
意味わかんねぇよw
何を明示すんだ?
そもそも$sizeって何に使うんだ?
使いもしねぇ変数作ってどうすんだよ?
おまけに "." 使って結合してるし…
>>465みたいに書きたいなら、普通は
> print int((-s $file) / 1024), "KB";
こう書くのがセオリー
これなら無駄なメモリ転送が起きないからな
ここまで書いてわからんなら氏ね
- 493 :452 :02/06/23 20:23 ID:???
- >>490
>$file にサイズ取得したいファイルをあらかじめ代入しておく
ご丁寧にありがとです。何となく判ってきた…。
>>491
馬鹿って宣言してるから大目に見てちょ。
あとは自分でやってみるョ。
- 494 :nobodyさん :02/06/23 21:02 ID:???
- ボク初心者ですって言えばクレクレしてもいいとは限らない
ボク厨房ですって言えば荒らしてもいいとは限らない
ボク精神病なんですって言えば馬鹿な事してもいいとは限らないのだよ。
- 495 :pear ◆FRUIT8pk :02/06/23 21:02 ID:???
- >492
確かにそっちのほうが良いですね。。
まだまだよくわかってないんで。
- 496 :452 :02/06/23 21:32 ID:???
- なんとかファイルサイズ収得・表示にこぎつけました。(;´Д`)
参考にした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>";
〜
}
- 497 :452 :02/06/23 21:38 ID:???
- とりあえずまとめないと…
print "</dl><b>",int((-s DAT) / 1024),"KB</b>";
- 498 :pear ◆FRUIT8pk :02/06/23 21:45 ID:???
- >492
その "," は、文字列連結演算子の "." と等価の意味合いがあるんですか?
- 499 :466 :02/06/23 22:30 ID:???
- >>498
print の実体は関数で、リストコンテキストを受け取るから、
"," で区切って渡せば前から順番に print してくれる
で、"." は文字列の結合演算子だから、先にメモリ上で結合してから、
その値を print に渡す
内部処理が違うから効率に差は出るけど、表示だけ見ると等価になる
- 500 :nobodyさん :02/06/23 23:01 ID:???
-
500ゲットォォォ。
 ̄ ̄ ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄
__∧∧_
/\(゚ー゚*) l\ (´´
\/| ̄∪ ̄ ̄|\ (´⌒(´
\|____|≡≡≡(´⌒;;;≡≡≡
(´⌒(´⌒;;
- 501 :いい加減にしろ。コーディングスレ逝け。クズ共 :02/06/23 23:02 ID:???
-
た か が "." で 熱 く な っ て い る 馬 鹿 共 の 集 う ス レ は こ こ で す か?
- 502 :nobodyさん :02/06/23 23:18 ID:???
- そろそろもう勘弁してください(;´Д`)人
- 503 :nobodyさん :02/06/24 00:06 ID:???
- >>496
つか、開けたら閉じろ。
- 504 :nobodyさん :02/06/24 00:41 ID:???
- これ?
http://17ch.lib.net/test/read.cgi?bbs=morningcall&key=024704127
- 505 :nobodyさん :02/06/24 00:42 ID:???
- あげてしもた。。。
スマソ
- 506 :nobodyさん :02/06/24 00:54 ID:???
- >>504
一番上のスレ以外には書き込み欄が見えないんだけど俺だけ?(;´Д`)
あと背景あの色は人をイライラさせる色ですな
- 507 :462 :02/06/24 01:21 ID:???
- # PATH_INFO 対応
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';
}
}
}
}
- 508 :nobodyさん :02/06/24 01:43 ID:???
- ttp://kakiko.tv/
もそうだね。
- 509 :nobodyさん :02/06/24 02:24 ID:???
- my $datfilesize = int((-s "../$bbs/dat/$key.dat")/1024);
print qq(<font color=red face="Arial"><b>$datfilesize KB</b></font> <font size=2><b>[ 2ちゃんねるの一日1,600万PVを支えるBig-Server.com ]</b></font>);
- 510 :nobodyさん :02/06/24 02:29 ID:ykcyiIef
- http://js-web.cside.com/index.html
- 511 :pear ◆FRUIT8pk :02/06/24 06:56 ID:???
- >499
"," の方が効率はいいってことですね
丁寧にありがとうございます。
- 512 :perlはあんまシラソ :02/06/24 09:29 ID:L5sFfYHF
- perl5.8出るらしいですね。
文字コード変換がperl側でサポートされるとか。
いいねぇ
- 513 :452 :02/06/24 10:24 ID:???
- >>503
了解…。
>>509
感謝…。一発解決です。
今度質問するときはもっと勉強してからにします。
- 514 :nobodyさん :02/06/24 11:27 ID:???
- >>511しつこい。粘着馬鹿
- 515 :nobodyさん :02/06/24 14:19 ID:???
- >>514
プッ
- 516 :W3C信者 :02/06/24 16:13 ID:???
- あめぞう型掲示板で仕様に合致したHTMLを生成するスクリプトはありませんか?
- 517 :nobodyさん :02/06/24 16:34 ID:???
- >>512
Jcode.pmが同梱されるだけと思われ
- 518 :nobodyさん :02/06/24 16:40 ID:???
- なるほど。、, .の見間違いレスに466が怒涛の(知ったか)マジレスってことか・・・
- 519 :nobodyさん :02/06/24 17:39 ID:???
- >>518
んー、まぁ、その、なんだ…
とりあえず氏んでくれ
- 520 :YBE@17ch ◆YBEdlEW2 :02/06/24 19:48 ID:???
- >>506♪スクリプト入れたらすぐ崩壊しますた(;´Д`)
>>507すまんです。sub系の最後に入れると両パターン(*1)でもエラーでます。
分析分析っと、、、
*1:/read.cgi/test/000と/read.cgi?bbs=test?key=000。
- 521 :nobodyさん :02/06/24 19:57 ID:???
- >>520
リメイクしたら直らない?
- 522 :YBE@17ch ◆YBEdlEW2 :02/06/24 20:05 ID:???
- >>521無理っす。ぐはあ。
- 523 :nobodyさん :02/06/24 20:14 ID:???
- 直らないか・・・
それはremake.cgiも同じように改造してないからじゃないのか?
- 524 :nobodyさん :02/06/24 21:00 ID:???
- >>520
> すまんです。sub系の最後に入れると両パターン(*1)でもエラーでます。
> 分析分析っと、、、
> *1:/read.cgi/test/000と/read.cgi?bbs=test?key=000。
ごめん。言っている意味が解らん
件のスクリプトは、read.cgi に入れて使うもんで、decode_pathinfo を適切な
所から、適切なパラメーター与えて呼び出すようにすればオッケー
- 525 :nobodyさん :02/06/24 21:30 ID:???
- PATH_INFO形式に出来たけどかちゅーしゃで見るとなってないんだけどこれって仕様?
ブラウザで戻ると昔のまんま(;´Д`)
- 526 : ◆Mz2000PY :02/06/24 21:32 ID:???
- かちゅ〜しゃはデフォルトでは 2ch 以外の URL に PATH_INFO 形式は
使わないので、 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にずらずら書き並べてください。
- 527 : ◆JQJvqZpw :02/06/24 21:35 ID:???
- http://mtbbs.tr-w.net
これも一応あめぞう型?PATH_INFOにも対応しているみたいだけど・・・。
- 528 :nobodyさん :02/06/24 21:37 ID:???
- pathinfo.txt・・・はじめて聞く名前だ
- 529 :nobodyさん :02/06/24 21:46 ID:???
- http://mtbbs.tr-w.net/x/read.cgi/zatu/1/4
http://mtbbs.tr-w.net/x/read.cgi/zatu/1/6
ジサクジエン(・A・)イクナイ!!
- 530 :nobodyさん :02/06/24 22:11 ID:???
- &decode path_info;を何処に入れたらいいのやら。。。
- 531 :462 :02/06/24 22:20 ID:???
- あのさぁ…
>>524 の
> 件のスクリプトは、read.cgi に入れて使うもんで、decode_pathinfo を適切な
> 所から、適切なパラメーター与えて呼び出すようにすればオッケー
をちゃんと読んでくれ。それでも、解らないなら使わない方がいいよ
あと、read.cgi とか bbs.cgi で動的 html や html ファイル生成ロジックの
部分も修正しないと【完全な】PATH_INFO 対応にならないぞ
#サブルーチンにした意味が解っていないのかと…(略
- 532 :nobodyさん :02/06/24 23:08 ID:???
- >>529
ワラタ
- 533 :nobodyさん :02/06/25 00:03 ID:???
- sub decode
{
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";}
}
}
- 534 :nobodyさん :02/06/25 00:57 ID:???
- >>533
$bbs = $get{'bbs'};
$key = $get{'key'};
$st = $get{'st'};
$to = $get{'to'};
$ls = $get{'ls'};
$im = $get{'imode'};
$nf = $get{'nofirst'};
なにこれ?なんか意味あんの?
- 535 :nobodyさん :02/06/25 01:25 ID:???
- あるよバカ。
perl本でも読め。
- 536 :nobodyさん :02/06/25 01:33 ID:???
- 初心者相手に罵倒は情けないよ・・・
- 537 :nobodyさん :02/06/25 02:01 ID:???
- >>535
( ´_ゝ`)
- 538 :nobodyさん :02/06/25 03:01 ID:???
- >>533=>>535
(・∀・) ****** デシタ!!
- 539 :nobodyさん :02/06/25 03:13 ID:???
- PATH_INFOが無いときに(略
ココ低レベル過ぎもうだめぽ
- 540 :nobodyさん :02/06/25 04:36 ID:???
- なんで
#! /usr/local/bin/perl -w
use strict;
でエラーの出ないようなスクリプトを書かないの?
- 541 :nobodyさん :02/06/25 07:49 ID:???
- めんどくさいから、PATH_INFOを組み込んだread.cgiをUPしてくれ。
- 542 :nobodyさん :02/06/25 09:18 ID:wgUHmCM1
- うpきぼーん
- 543 :nobodyさん :02/06/25 09:19 ID:???
- 嫌だ。
- 544 :perlはあんまシラソ :02/06/25 12:43 ID:???
- >>517
それじゃあんま意味ないじゃん・・・。
>>541-542
難しい事でも何でもないんだから少しは勉強しる!
っていうか何でそこまでしてわざわざPATH_INFO使わにゃならんのか
まったく理解できん(w
- 545 :nobodyさん :02/06/25 14:06 ID:???
- >>540
Perl のパスが /usr/local 以下になってる時点で終わってるな
ついでに use strict 使って書くぐらいだったら、他の言語を使った方がいい
>>544
Perl 5.8 の文字コード変換機能は、UN*X の Iconv みたいなもんだから、
機能的には Jcode.pm より劣るはず
- 546 :nobodyさん :02/06/25 14:29 ID:???
- まあJcode.pmの機能も標準モジュールとして提供されるみたいだから
いいじゃん。<perl5.8
http://openlab.ring.gr.jp/Jcode/index-j.html
- 547 :534 :02/06/25 16:20 ID:???
- 俺が言いたかったのはなんで%getを使わずに
わざわざ宣言もしてない変数に値をコピーする必要があるの?
ってことなんだけどね…
KENTがよく使ってるから?ワラ
- 548 :nobodyさん :02/06/25 16:43 ID:???
- >>527で使ってるread.cgiはPATH_INFO使ってるけど記述がかなり素人だな(藁
- 549 :nobodyさん :02/06/26 18:38 ID:???
- 悲惨なのれす!
http://mtbbs.tr-w.net/x/read.cgi/zatu/1/6
http://mtbbs.tr-w.net/x/read.cgi/zatu/11/1
- 550 :nobodyさん :02/06/26 18:48 ID:Iliy3EZC
- >>547
訂正したいなら書いとけ。
中途半端な知ったかだとコード書いたとたんに叩かれるけどな(w
- 551 :nobodyさん :02/06/26 18:56 ID:???
- へ?
>>533だけ見たって、受け取り方がわからんから書きようがないじゃん
まぁ、>>533のコードが糞なのは漏れも禿同だな
ここじゃ厨房度が高いから、>>466みたいに叩かれるぞw>534
- 552 :nobodyさん :02/06/26 19:00 ID:???
- 高度すぎてもわけわからん煽りのみを受けるという・・・(w
出回ってるread.cgiには先頭のほうですでにグローバルで$bbs,$key,〜は
宣言済みであちこち使ってるからでしょ
それともお手軽改造前提の話を解ってないないのか・・・
兄さんの頭の中の完璧read.cgiをさらしてもらいたいもんだが、晒したとたん叩きラッシュだな。きっと。
- 553 :nobodyさん :02/06/26 23:40 ID:krkVcNtQ
- こんばんは。質問させていただきます。
フレーム分割したTOPページの、メニューじゃない方のhtmlに
ステータスバーにメッセージを流すようにscript表記をしました。
ミスもなく流れるのですが困ったことが!
メニューから他ページに飛んだとき、scriptを使っていないhtmlが
表示されているのに、ステータスバーにリンクが終わった時点での
メッセージが固まって残ってしまっています。
これを解決することはできるのでしょうか。IE6、手打ちで書いています。
本を読んでも検索しても???です。よろしくお願いいたします。
- 554 :nobodyさん :02/06/26 23:55 ID:???
- scriptとやらがJavaScriptなら板違い。WEB制作板のJavaScript質問スレへ。
http://pc.2ch.net/hp/index.html
- 555 :nobodyさん :02/06/30 04:07 ID:???
- 力の限り555!
- 556 :nobodyさん :02/06/30 12:46 ID:???
- read.cgi と bbs.cgi を読んでいると、perl の勉強がてら作ったようなコードにみえる
- 557 :nobodyさん :02/07/01 02:41 ID:???
- 実際そう。
Perlに関してこれ以上上達しないよ、自分の技術は完成したよなんて人いるのか?
常に学習だと思うが。
- 558 :nobodyさん :02/07/01 03:33 ID:???
- >>557
普通はそれより先に Perl 自体の限界が見え始めて他の言語に移るもの
- 559 :nobodyさん :02/07/01 10:46 ID:+IHc8nVs
- YY BOARDの改造版
http://tr-w.net/
http://uho.s7.xrea.com/
で記事Noではなく名前の左の数字で削除、修正できるようにするにはどうすれば
良いのでしょうか。
本家では解答が得られませんでした。
- 560 : :02/07/01 16:50 ID:???
- >>559
名前の左側の数字が記事Noなんじゃないの?
どうしたいわけ?
- 561 :nobodyさん :02/07/01 17:42 ID:c3BeU9Eu
- 名前の左側の数字は記事Noではありません。別に記事Noというのが時刻の
右側にあります。
- 562 : ◆kTvYxtEs :02/07/01 18:27 ID:???
- 自分で考えれ・・・
- 563 :ちょめちょめ :02/07/01 21:00 ID:???
- ちょめちょめ
- 564 :nobodyさん :02/07/01 23:12 ID:???
- >>562 久しぶりです。
- 565 :アランドラ・ブレイズ ◆Blazed1A :02/07/01 23:19 ID:???
- チョット聞いてもイイデスカ?
>>47のリンク先からdownloadできるcgi設置したんダケド、なんにちか前から
イキナリ動かなくナタヨ。
subbbs.cgiが必ず Internal Server Error 500 にヒカカルネ。
パーミッションは鯖の指定どおりだし、FTPもゼンゼンいじってナイのにオカシイYO。
あ、鯖はxreaだヨ。
ドナタか、subbbs.cgiの手直しできるヒトがいたらヨロシクデス。
- 566 :nobodyさん :02/07/01 23:24 ID:???
- >>565
xreaはs10鯖以降、新鯖は良く不調になる。なんか変。
- 567 :アランドラ・ブレイズ ◆Blazed1A :02/07/01 23:47 ID:???
- >>566
ミーのは5鯖ダヨ?
モチロン、10鯖以降のも動かないネ。
- 568 :nobodyさん :02/07/02 00:21 ID:???
- 自分でperl入れて、動作実験しれ。
- 569 :nobodyさん :02/07/02 00:30 ID:???
- magabbsに行けないよ〜何処行った?
- 570 :nobodyさん :02/07/02 04:02 ID:1/JUp4cE
- magabbs
http://219.96.225.172/
- 571 :pear ◆FRUIT8pk :02/07/02 04:50 ID:???
- >567
文法チェックをするとよいかも
ttp://www.kent-web.com/utility/index.html
- 572 :nobodyさん :02/07/02 19:37 ID:???
- http://headline.s12.xrea.com/x/testing/
再配布まではしてないけど叩くべきじゃないか?
- 573 :nobodyさん :02/07/02 19:42 ID:???
- なんで?
- 574 :nobodyさん :02/07/02 20:22 ID:9bR35N6e
- 自分では配布はおろか再配布もできないから。情けない。
- 575 :nobodyさん :02/07/02 21:14 ID:???
- >>549
こういうの見ちゃうと、萎えますなぁ...
- 576 :nobodyさん :02/07/02 21:29 ID:???
- MT-BOARD風
http://mtbbs.tr-w.net/
- 577 : ◆KONNOpc6 :02/07/02 21:58 ID:???
- test
- 578 :nobodyさん :02/07/02 21:59 ID:???
- test2
- 579 :nobodyさん :02/07/02 22:00 ID:???
- 誤爆スマソ
- 580 :372 :02/07/03 13:23 ID:???
- >>573
再配布はしていないが、改造方法を解説する際にソースが一部流出してるじゃねぇか。気付け。
- 581 :nobodyさん :02/07/03 14:42 ID:???
- そこまで神経質にならんでも・・・
- 582 :nobodyさん :02/07/03 17:55 ID:???
- 17氏の再配布は禁止って何それ?
187KB
新着レスの表示
スレッドリストへ戻る 全部 前100 次100 最新50
0ch BBS 2004-10-30