トップページ⇒php
1001コメント371KB

Perlコーディング初心者質問スレ Part 49

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2006/05/31(水) 04:32:28ID:???
Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10
0489nobodyさん2006/06/15(木) 22:14:33ID:???
>>488
多分、HTMLの出力もCGIモジュールを使ってると思うんだけど、出てきたHTML見て見れ。
start_htmlのほうで何も指定しないとlang=en-USのcharset=iso-8859-1になる。

ということで
start_html(-encoding => "EUC-JP", lang => "ja")
0490nobodyさん2006/06/15(木) 22:18:23ID:???
未だに print "content-type: text/html;charset=euc-jp\n\n"; と書きたくなってしまう俺はオールドスタイル…
04914892006/06/15(木) 22:27:19ID:???
あ、ごめんlangのほうに-が抜けた。-langに脳内置換頼む。

ところでふと気づいたけれど、CGIモジュールって
Content-Typeのmetaタグよりtitleのほうが先に来ちゃうのね。
エンコーディングの指定を一番最初に書くことが推奨されてたと思ったけれど･･･
0492nobodyさん2006/06/15(木) 22:27:38ID:???
>490
別にそれでいいじゃん
それぐらい手前で出力しろとか思うわけよ
0493nobodyさん2006/06/15(木) 23:08:38ID:???
>>489-491
なんか文字化けしたままなんですが。。。
レスついたことに(^人^)感謝♪
いわれた辺りをいじってみます。
ありがとうございました。
-------
print $cgi -> header(-cahrset=>"EUC-JP");
print $cgi -> start_html(-title=>$title,
-BGCOLOR => $bg,
-TEXT => $fg,
-encoding => "EUC-JP",
-lang => "ja",
);

-----------
といいつつ
ソース載せてみた。。。orz
0494nobodyさん2006/06/15(木) 23:28:00ID:???
>>493
-cahrsetになってる…
0495nobodyさん2006/06/16(金) 00:24:31ID:???
cgi以下のディレクトリのファイルの存在を参照したい時どうしたらいいのでしょうか？

$check = 'デイレクトリ名/ファイル名';
if (-e $check){
&sonzai
}

上記のようにしてやってみましたがどうもifをスルーしてelseのルーチンばかり実行してしまいます。
0496nobodyさん2006/06/16(金) 01:15:09ID:???
CGIはどこのﾃﾞｨﾚｸﾄﾘで動いてんだ
0497nobodyさん2006/06/16(金) 01:15:42ID:???
>>496
＞cgi以下のディレクトリのファイル
と書いてあります
0498nobodyさん2006/06/16(金) 05:13:12ID:???
スクリプトの動いてるディレクトリと調べたいファイルのディレクトリを考えましょう
0499nobodyさん2006/06/16(金) 08:01:47ID:???
./だろ？
0500nobodyさん2006/06/16(金) 08:42:03ID:???
いや、mod_perl で動かしてるのかもわからないぞ…！
0501nobodyさんNGNG
sjisの嫌な予感が…
0502nobodyさん2006/06/16(金) 08:53:11ID:???
いや、まさかぁ
マルチバイトのファイル名をつける超絶バカは居ないでしょ…
0503nobodyさん2006/06/16(金) 09:06:03ID:???
>>502
マルチバイトのファイル名を扱う業務も普通にあるぞ。
もちろんフリーソフトを使って英数字にリネームしてから作業しても構わないわけだが、
全部Perl一本で済ませたいタイプの俺としては非常に面倒いのだ。
0504nobodyさん2006/06/16(金) 09:07:12ID:???
そろそろKENTが使ってるif{}elsif{}elseから抜け出したいと思ってるんですが、
皆さんって最初の大まかな処理分岐ってどうやってますか？

今、テストで1関数で1ファイルで作って
eval{
　　require '$in{exec};'.'.pl';
　　&$in{exec};
}
の様に呼ぼうかと思ってるのですが(エラー処理とかばっさり切って略記しました)、
この考え方よらもスマートなやり方があったら教えて頂ければ幸いです
0505nobodyさん2006/06/16(金) 09:23:19ID:???
if 文使うと低レベル みたいな言い方なのはなんなんだｗ
0506nobodyさん2006/06/16(金) 09:31:11ID:???
大まかならif elsif elseだな。
まぁperlsynでも読めみたいな。
0507nobodyさん2006/06/16(金) 10:11:47ID:???
>>505
KENTが使ってるから低レベルにみえるんジャマイカ?
0508nobodyさん2006/06/16(金) 10:18:29ID:???
アッー！！
0509nobodyさん2006/06/16(金) 10:20:03ID:???
「if」も悪くないでしょ、処理速度が遅いわけじゃない
長くなってもわかりやすければそれに越したことはないし、
作成したスクリプトを他人が触る可能性があれば
その方が管理委託しやすいしね
0510nobodyさん2006/06/16(金) 10:25:22ID:???
>>507
まあKENTがアレなのは認めるし笑えるんだが、
if 文や local 自体は全然悪くないぞ >>504！
うちには関数 (サブルーチンのことだと解釈したが) ひとつひとつを1ファイルにするとかのが面倒でありえないｗ
0511nobodyさん2006/06/16(金) 10:34:11ID:???
eval使うくらいならelsif
0512nobodyさん2006/06/16(金) 12:51:25ID:???
僕は建都とか救援とか改造しやすくて好きですけどね
サブルーチンを使い回しまくっていると、結局条件分岐
を入れ込む回数が増えて大変だから
HTMLの構文エラー等はなくして欲しいけど
0513nobodyさん2006/06/16(金) 13:21:21ID:???
救援ってどこだ？（’’
0514nobodyさん2006/06/16(金) 13:25:39ID:???
rescueでしょ
0515nobodyさん2006/06/16(金) 13:57:10ID:???
>>514
thx 見たことなかったので見てきた。

すごいなこれｗ
KENTは perl4 とか過去のでも動くように、とかでしょうがないのかなとも思っていたけど、
ここは1年前作った 5.6 以上推奨のでもまったく同じ書き方でしたｗ
まあわかりやすいっちゃわかりやすい・・・のかな。
0516nobodyさん2006/06/16(金) 14:18:31ID:???
KENTとかのは無駄にファイル分割したオブジェクトバリバリ指向のものよりも
妙にレスポンスだけは良かったりするから困るｗ
0517nobodyさん2006/06/16(金) 14:48:05ID:???
基本を学ぶにはいいんじゃね？
簡単なものならフルスクラッチしたほうが早い場合もあるし。
0518nobodyさん2006/06/16(金) 15:16:01ID:???
性器表現を使って、空白文字のトリミングを行いたいんですが

$timp =~ m/^\s*(.*)\s*$/g;
$timp = $1;

というふうにやると $timp が空になってしまいます。
どうしたらよいでしょうか。
0519nobodyさんNGNG
アッー
0520nobodyさん2006/06/16(金) 15:22:19ID:???
$timp =~ s/^\s*(.*?)\s*$/$1/mg;
0521nobodyさん2006/06/16(金) 16:17:30ID:???
>>520
ありがとう。これかっこいいです。
0522nobodyさん2006/06/16(金) 16:29:57ID:???
標準出力と標準でない出力を等価に扱いたいんですが

今は 出力する前に
if( $flag==1 ){ open(NKFOUT, "| nkf"); }
とやっておいて、出力時に
if( $flag==1 ){ print NKFOUT "ちんこ"; }
else { print "ちんこ"; }
とやろうと思うのですが、ちょっと
0523nobodyさん2006/06/16(金) 16:34:42ID:???
性器表現を使って、空白文字のトリミングを行いたいんですが

$timp =~ m/^\s*(.*)\s*$/g;
$timp = $1;

というふうにやると $timpo が空になってしまいます。
どうしたらよいでしょうか。
0524nobodyさんNGNG
チンポが定義されてないからじゃー!!
0525nobodyさん2006/06/16(金) 16:37:56ID:???
ネタにマジレス乙。











正直嬉しかったぞｗ
0526ヽ(´ー`)ノ ◆.ogCuANUcE 2006/06/16(金) 16:46:15ID:???
>>522
if ($flag == 1) {
open(my $orig_stdout, '>&STDOUT');
open(STDOUT, '|nkf');
}

# パイプを通して出力
print "ちんこ";

# そのまま出力
print $orig_stdout "ちんこ";

perlfaq5 にある How do I dup() a filehandle in Perl? か、
perlfunc -f open を読むと良い。
0527nobodyさん2006/06/16(金) 16:59:43ID:???
>>526
ありがとう。それを参考に
if( $flag==1 ){ open(STDOUT, "| nkf"); }
とやったらだいたいうまくイキました。
0528nobodyさん2006/06/16(金) 17:31:55ID:???
<input type="text" name="F" value="&">
で送ったFと
<input type="text" name="F" value="">
に　&　を入れて送ったF
って違いますよね？
0529nobodyさん2006/06/16(金) 17:33:13ID:???
ああ、失礼。
&→&amp;
0530nobodyさん2006/06/16(金) 17:36:21ID:???
同意を求めないでください！＞＜；；

HTMLなら表示されてる通り送られると思う普通。
0531nobodyさん2006/06/16(金) 17:45:41ID:???
普通のブラウザならURL中の&amp;は自動的に&に置換するから一緒じゃないか?

試せばすぐ分かることに対してまじめに答える気にはならん
0532nobodyさん2006/06/16(金) 17:46:42ID:???
#!/usr/local/bin/perl

use strict;
print "Content-type: text/html\n\n";
my $buffer;
read(\*STDIN, $buffer, $ENV{'CONTENT_LENGTH'},0);

print <<END;
$buffer
<form method="post">
<input type="text" name="111" value="&"><br>
<input type="text" name="222" value=""><br>
<input type="submit">
</form>
END
exit;

下のフォームに&amp;と入れて送信するとあら不思議。
同じような挙動をする文字を知りたいんですがどこかにドキュメントありませんか？
0533nobodyさん2006/06/16(金) 17:49:12ID:???
×<input type="text" name="111" value="&"><br>
○<input type="text" name="111" value="&&"><br>
0534nobodyさん2006/06/16(金) 17:49:56ID:???
ご、ごめんなさい＞＜
◎<input type="text" name="111" value="&amp;"><br>
0535nobodyさんNGNG
ヒント：文字参照
0536nobodyさん2006/06/16(金) 18:16:46ID:???
スレ違い…と言おうと思ったけれど、深読みしてPerlコーディングの話と考えてみる。
$hogeにはブラウザから送られてきたのをデコードしただけの物が入っていて、
print <<END;
<form method="post">
<input type="text" name="hoge" value="$hoge"><br>
<input type="submit">
</form>
こんなことをやって、&が入っていたら&に変わっちゃう…とかいう理由での質問なんじゃないか。
HTMLに流し込む前に実体文字参照に変換汁。
$hoge =~ s/&/&amp;/g;
$hoge =~ s/</&lt;/g;
$hoge =~ s/>/&gt;/g;
$hoge =~ s/"/&quot;/g;
# というかこれを知らないなら、頼むから公開するCGIなんか作らないでくれよ…
# XSS脆弱、下手するとScript Insertion脆弱だから…
0537nobodyさん2006/06/16(金) 18:40:41ID:???
>>535
ありがとうございます！！
マークアップ記号、Laten-1、ラテン拡張とアクセント記号までは
＆があっても直接変換されるようですね。

>>536
そうです、受け取り側での処理に影響するのか？という部分です。
ただし変換自体が問題ではなく、2回以上変換する場合が気になったんです。
というのもHTML::FillInFormの中で変換されてるっぽくて
先に変換かませるとひどいことに・・・
いろいろ試しているうちに上記の実態参照も考慮するべきか悩んだ次第であります。
05385362006/06/16(金) 19:30:41ID:???
>>537
ｽﾏｿ、ちょっとレベルを低く見すぎた。しかしそういうことは初めに(ry
混乱してるだけだと思うが、そう悩むことではないと思うぞ。

まずCGI側がFormに流し込む、生のテキスト「&amp;」を持っているとする。
HTML::FillInFormは生のテキストをHTMLに変換する。「value="&amp;amp;"」
で、ブラウザはHTMLを解釈して元のテキストに戻してからフォームを表示する。[&amp;]
Submitされると"生のテキストを"URLエンコードなり何なりしてCGIに送り返す。「hoge=%26amp%3B」
で、CGIはURLエンコードのデコード処理をして、生のテキスト「&amp;」を受け取ることになるわけだ。

なぜに二回以上変換するようなことになるのかな…
0539nobodyさん2006/06/16(金) 19:51:08ID:???
>>538
非常に混乱しております・・・
2回以上の変換なんですが、実はTTのPluginでFillInFormを使ってるんです。
他で変換しないと生のデータとFillInFormで変換されたデータが混在してしまって。
TTのタグでひとつひとつFILTERつければ回避できそうではありますが
できれば一元管理したいなあと・・・。
クエリを受け取った段階で変換してみたらFillInFormで不具合。
TTに渡す時点で変換すれば良さそうですが、データ構造が結構深いんです・・・
0540nobodyさん2006/06/16(金) 23:41:05ID:???
>>516
perlはオブジェクト指向の書き方すると遅くなるのは当然。
「ハードの性能がどんどん上がってるからかまわない」なんて言い訳してるが、
簡単なスクリプトの時にperlでオブジェクト指向の書き方するのはやめたほうがいい。
みんなKENTをけなすが、実はKENTはそれほど悪くないのかもしれない。

こういうと、きっと「コードの再利用が...」「保守のしやすさが....」って言い始めるヤツが必ず出てくる。
でもあの程度の規模だと、動作速度以外にも、理解しやすさとか、動作に必要な条件を考えると
必ずしも悪いと言い切ることは難しいんじゃなかろうか?
0541nobodyさん2006/06/17(土) 00:24:46ID:???
> 理解しやすさとか、
どうやったらあんなコードになるのか理解できない。
0542nobodyさん2006/06/17(土) 00:25:29ID:???
このジョークのことかーっ
ttp://www.lri.fr/~filliatr/evolution

ごめんなさい。言ってみたかっただけです。
0543nobodyさん2006/06/17(土) 00:28:14ID:???
>>540
> perlはオブジェクト指向の書き方すると遅くなるのは当然。

デマですね。
0544nobodyさん2006/06/17(土) 00:29:58ID:???
デマであるというソースが欲しい
0545nobodyさん2006/06/17(土) 00:30:49ID:???
そもそも

> perlはオブジェクト指向の書き方すると遅くなるのは当然。

というソースが欲しい。
0546not 5402006/06/17(土) 01:52:07ID:???
ダミアン・コンウェイ著オブジェクト指向Perlマスターコースのはじめにかな？
んー、でも、それほど問題になる部分じゃないと思う。
0547nobodyさん2006/06/17(土) 01:55:18ID:???
>>545
残念ながら、実行速度に関してだけは >>540 が正しい。

ダミアン・コンウェイの「オブジェクト指向Perlマスターコース」の「はじめに」のvii ページ
「オブジェクト経由でメソッドを呼び出す処理は、通常のPerlサブルーチンを呼び出す場合より著しく低速である」
(「著しく低速」の部分は太字で強調)

手軽に確認するなら
perldoc perltoot
if you wanted fast, you wouldn't be using objects at all

ベンチマークだったら
http://psst.jp/syn/archives/000190.html

オブジェクト指向は遅いというのは共通認識だと思っていたのだが。

だがオブジェクト指向は実行速度を上回るメリットがある。
0548nobodyさん2006/06/17(土) 02:06:34ID:???
自クラス AUTOLOAD
親クラスのサブルーチン
親クラスのAUTOLOAD
UNIVERSAL のクラスのサブルーチン
と探すんだから多少は遅くなるのは仕方がない
0549nobodyさん2006/06/17(土) 02:07:45ID:???
>>547
オブジェクト指向型プログラミングがバカみたいに遅いのは
インタプリタ言語特有の問題だな

コンパイルすれば、かなりその差はちぢまる
0550nobodyさん2006/06/17(土) 02:31:10ID:???
>>549
でも結局は遅いんでしょ?
0551nobodyさん2006/06/17(土) 02:34:36ID:???
>>547
メリットって何?
改造したり再利用しないし。
速いならそれでいいじゃん。
0552nobodyさん2006/06/17(土) 02:52:44ID:???
>>551
お前はしないのかもしれないが、他の人間はするんだよ。
第一、スクラッチから書く人間の労力だって圧倒的に違う。
0553nobodyさん2006/06/17(土) 03:20:47ID:???
>>550
うまく作れば 気のせい 程度にはなる
0554nobodyさん2006/06/17(土) 04:45:08ID:???
>>540
そそｗ
いきなりメソッド呼んで、このメソッドはどのファイルにあるのかな？
これかな？誤爆。。なんて事をするくらいなら、1枚板のKENTの方が
改造なんかも手早くやりやすい。
しかもダメと叩かれる部分を修正してやると、さらに体感速度が上がるのも
教材に適してるような…ｗ
0555nobodyさん2006/06/17(土) 05:44:41ID:4rge2G1J
しかしそれで複数メンバーでの開発には適さない。
どこになにがあるのかを説明するより、モジュールリストを共有するほうが効率がいい。
今はひとりでやってるからいいかもしれないがちょっとは先を見ることを勧める。
体感なんてそんな変わらんから、規模の大きい開発の手間のほうが重要。
0556nobodyさん2006/06/17(土) 05:45:31ID:4rge2G1J
ごめんねパパ酔ってるからごめんね
0557nobodyさん2006/06/17(土) 06:31:48ID:???
>>547 のURLのベンチは面白かった。



まあ、なんていうか、
それ以外に、

オブジェクト指向では、use とか require したときの速度が遅いのが結構ネックでな。
mod_perl はその時間が減るからいいんだけど。



関数呼び出しが 1.5倍遅い、とか言っても、
それ自体は 1秒間に 45万回 か 64万回 かって違いで、ほとんど気のせい程度の時間でしょ。
問題は何回も実行する、例えば値を取得する param() 呼び出しとかなんだろうね。
それでも param() 程度なら 1000回実行して 0.01 秒か 0.002 秒の違いなんだけど。

つまり、OOPが悪いっていうけど、require とかの時間を考えなければ、そーそー体感で変わるもんじゃないと思う。
実際は他のトコで無駄省いたりして速くするようにすれば、そっちのが変わりそうだよね。
0558nobodyさん2006/06/17(土) 06:33:38ID:???
なぜか改行が増えてる orz
Jane で書き込むとたまにこうなるんだよなあ・・・。 スペース無駄にしてｽﾏｿ。
0559nobodyさん2006/06/17(土) 07:01:46ID:???
自称KE○Tよりまともってスクリプトを拾ってきて展開してみると
作者が再利用しやすいってだけの分割されたスクリプトファイルが
20〜30個って事が結構あるぞ？
しかもKENT製を静的なページを表示するのと同じレベルで実行できる環境で
実行してみると多少の引っ掛かりを感じる。
しかもファイルが分割されてるのにpackageはmainのままだったりするから、
mod_perlで修正することなく動いてもファイルシステム上の位置が変わると
別キャッシュになってメモリを馬鹿食いに。
0560nobodyさん2006/06/17(土) 07:12:57ID:???
> スクリプトファイルが20〜30個
> ファイルが分割されてるのにpackageはmain

全然まともなスクリプトじゃねえよｗ さすが自称ｗｗｗ
0561nobodyさん2006/06/17(土) 07:54:09ID:???
>>559
こう言う人たまに見かけるよね。
ファイルを分割したりモジュール使うことがオブジェクト指向だと思ってる人。
他にも sub 使えば関数指向だと思ってる人とかさ。
0562nobodyさん2006/06/17(土) 09:33:44ID:???

正規表現について質問です。

たとえば、　'abc'　以外の全ての文字にマッチする場合はどのように書けばいいでしょうか。

acb　にはマッチします。
abcaa にもマッチします。
aaabc　にはマッチしません。


m演算子の真偽の逆転ではなくて、正規表現内で解決する必要があります。
0563nobodyさん2006/06/17(土) 09:47:34ID:???
前方一致 とかでぐぐってみたら。
/.(?!abc)/ こういうのね
05645622006/06/17(土) 10:01:24ID:???
>>563
前方一致とかじゃ無理な気がする…って思ってたけど、できるんですね。すんません。
なんか正規表現超苦手です。。。頭いたくなるぜ。

/^(.(?!abc))+$/

まだ試してないけどたぶん大丈夫な予感です。ありがとうございますた。
0565nobodyさん2006/06/17(土) 10:05:24ID:???
>>564
まあ /^(.(?!abc))+$/ だと 文字列の最初が abc だとマッチしちゃうけどね。なんとかがんばって。
0566nobodyさんNGNG
正規表現ってか…これってPerlの独自拡張じゃなかったっけ
0567nobodyさん2006/06/17(土) 12:38:20ID:???
Catalyst(+TT)に慣れると楽で戻れないが、これをCGIで毎回
キックするのはムリなのは確かだね。必要なファイル読むだけで
しばらくかかるし(笑) レン鯖でCGIしか使えない人は残念でした。
0568nobodyさん2006/06/17(土) 15:58:17ID:YHZ73bls
なんか暇つぶしに遊びプログラムで作ろうかと。
あんまり複雑なのだと遊びじゃなくなるので。

15分くらいで作れる、簡単だけど面白いのってなんかないかな。
アイデアくだなさいあな。
0569nobodyさん2006/06/17(土) 16:00:34ID:???
>>568
tropyクローンなんかどう？
0570nobodyさん2006/06/17(土) 16:03:45ID:YHZ73bls
>>569
なんですかそれ？
ちょっと検索してみますよ。
0571nobodyさん2006/06/17(土) 16:03:46ID:???
>>569
うちもそれ思ったｗ
でも 15分で作れるかなあ。>>568がんば。
0572nobodyさん2006/06/17(土) 16:06:57ID:YHZ73bls
なにやら難しそうな。
以前にショッピングカートを作ったんです。
もう覚えてないのでそのレベルでさえ遊びにならない。

すごい低級になるんですが、低級なりの楽しみ方がないかなと。
少しづつ拡張できるようなのでもいいかなと。

う〜ん。スレ違いっぽ。とりあえずこれにて書込みはおしまいにします。
何かアドバイスが見には来ますのでありがたく。
それでは。
0573nobodyさん2006/06/17(土) 18:17:27ID:???
tropyクローン なら、はてなおやのがあるじゃん。
書き方おかしいけど。
0574nobodyさん2006/06/17(土) 20:51:25ID:???
ハテナオヤのはCatalyst使うじゃん。インストール面倒だよ。
結城のオリジナルのクローンを書くほうがほうがシンプルだし勉強目的にはちょうどいい。
0575nobodyさん2006/06/17(土) 21:20:25ID:???
> ハテナオヤのはCatalyst使うじゃん。インストール面倒だよ。

そうなの？ CPAN コマンドで簡単に入ったんだけど。
0576nobodyさん2006/06/17(土) 22:42:28ID:???
質問ー。
外部モジュールを使わないで UTF8フラグをつけたり、ついてるかどうか検査したりするのってどうしたらいいんですかね？

どっかに誤爆したのは内緒ｗ
0577nobodyさん2006/06/17(土) 22:55:42ID:???
>>576
utf8::*はそもそも外部モジュール不要
utf8::is_utf8
0578nobodyさん2006/06/17(土) 22:58:03ID:???
>>576
言い忘れ。utf8::以下についてはテンプレの[Perl5.8Unicodeメモ]参照
utf8プラグマと混同しないように。
0579nobodyさん2006/06/17(土) 23:03:30ID:???
>>577
え、まぢで？ v5.5 とか 5.6 でもできる？
ピンクのサイトの方は見てたんだけど、v5.8 だったｋら・・・
0580nobodyさん2006/06/17(土) 23:17:27ID:???
v5.5てのが5.005のことだとすると、まだutf8関係の機能が入る前だから
そもそもutf8フラグはありません。
0581nobodyさん2006/06/17(土) 23:42:47ID:???
>>580
ううーん、そうなのか・・・。
情報ありがとうー。
0582nobodyさん2006/06/18(日) 02:12:27ID:LFB3TFsx
$LOGPATH = './logs/';# ログ保存ディレクトリのパス
$EXPIRES = 3;# アクセスログ保存期間
# 日時の取得
$tm = time;
($sec, $min, $hour, $mday, $mon, $year) = localtime($tm);
$year += 1900;
++$mon;
# アクセス情報の整形
$ln = "$hour\t$min\t$ENV{'REMOTE_HOST'}\t"
. "$ENV{'HTTP_REFERER'}\t$ENV{'HTTP_USER_AGENT'}\n";
# ログファイルの書き込み
$logfile = sprintf(
"$LOGPATH%04d%02d%02d.dat", $year, $mon, $mday);
open(FILE, ">>$logfile")
or die("エラー：ログファイルが開けません");
eval{ flock(FILE, 2) };
seek(FILE, 0, 2);
print FILE $ln;
close(FILE);
# 古いログファイルの削除
$tm -= $EXPIRES * 60 * 60 * 24;
($sec, $min, $hour, $mday, $mon, $year) = localtime($tm);
$year += 1900;
++$mon;
$delfile = sprintf(
"$LOGPATH%04d%02d%02d.dat", $year, $mon, $mday);
if(-e $delfile) {
unlink $delfile;
}
0583５８２　５８３2006/06/18(日) 02:13:02ID:LFB3TFsx
>>582のプログラムで
$delfile = sprintf(
"$LOGPATH%04d%02d%02d.dat", $year, $mon, $mday);
となぜ形成してるんでしょうか？？
消すためにはいちいち作らないとだめなんでしょうか？？
これを消したとしても$logfile にログは残るんじゃないでしょうか？？
0584nobodyさん2006/06/18(日) 02:38:28ID:???
>>583
$logfile と $delfile はファイル名が違う。

$logfile は新規のログのファイル名
$delfile は何日か前のログのファイル名

コメント読もうよ。
> # 古いログファイルの削除
とあって、
> $tm -= $EXPIRES * 60 * 60 * 24;
で数日前の日付を出してる。
05855832006/06/18(日) 03:08:41ID:Kocek/q+
いやそれはわかるんですが
古いファイルを作ってなぜまた消すんでしょうか？
0586nobodyさん2006/06/18(日) 03:11:44ID:???
> 古いファイルを作ってなぜまた消すんでしょうか？

どこで古いファイルを作っていることにしたいんだろう。
0587nobodyさん2006/06/18(日) 03:16:15ID:Kocek/q+
>>583の最初の行です
0588nobodyさん2006/06/18(日) 03:17:00ID:???
> >>583の最初の行です

って、

> >>582のプログラムで

これ？
■ このスレッドは過去ログ倉庫に格納されています