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

**nobodyさん** · 2006/05/31(水) 04:32:28

Perlのコーディングで困ってる人のスレです。

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

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

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

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 2006/06/14(水) 00:39:55

綺麗な書き方をしていて、誰にでも見やすいcgiがあったら参考にしたいのですが、無いでしょうか？
他人が見ても何をやってるか分かるプログラムを書きたいのですが、汚い書き方が身についてしまい困ってます。
簡単なBBS程度のものだと助かります。

**nobodyさん** · 2006/06/14(水) 01:15:45

>>482
「KENT」で検索すれば、掲示板関係を色々配布している人のサイトがあるよ＾＾

**nobodyさん** · 2006/06/14(水) 01:20:32

個人的に結城さんのコードとか読みやすくて好きだなぁ。
use strict; しつつCPANモジュールを駆使したCGI。

Tropy のソースはタイ変数が使われてて面白い。
http://www.hyuki.com/tropy/

YukiWikiMini は200行ぐらいでWiki書いてる。こちらもなかなか。
http://www.hyuki.com/yukiwiki/mini/index.html

コメントが少ないから、ちょっと難しいかも。

**nobodyさん** · 2006/06/14(水) 02:11:28

>>483
ちょｗｗｗｗｗｗ

**nobodyさん** · 2006/06/15(木) 12:01:24

[ main.cgi ]

#!/usr/bin/perl
require './lib.pl';
&test;

[ lib.pl ]

sub test{
print "Content-type: text/html\n\n";
print "test";
}

↑500エラーになる。

[ main.cgi ]

#!/usr/bin/perl

sub test{
print "Content-type: text/html\n\n";
print "test";
}

&test;

↑エラーにならない

requireで読み込むと必ずエラーになってしまうのですが、どうしてでしょうか？

**nobodyさん** · 2006/06/15(木) 12:08:41

requreは真の値を返さないとダメでした…。

1;か。

**sage** · 2006/06/15(木) 21:58:51

最近Perlはじめたのですが、
Perlで

print $cgi -> header(-charset=>"EUC-JP");

と記述したのですが、作ってブラウザーでみると
文字化けしてます。。。
ブラウザーの「表示」→「エンコード」を見ると
西ヨーロッパ言語が設定されてます。。。
これをEUC－JPに直すと文字化けしないのですが、
どうやれば、最初から文字化けしないようにできるのでしょうか？

**nobodyさん** · 2006/06/15(木) 22:14:33

>>488
多分、HTMLの出力もCGIモジュールを使ってると思うんだけど、出てきたHTML見て見れ。
start_htmlのほうで何も指定しないとlang=en-USのcharset=iso-8859-1になる。

ということで
start_html(-encoding => "EUC-JP", lang => "ja")

**nobodyさん** · 2006/06/15(木) 22:18:23

未だに print "content-type: text/html;charset=euc-jp\n\n"; と書きたくなってしまう俺はオールドスタイル…

**489** · 2006/06/15(木) 22:27:19

あ、ごめんlangのほうに-が抜けた。-langに脳内置換頼む。

ところでふと気づいたけれど、CGIモジュールって
Content-Typeのmetaタグよりtitleのほうが先に来ちゃうのね。
エンコーディングの指定を一番最初に書くことが推奨されてたと思ったけれど･･･

**nobodyさん** · 2006/06/15(木) 22:27:38

>490
別にそれでいいじゃん
それぐらい手前で出力しろとか思うわけよ

**nobodyさん** · 2006/06/15(木) 23:08:38

>>489-491
なんか文字化けしたままなんですが。。。
レスついたことに(^人^)感謝♪
いわれた辺りをいじってみます。
ありがとうございました。
-------
print $cgi -> header(-cahrset=>"EUC-JP");
print $cgi -> start_html(-title=>$title,
-BGCOLOR => $bg,
-TEXT => $fg,
-encoding => "EUC-JP",
-lang => "ja",
);

-----------
といいつつ
ソース載せてみた。。。orz

**nobodyさん** · 2006/06/15(木) 23:28:00

>>493
-cahrsetになってる…

**nobodyさん** · 2006/06/16(金) 00:24:31

cgi以下のディレクトリのファイルの存在を参照したい時どうしたらいいのでしょうか？

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

上記のようにしてやってみましたがどうもifをスルーしてelseのルーチンばかり実行してしまいます。

**nobodyさん** · 2006/06/16(金) 01:15:09

CGIはどこのﾃﾞｨﾚｸﾄﾘで動いてんだ

**nobodyさん** · 2006/06/16(金) 01:15:42

>>496
＞cgi以下のディレクトリのファイル
と書いてあります

**nobodyさん** · 2006/06/16(金) 05:13:12

スクリプトの動いてるディレクトリと調べたいファイルのディレクトリを考えましょう

**nobodyさん** · 2006/06/16(金) 08:01:47

./だろ？

**nobodyさん** · 2006/06/16(金) 08:42:03

いや、mod_perl で動かしてるのかもわからないぞ…！

**nobodyさん** · NG

sjisの嫌な予感が…

**nobodyさん** · 2006/06/16(金) 08:53:11

いや、まさかぁ
マルチバイトのファイル名をつける超絶バカは居ないでしょ…

**nobodyさん** · 2006/06/16(金) 09:06:03

>>502
マルチバイトのファイル名を扱う業務も普通にあるぞ。
もちろんフリーソフトを使って英数字にリネームしてから作業しても構わないわけだが、
全部Perl一本で済ませたいタイプの俺としては非常に面倒いのだ。

**nobodyさん** · 2006/06/16(金) 09:07:12

そろそろKENTが使ってるif{}elsif{}elseから抜け出したいと思ってるんですが、
皆さんって最初の大まかな処理分岐ってどうやってますか？

今、テストで1関数で1ファイルで作って
eval{
　　require '$in{exec};'.'.pl';
　　&$in{exec};
}
の様に呼ぼうかと思ってるのですが(エラー処理とかばっさり切って略記しました)、
この考え方よらもスマートなやり方があったら教えて頂ければ幸いです

**nobodyさん** · 2006/06/16(金) 09:23:19

if 文使うと低レベルみたいな言い方なのはなんなんだｗ

**nobodyさん** · 2006/06/16(金) 09:31:11

大まかならif elsif elseだな。
まぁperlsynでも読めみたいな。

**nobodyさん** · 2006/06/16(金) 10:11:47

>>505
KENTが使ってるから低レベルにみえるんジャマイカ?

**nobodyさん** · 2006/06/16(金) 10:18:29

アッー！！

**nobodyさん** · 2006/06/16(金) 10:20:03

「if」も悪くないでしょ、処理速度が遅いわけじゃない
長くなってもわかりやすければそれに越したことはないし、
作成したスクリプトを他人が触る可能性があれば
その方が管理委託しやすいしね

**nobodyさん** · 2006/06/16(金) 10:25:22

>>507
まあKENTがアレなのは認めるし笑えるんだが、
if 文や local 自体は全然悪くないぞ >>504！
うちには関数 (サブルーチンのことだと解釈したが) ひとつひとつを1ファイルにするとかのが面倒でありえないｗ

**nobodyさん** · 2006/06/16(金) 10:34:11

eval使うくらいならelsif

**nobodyさん** · 2006/06/16(金) 12:51:25

僕は建都とか救援とか改造しやすくて好きですけどね
サブルーチンを使い回しまくっていると、結局条件分岐
を入れ込む回数が増えて大変だから
HTMLの構文エラー等はなくして欲しいけど

**nobodyさん** · 2006/06/16(金) 13:21:21

救援ってどこだ？（’’

**nobodyさん** · 2006/06/16(金) 13:25:39

rescueでしょ

**nobodyさん** · 2006/06/16(金) 13:57:10

>>514
thx 見たことなかったので見てきた。

すごいなこれｗ
KENTは perl4 とか過去のでも動くように、とかでしょうがないのかなとも思っていたけど、
ここは1年前作った 5.6 以上推奨のでもまったく同じ書き方でしたｗ
まあわかりやすいっちゃわかりやすい・・・のかな。

**nobodyさん** · 2006/06/16(金) 14:18:31

KENTとかのは無駄にファイル分割したオブジェクトバリバリ指向のものよりも
妙にレスポンスだけは良かったりするから困るｗ

**nobodyさん** · 2006/06/16(金) 14:48:05

基本を学ぶにはいいんじゃね？
簡単なものならフルスクラッチしたほうが早い場合もあるし。

**nobodyさん** · 2006/06/16(金) 15:16:01

性器表現を使って、空白文字のトリミングを行いたいんですが

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

というふうにやると $timp が空になってしまいます。
どうしたらよいでしょうか。

**nobodyさん** · NG

アッー

**nobodyさん** · 2006/06/16(金) 15:22:19

$timp =~ s/^\s*(.*?)\s*$/$1/mg;

**nobodyさん** · 2006/06/16(金) 16:17:30

>>520
ありがとう。これかっこいいです。

**nobodyさん** · 2006/06/16(金) 16:29:57

標準出力と標準でない出力を等価に扱いたいんですが

今は出力する前に
if( $flag==1 ){ open(NKFOUT, "| nkf"); }
とやっておいて、出力時に
if( $flag==1 ){ print NKFOUT "ちんこ"; }
else { print "ちんこ"; }
とやろうと思うのですが、ちょっと

**nobodyさん** · 2006/06/16(金) 16:34:42

性器表現を使って、空白文字のトリミングを行いたいんですが

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

というふうにやると $timpo が空になってしまいます。
どうしたらよいでしょうか。

**nobodyさん** · NG

チンポが定義されてないからじゃー!!

**nobodyさん** · 2006/06/16(金) 16:37:56

ネタにマジレス乙。

正直嬉しかったぞｗ

**ヽ(´ー`)ノ** ◆.ogCuANUcE · 2006/06/16(金) 16:46:15

>>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 を読むと良い。

**nobodyさん** · 2006/06/16(金) 16:59:43

>>526
ありがとう。それを参考に
if( $flag==1 ){ open(STDOUT, "| nkf"); }
とやったらだいたいうまくイキました。

**nobodyさん** · 2006/06/16(金) 17:31:55

<input type="text" name="F" value="&">
で送ったFと
<input type="text" name="F" value="">
に　&　を入れて送ったF
って違いますよね？

**nobodyさん** · 2006/06/16(金) 17:33:13

ああ、失礼。
&→&

**nobodyさん** · 2006/06/16(金) 17:36:21

同意を求めないでください！＞＜；；

HTMLなら表示されてる通り送られると思う普通。

**nobodyさん** · 2006/06/16(金) 17:45:41

普通のブラウザならURL中の&は自動的に&に置換するから一緒じゃないか?

試せばすぐ分かることに対してまじめに答える気にはならん

**nobodyさん** · 2006/06/16(金) 17:46:42

#!/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;

下のフォームに&と入れて送信するとあら不思議。
同じような挙動をする文字を知りたいんですがどこかにドキュメントありませんか？

**nobodyさん** · 2006/06/16(金) 17:49:12

×<input type="text" name="111" value="&"><br>
○<input type="text" name="111" value="&&"><br>

**nobodyさん** · 2006/06/16(金) 17:49:56

ご、ごめんなさい＞＜
◎<input type="text" name="111" value="&"><br>

**nobodyさん** · NG

ヒント：文字参照

**nobodyさん** · 2006/06/16(金) 18:16:46

スレ違い…と言おうと思ったけれど、深読みしてPerlコーディングの話と考えてみる。
$hogeにはブラウザから送られてきたのをデコードしただけの物が入っていて、
print <<END;
<form method="post">
<input type="text" name="hoge" value="$hoge"><br>
<input type="submit">
</form>
こんなことをやって、&が入っていたら&に変わっちゃう…とかいう理由での質問なんじゃないか。
HTMLに流し込む前に実体文字参照に変換汁。
$hoge =~ s/&/&/g;
$hoge =~ s/</</g;
$hoge =~ s/>/>/g;
$hoge =~ s/"/"/g;
# というかこれを知らないなら、頼むから公開するCGIなんか作らないでくれよ…
# XSS脆弱、下手するとScript Insertion脆弱だから…

**nobodyさん** · 2006/06/16(金) 18:40:41

>>535
ありがとうございます！！
マークアップ記号、Laten-1、ラテン拡張とアクセント記号までは
＆があっても直接変換されるようですね。

>>536
そうです、受け取り側での処理に影響するのか？という部分です。
ただし変換自体が問題ではなく、2回以上変換する場合が気になったんです。
というのもHTML::FillInFormの中で変換されてるっぽくて
先に変換かませるとひどいことに・・・
いろいろ試しているうちに上記の実態参照も考慮するべきか悩んだ次第であります。

**536** · 2006/06/16(金) 19:30:41

>>537
ｽﾏｿ、ちょっとレベルを低く見すぎた。しかしそういうことは初めに(ry
混乱してるだけだと思うが、そう悩むことではないと思うぞ。

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

なぜに二回以上変換するようなことになるのかな…

**nobodyさん** · 2006/06/16(金) 19:51:08

>>538
非常に混乱しております・・・
2回以上の変換なんですが、実はTTのPluginでFillInFormを使ってるんです。
他で変換しないと生のデータとFillInFormで変換されたデータが混在してしまって。
TTのタグでひとつひとつFILTERつければ回避できそうではありますが
できれば一元管理したいなあと・・・。
クエリを受け取った段階で変換してみたらFillInFormで不具合。
TTに渡す時点で変換すれば良さそうですが、データ構造が結構深いんです・・・

**nobodyさん** · 2006/06/16(金) 23:41:05

>>516
perlはオブジェクト指向の書き方すると遅くなるのは当然。
「ハードの性能がどんどん上がってるからかまわない」なんて言い訳してるが、
簡単なスクリプトの時にperlでオブジェクト指向の書き方するのはやめたほうがいい。
みんなKENTをけなすが、実はKENTはそれほど悪くないのかもしれない。

こういうと、きっと「コードの再利用が...」「保守のしやすさが....」って言い始めるヤツが必ず出てくる。
でもあの程度の規模だと、動作速度以外にも、理解しやすさとか、動作に必要な条件を考えると
必ずしも悪いと言い切ることは難しいんじゃなかろうか?

**nobodyさん** · 2006/06/17(土) 00:24:46

> 理解しやすさとか、
どうやったらあんなコードになるのか理解できない。

**nobodyさん** · 2006/06/17(土) 00:25:29

このジョークのことかーっ
ttp://www.lri.fr/~filliatr/evolution

ごめんなさい。言ってみたかっただけです。

**nobodyさん** · 2006/06/17(土) 00:28:14

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

デマですね。

**nobodyさん** · 2006/06/17(土) 00:29:58

デマであるというソースが欲しい

**nobodyさん** · 2006/06/17(土) 00:30:49

そもそも

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

というソースが欲しい。

**not 540** · 2006/06/17(土) 01:52:07

ダミアン・コンウェイ著オブジェクト指向Perlマスターコースのはじめにかな？
んー、でも、それほど問題になる部分じゃないと思う。

**nobodyさん** · 2006/06/17(土) 01:55:18

>>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

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

だがオブジェクト指向は実行速度を上回るメリットがある。

**nobodyさん** · 2006/06/17(土) 02:06:34

自クラス AUTOLOAD
親クラスのサブルーチン
親クラスのAUTOLOAD
UNIVERSAL のクラスのサブルーチン
と探すんだから多少は遅くなるのは仕方がない

**nobodyさん** · 2006/06/17(土) 02:07:45

>>547
オブジェクト指向型プログラミングがバカみたいに遅いのは
インタプリタ言語特有の問題だな

コンパイルすれば、かなりその差はちぢまる

**nobodyさん** · 2006/06/17(土) 02:31:10

>>549
でも結局は遅いんでしょ?

**nobodyさん** · 2006/06/17(土) 02:34:36

>>547
メリットって何?
改造したり再利用しないし。
速いならそれでいいじゃん。

**nobodyさん** · 2006/06/17(土) 02:52:44

>>551
お前はしないのかもしれないが、他の人間はするんだよ。
第一、スクラッチから書く人間の労力だって圧倒的に違う。

**nobodyさん** · 2006/06/17(土) 03:20:47

>>550
うまく作れば気のせい程度にはなる

**nobodyさん** · 2006/06/17(土) 04:45:08

>>540
そそｗ
いきなりメソッド呼んで、このメソッドはどのファイルにあるのかな？
これかな？誤爆。。なんて事をするくらいなら、1枚板のKENTの方が
改造なんかも手早くやりやすい。
しかもダメと叩かれる部分を修正してやると、さらに体感速度が上がるのも
教材に適してるような…ｗ

**nobodyさん** · 2006/06/17(土) 05:44:41

しかしそれで複数メンバーでの開発には適さない。
どこになにがあるのかを説明するより、モジュールリストを共有するほうが効率がいい。
今はひとりでやってるからいいかもしれないがちょっとは先を見ることを勧める。
体感なんてそんな変わらんから、規模の大きい開発の手間のほうが重要。

**nobodyさん** · 2006/06/17(土) 05:45:31

ごめんねパパ酔ってるからごめんね

**nobodyさん** · 2006/06/17(土) 06:31:48

>>547 のURLのベンチは面白かった。

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

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

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

つまり、OOPが悪いっていうけど、require とかの時間を考えなければ、そーそー体感で変わるもんじゃないと思う。
実際は他のトコで無駄省いたりして速くするようにすれば、そっちのが変わりそうだよね。

**nobodyさん** · 2006/06/17(土) 06:33:38

なぜか改行が増えてる orz
Jane で書き込むとたまにこうなるんだよなあ・・・。スペース無駄にしてｽﾏｿ。

**nobodyさん** · 2006/06/17(土) 07:01:46

自称KE○Tよりまともってスクリプトを拾ってきて展開してみると
作者が再利用しやすいってだけの分割されたスクリプトファイルが
20～30個って事が結構あるぞ？
しかもKENT製を静的なページを表示するのと同じレベルで実行できる環境で
実行してみると多少の引っ掛かりを感じる。
しかもファイルが分割されてるのにpackageはmainのままだったりするから、
mod_perlで修正することなく動いてもファイルシステム上の位置が変わると
別キャッシュになってメモリを馬鹿食いに。

**nobodyさん** · 2006/06/17(土) 07:12:57

> スクリプトファイルが20～30個
> ファイルが分割されてるのにpackageはmain

全然まともなスクリプトじゃねえよｗさすが自称ｗｗｗ

**nobodyさん** · 2006/06/17(土) 07:54:09

>>559
こう言う人たまに見かけるよね。
ファイルを分割したりモジュール使うことがオブジェクト指向だと思ってる人。
他にも sub 使えば関数指向だと思ってる人とかさ。

**nobodyさん** · 2006/06/17(土) 09:33:44

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

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

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

m演算子の真偽の逆転ではなくて、正規表現内で解決する必要があります。

**nobodyさん** · 2006/06/17(土) 09:47:34

前方一致とかでぐぐってみたら。
/.(?!abc)/ こういうのね

**562** · 2006/06/17(土) 10:01:24

>>563
前方一致とかじゃ無理な気がする…って思ってたけど、できるんですね。すんません。
なんか正規表現超苦手です。。。頭いたくなるぜ。

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

まだ試してないけどたぶん大丈夫な予感です。ありがとうございますた。

**nobodyさん** · 2006/06/17(土) 10:05:24

>>564
まあ /^(.(?!abc))+$/ だと文字列の最初が abc だとマッチしちゃうけどね。なんとかがんばって。

**nobodyさん** · NG

正規表現ってか…これってPerlの独自拡張じゃなかったっけ

**nobodyさん** · 2006/06/17(土) 12:38:20

Catalyst(+TT)に慣れると楽で戻れないが、これをCGIで毎回
キックするのはムリなのは確かだね。必要なファイル読むだけで
しばらくかかるし(笑) レン鯖でCGIしか使えない人は残念でした。

**nobodyさん** · 2006/06/17(土) 15:58:17

なんか暇つぶしに遊びプログラムで作ろうかと。
あんまり複雑なのだと遊びじゃなくなるので。

15分くらいで作れる、簡単だけど面白いのってなんかないかな。
アイデアくだなさいあな。

**nobodyさん** · 2006/06/17(土) 16:00:34

>>568
tropyクローンなんかどう？

**nobodyさん** · 2006/06/17(土) 16:03:45

>>569
なんですかそれ？
ちょっと検索してみますよ。

**nobodyさん** · 2006/06/17(土) 16:03:46

>>569
うちもそれ思ったｗ
でも 15分で作れるかなあ。>>568がんば。

**nobodyさん** · 2006/06/17(土) 16:06:57

なにやら難しそうな。
以前にショッピングカートを作ったんです。
もう覚えてないのでそのレベルでさえ遊びにならない。

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

う～ん。スレ違いっぽ。とりあえずこれにて書込みはおしまいにします。
何かアドバイスが見には来ますのでありがたく。
それでは。

**nobodyさん** · 2006/06/17(土) 18:17:27

tropyクローンなら、はてなおやのがあるじゃん。
書き方おかしいけど。

**nobodyさん** · 2006/06/17(土) 20:51:25

ハテナオヤのはCatalyst使うじゃん。インストール面倒だよ。
結城のオリジナルのクローンを書くほうがほうがシンプルだし勉強目的にはちょうどいい。

**nobodyさん** · 2006/06/17(土) 21:20:25

> ハテナオヤのはCatalyst使うじゃん。インストール面倒だよ。

そうなの？ CPAN コマンドで簡単に入ったんだけど。

**nobodyさん** · 2006/06/17(土) 22:42:28

質問ー。
外部モジュールを使わないで UTF8フラグをつけたり、ついてるかどうか検査したりするのってどうしたらいいんですかね？

どっかに誤爆したのは内緒ｗ

**nobodyさん** · 2006/06/17(土) 22:55:42

>>576
utf8::*はそもそも外部モジュール不要
utf8::is_utf8

**nobodyさん** · 2006/06/17(土) 22:58:03

>>576
言い忘れ。utf8::以下についてはテンプレの[Perl5.8Unicodeメモ]参照
utf8プラグマと混同しないように。

**nobodyさん** · 2006/06/17(土) 23:03:30

>>577
え、まぢで？ v5.5 とか 5.6 でもできる？
ピンクのサイトの方は見てたんだけど、v5.8 だったｋら・・・

**nobodyさん** · 2006/06/17(土) 23:17:27

v5.5てのが5.005のことだとすると、まだutf8関係の機能が入る前だから
そもそもutf8フラグはありません。

**nobodyさん** · 2006/06/17(土) 23:42:47

>>580
ううーん、そうなのか・・・。
情報ありがとうー。

**nobodyさん** · 2006/06/18(日) 02:12:27

$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;
}