Perlについての質問箱 39箱目

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 2chのread.cgiへ]
Update time : 05/09 22:28 / Filesize : 164 KB / Number-of Response : 561
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Perlについての質問箱 39箱目

1 名前：デフォルトの名無しさん mailto:sage [2009/02/09(月) 21:17:36 ]: "The duct tape of the Internet" こと、Perl についての質問箱です。
"There's more than one way to do it" ということで、
Perl の奥深さについて皆で語り合い、追求してまいりましょう。

CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perlの区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: pc11.2ch.net/php/)

CGI の質問は答えが Perl と全然関係ない話に帰着する場合が
多かったりするので WEB プログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。

www.perl.org/get.html
● 2009/02/09 現在の最新版: 5.10.0

▼ 前スレ
Perlについての質問箱 38箱目
pc11.2ch.net/test/read.cgi/tech/1221967332/

リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは >>5-6 あたり
382 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 02:57:58 ]: なにを持って善しと成すのかわからんけど、俺も作ってみた

perl -e 'for(1..15){my$r;$_%3or$r="Fizz";$_%5or$r.="Buzz";$r or$r=$_;print"$r\n"}'

添削してくだちぃ
383 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 03:12:33 ]: 個人的には、勉強するためならいきなりCPANに頼るのはどうかと思った。

いきなりDateTimeを使わずにsprintfでやった方がいいし、
いきなりFile::Slurpを使わずにopen関数を使った方がいいと思うけど、
面倒くさすぎて放り投げられるとPerlスキーとしては寂しいので、
CPANに依存してみた。今は反省している。

FizzBuzzについては、
1. 要件を実現出来ているんなら、
2. ワンライナーなら、
3. FizzBuzzでゴルフしたり難読化選手権を開くんじゃなければ、
多少腕白でもいいと思うけどね、俺は。

敢えてPBP的に見ても、
a. C的なforでなくforeachを使おうとか、
b. $_でなくてちゃんとforeach my $num (1 .. 15)にしようとか、
c. ""で括らなくていいときは''で括ろうとか、
そんなつまらない指摘しか出来ないけど。

あとはあれか、>>379なら、C的なforをどうしても使うときは、
$n <= 15の方が直感的とかか。
384 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 03:20:37 ]: あ、うそ、ごめん。
>>381の二つめの>>362式は、3月32日になるｗ
ゆえに素直にDateTime使おう。
385 名前：379 mailto:sage [2009/03/22(日) 03:36:54 ]: >>382-383
ありがとうございます！>>382さんのコードの方がPerlっぽくていいですね。
ぼくのはJavaとかでも使えるテクしか使ってないや。
最近Perlはワンライナーしか書かなくなってさっぱり鈍ってしまった。
386 名前： ◆TWARamEjuA mailto:sage [2009/03/22(日) 10:10:15 BE:6861097-BRZ(10001)]: 1日前ってそんなに難しいのかしら？
time - 86400
でよさそうな。。。
387 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 10:34:11 ]: うるう秒をちゃんと扱わないシステムならな
388 名前：デフォルトの名無しさん [2009/03/22(日) 11:15:10 ]: >>387
UNIX時はどれも閏秒は算定してないと思うが。
システムによって現在のUNIX時が食い違ったら困るだろ。
389 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 13:00:39 ]: 超頭悪い会話が繰り広げられている
390 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 13:15:46 ]: >>389
>>389
391 名前：362 mailto:sage [2009/03/23(月) 05:38:24 ]: おはようございます。
ご報告が遅くなりました。

>>381さんに教えていただいたスクリプトを昨日、会社で使って
(ファイル名など一部変えました)、まだ1日(1回)だけですがテストとしては
うまく動いたようです。

今朝出社してうまく書き換わっているかどうか。これから出勤です。
うまくいったら引き続き使います。

ではみなさま、また縁がありましたらどうぞよろしくお願いします。
392 名前：デフォルトの名無しさん [2009/03/23(月) 07:49:00 ]: >>389
仕様上はどちらでもいいことになっているが、先発製品との互換上、
どのシステムもうるう秒は算定していない。

うるう秒はいつ発生するか算定できないからどっかから情報取得する必要があるし、
tarファイルを移転する時とか、NTP使う時とか困るだろ。

よほど金融系のシステムとかでなければ、NTPクライアントを随時走らせておけば大きな支障はない。
393 名前：デフォルトの名無しさん mailto:sage [2009/03/23(月) 09:22:29 ]: いちおうtzfile(5)とか見ればわかるけどうるう秒扱えるようにはなって
いるんだよね。

実用上はうるう秒のたびに時計を進めたり戻したりして1日の秒数は
一定としてしまうのが楽な場合がほとんどだから設定した例は自分の
周りでは見たことない。

天文とかは過去のある時刻との間の時間みたいのをきっちり出せない
と困りそうだけど。
394 名前：デフォルトの名無しさん mailto:sage [2009/03/23(月) 09:23:10 ]: うるう秒を勘案するシステムは存在しないってこと？
395 名前：デフォルトの名無しさん [2009/03/23(月) 13:06:04 ]: >>394
一般的なUNIXtimeの扱いの話であって、
そういったシステムが存在しないとは誰も言ってない。
極端な話、協定世界時を管理してるシステムなんかは当然勘案しなきゃ困るでしょ。
396 名前：526 [2009/03/24(火) 19:51:11 ]: ここで聞くのが適切かどうか心配ですが、違ったら誘導願います。

debian etch の上で、perl-tk をいれて触っています。
どうにも日本語が表示されませんので、どなたか詳しい人、アドバイスをお願いします。
perlは、 v5.8.8
perl-tkは、804.027-7
です。
よろしくお願いします。
397 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 04:25:03 ]: エスパーじゃないんだからさ、それじゃ答えようがないよ。

とりあえず>>4
あとやったこと書け
398 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 14:49:23 ]: ここで聞くのが適切かどうか心配ですが、違ったら誘導願います。

昨日から体の具合が悪いんですが、何かの病気でしょうか？
どなたか詳しい人、アドバイスをお願いします。

どんな薬を飲めばいいですか？医者に診せたほうがいいですすかね・・・
何科の医者に行けばいいですか？
よろしくお願いします。
399 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 14:53:25 ]: エスパーじゃないんだからさ、それじゃ答えようがないよ。
400 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 17:06:54 ]: @test
赤、A、あ、　　　#$test{0}
黄、A、い、　　　#1
青、A、あ、　　　#2
赤、B、あ、　　　#3
赤、C、い、　　　#4
青、A、あ、　　　#5
例えばこういう配列があったとして
各項目ごとに一番多い文字列（赤 A あ）をそれぞれ取り出したいんですがどのようにすればいいんでしょうか？
401 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 17:28:24 ]: 「こういう配列」
402 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 17:36:06 ]: >>400
my @dat = ( 'red,A,a', 'yellow,A,b', 'blue,A,a', 'blue,B,a' ) ;
my @cache ;
for ( @dat ){ my $cnt = 0 ; $cache[$cnt++]->{$_} ++ for split /,/ ; }
printf "%s\n", sort { $_->{$b} <=> $_->{$a} } keys %{$_} for @cache ;

日本語？ => 自分で考えて
同じ個数の物があったら？ => 知らん。
403 名前：デフォルトの名無しさん [2009/03/25(水) 23:32:24 ]: ○○.cgiのプログラムで、
「exec △△.pl $param1」とexecを使用して呼び出しても、
呼び出し先の△△.plが実行されないです。

環境が原因と思うのですが、
初心者で何が原因かわからないです。
404 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 12:16:36 ]: >>400
二次元配列のようでもあるし、コメント見るとハッシュにしてるし…
せめてPerlの書式で書いてくれ
405 名前：400 mailto:sage [2009/03/26(木) 18:21:17 ]: >>402
レスありがとうございます。

ただちょっと仕様を変更したので、普通の配列の中から一番多い要素を取り出すものに変えようと思ったのですが、
初心者なため>>402のコードでわからない部分があり、改良することができません。

どなたか配列の中で一番多い要素を取り出すサブルーチンを書いていただけないでしょうか。
406 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 18:50:35 ]: >>405
いくら出すかも書いておくと話が早いよ
407 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 18:52:32 ]: www.seshop.com/detail.asp?pid=6160
『10日でおぼえる Perl /CGI入門教室第2版』2005/9/5発売。
を購入しようと思っています。

この書籍が出た時点のバージョンのＰｅｒｌをＷｉｎｄｏｗｚ　Ｖｉｓｔａで
動かすことは可能でしょうか？バクがでたりエラーなどは大丈夫でしょうか？
これからＰｅｒｌを勉強するので詳しいことはわかりません。

なお、ＰＨＰ関連の書籍に付録で付いていたＸＡＭＰＰ１．６．５はインストール済みで
少なくともＶｉｓｔａで動作確認済みとＰＨＰの書籍にありました。

どなたか回答よろしくお願いいたします。
408 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 19:32:34 ]: perl タダなんだから、自分でダウンロードして確かめてみればいいじゃん。
409 名前：405 mailto:sage [2009/03/26(木) 20:37:12 ]: しくしく。。。

どう書けばいいのかわからないんです、アドバイスください
@array = ('マグロ','鯛','イワシ','鯛','マグロ','鯛');

&extract(@array);

#一番多い要素を書き出す
sub extract {
foreach (@_) {
$hash{$_} ++;
}

while (($key, $value) = each(%hash)) {
push(@test, $value);
}
@sort = sort{$b <=> $a} @test;
$shift = shift(@sort);
$aa = $hash{$shift};
print "$aa";
}
410 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 20:44:10 ]: っ「List::Utilのmax」
411 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 22:47:29 ]: >>409
初心者をあまりいじめるのも可哀想なのでとりあえず書くけど、正直なところもっとちゃんと自分で調べてほしい。
>>402 のヒントがあれば本を読むなりウェブでリファレンスを引くなりして調べようがあるとおもう。
人のコードを盲目的にコピペするのではなくて、ちゃんと一行一行やってることを理解するようにしないと上達しないよ。
シンタックスシュガーはあえて封じた。

use strict;
use List::Util qw(max first);
my @data=('foo','bar','poo','foo');
my %cache;
foreach my $entity(@data) {
　$cache{$entity}=$cache{$entity}+1;
}
my $maxval=max(values(%cache));
my $res=first(sub{$cache{$_}==$maxval},keys(%cache));
print $res."\n";
412 名前：デフォルトの名無しさん mailto:sage [2009/03/28(土) 17:23:43 ]: >>409

#一番多い要素を書き出す
sub extract {
foreach (@_) {
$hash{$_} ++;
if($max < $hash{$_}){ $max = $hash{$_}; } #追加
}

while (($key, $value) = each(%hash)) {
if($value == $max){ print $key,"\n"; } #追加
}
}
413 名前：デフォルトの名無しさん mailto:sage [2009/03/28(土) 20:50:08 ]: sub extract{
　my %hash;
　my $res = $_[0] ;
　for ( @_ ){ next if ++ $hash{$_} < $hash{$res} ; $res = $_ ; }
　return $res ;
}
414 名前：デフォルトの名無しさん [2009/03/30(月) 04:58:54 ]: リストの略記法って (1..10) しかないんでしょうか
(1がずっと続くよ) みたいな書き方が知りたいです
415 名前：デフォルトの名無しさん mailto:sage [2009/03/30(月) 07:28:29 ]: (1) x 10
416 名前：デフォルトの名無しさん mailto:sage [2009/03/30(月) 09:31:19 ]: DB_Fileってundefは保存できないんですか
""とundefどうやって区別したらいいんでしょうか
417 名前：デフォルトの名無しさん mailto:sage [2009/03/30(月) 10:15:31 ]: >>415
どもです
418 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 13:31:20 ]: 分類と項目が並んでいるリストがあったとして
各項目はいくつかの分類のどれかに属していて、
分類ごとにまとめて処理をしたいので、
項目のリストを分類別に作りたい

for (keys %class) {
　for (@items{$_}) {

みたいに配列の連想配列が使えるといいのだけれど
何かスマートな解決法はありますか
419 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 13:37:48 ]: PerlでWebからのレスポンスを標準出力すると文字化けが発生してしまいます
色々とエンコードも試したのですが解決しませんでした
文字コード判別もなぜか失敗しました

↓がDumpした結果ですが、文字コードは何なのか教えてくれませんか

SV = PV(0x1cffd24) at 0x1bbe7e4
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x1832f24 "G\"\22w\221U\207L\241\300\361l\16\326ao\352d\351\30\265m\303Ox
\203\24\213\2262\273\271\274\5\273S\307\323\367b\372\277\340\17\254#\257\206D\24
3\243\243\265\342{4_\254j@\213\266gV\3417\236\237\265\331U\370\266\300\2477\227\
357\324D!\362&\32\204\233h\325\36l\301S\370\210n\0366\242\373\205lX\203\317\225\
375\fm\324\322\213\347\324\223\270\360\203'e\253UB\221\"\360l\340\305\211\357Q|u
\377\1\24yz\316\302\3\0\0"\0
CUR = 143
LEN = 676
420 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 15:16:24 ]: >>416
defined
>>418
ハッシュのキーに分類の名前
ハッシュの要素に項目の配列リファレンスとか入れたらどうだろう
$item{分類} = [qw/項目項目項目/];
みたいに
421 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 15:44:36 ]: $str =~ s/<hoge>//;
という正規表現を使って複数回文字を削除しようとしています
while($str =~ /<hoge>/){ $str =~ s/<hoge>//; }
とすると無駄な処理が入るので、ループの判別のところだけで処理したいんですが、
そういう書き方は可能でしょうか
while($str =~ s/<hoge>//);
と書くとエラーを吐かれました
do{''} while($str =~ s/<hoge>//);
や
while($str =~ s/<hoge>//){}
だとうまくいきますが、なんか気持ち悪いです
422 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 15:51:12 ]: 1 while $str =~ s/<hoge>//g; かなぁ
423 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 15:51:37 ]: >>421
1 while $str =~ s/<hoge>//; とか
$str =~ s/<hoge>//g; とか
424 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 16:16:08 ]: >>420
$class と $itemのセットを記憶するのに、
push(@{$items{$class}}, $item);
でいけました

@$items{$class} ではないという部分で引っかかりました
念のため[]で初期化したけど、外しても問題なく動くあたりが流石
425 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 16:39:15 ]: >>423
上では無駄な1が気持ち悪いです
下では $str = '<h<hoge>oge>' のときに削除できません…
426 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 16:48:20 ]: >>425
リャマ本に似たようなコード載ってるから、じゃ気持ち悪くならない理由にならない？
上の方は定数式(1)は最適化で取り除かれるんだとさ
427 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 16:57:42 ]: >>426
見た目が気持ち悪いのと処理的に気持ち悪いのは違うんですよ
「全部取り除く」って処理に全く関係ない1なんかがあるのは生理的に気持ち悪いです
{}で終わるのも一文なのに;がないから処理が終わってない感じがいやらしいです
リャマ本に上が載ってるなら、他にやり方はないんですかね…
もしかしたら正規表現で再帰的に検索してくれるオプションがあるかもと思ってたんですが…
428 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 17:21:08 ]: >>427
再帰的にやるなら

my $hoge;
$hoge = qr/<(??{$hoge})?h(??{$hoge})?o(??{$hoge})?g(??{$hoge})?e(??{$hoge})?>/;
$str =~ s/$hoge//g;

とか? もっと綺麗に書けそうだが。
5.10以降ならキャプチャバッファ(see perl5100delta)使って一行でしかも効率良く書けるはず。
429 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 19:56:14 ]: >>428
ﾄﾝ
キャプチャバッファについてググってみます
430 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 19:59:32 ]: >>427
my $str = '<h<hoge>oge>' ;
L:{ $str =~ s/<hoge>//g and redo L; }

1 while COND の方が断然気持ち良いけどさ。
431 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 13:55:08 ]: 　「気持ち悪い」

・・・か。それじゃＣ言語の

if (a == 1) {
　hoge();
}

なんか、気持ち悪さ１０００％だな。
なぜ「等しい」の判定に () が必要なのか。
なぜ hoge を呼び出すのに { } が必要なのか。
なぜ hoge のうしろにも () がくっついてるのか。

アメリカ人は苗字と名前を逆に言う。
住所も番地から逆に言う。
日付も逆に言う。
実に「気持ち悪い」。

だが、そういうもんだ。いちいち疑問にしてたらキリが無い。
順応しろよ、順応。
432 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 13:56:13 ]: 自分で拡張すればいい
433 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 14:01:47 ]: アッー
434 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 15:41:46 ]: >>431が気持ち悪い
435 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 17:37:19 ]: activeperl 5.8.8を使っています
-d でフォルダかどうか判断する時に、
5Cで終わっているフォルダ名を正しく扱えません

どうやったら回避できますか
436 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 18:30:23 ]: 5Cでエスケープしてみては？
437 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 18:58:01 ]: ちょっと意味が判らないのですが、

-d "$file\\"

という書き方でも結果は同様です
438 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 19:04:39 ]: 必ず失敗するかというとそうでもないようで、
opendir(dir, '.');
for $file (readdir(dir)) {
if (-d "$file") {print "$file is directory.\n"}
else {print "$file is file.\n"}
}
これを
aaa
aaa２―
aaa―
こんな状況で実行すると
. is directory.
.. is directory.
aaa is directory.
aaa― is directory.
aaa２― is file.
test.pl is file.
_ is file.
こうなります
439 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 19:22:59 ]: で、何が問題なの?
440 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 19:51:36 ]: aaa２―はフォルダなのに
aaa２― is file.
となってしまうことが問題
441 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 20:05:27 ]: -dの返り血をちゃんと調べたのか?
442 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 20:23:03 ]: -dの戻り値なんて1か0しか無いのでは
443 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 20:47:53 ]: >>431
至極真っ当
理に叶ってる
()の中はbooleanが必要とされてる
{}の中は場合によって処理されるか否かなんだからブロックで囲まれてて当然

だけどwhile(～){}は関数的に使われてるのにセミコロンがない
これが問題
気持ち悪い原因

つまりwhile(～);と書ければ万事解決なんだよ！！！！
444 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 21:49:19 ]: 順応と思考停止と信者脳って紙一重だなぁ、って>>431見ると思うね。
445 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 21:57:59 ]: >>443
while(~){}は
while(~){
　();
}
の省略記法だよ？B::Deparseで確認してみ？
勝手に省略して、省略してしまった部分について気持悪がられても…
「();が気持悪い！」って言われたら、
「そりゃごもっとも、俺もそう思う。」と言わざるを得ないけどさ。
446 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 22:04:09 ]: -f -d -eについても調べたところ、-eにすら通っていない
aaa: -f, -d1, -e1
aaa―: -f, -d1, -e1
aaa２―: -f, -d, -e

ディレクトリを再帰的に辿って全部のファイルに対して云々、みたいな
処理をさせると、フォルダの末尾が5Cかもしれない問題は必ず発生すると思うんだけど、
どうやって回避してるの?
447 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 22:04:57 ]: 省略記法てーのは正しくないな。
perlではこう解釈されるってのが正しいのか。
448 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 22:13:47 ]: >>446
あなたの環境が何か解らないからスルーしてたけど、
スクリプトのエンコーディングとディレクトリのは合ってるの？
winなら>>4とかそこらへんの問題じゃないの？

私の環境だと問題が出ないから力にはなれません。
449 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 22:43:19 ]: >>4を入れても改善しないようです
aaa: -f, -d1, -e1
aaa?\: -f, -d, -e
aaa?Q?\: -f, -d, -e

むしろ悪化しています
環境はwindowsXPです
450 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 23:34:09 ]: なんで""つけるんだよ
451 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 00:20:37 ]: >>4 に答えが書いてあるじゃん。なぜそうしない？
452 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 00:35:54 ]: >>4は、表示で化けるとか、検索とか正規表現がうまく行かないとかの、
日本語の文字列としての取り扱いを完璧にする方法だけど、
ファイルシステム絡みは何も改善しないように見える

唯一、ファイル名をcp932でencodeするように注意はあるけど、
それは必要な処理であって、今回のケースを解決しない
453 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 00:54:42 ]: cygwinと同じ問題じゃないの?
ActivePerlがMultiByte系のW32API使ってないんじゃ
454 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 00:59:15 ]: activeperlではどうやっても無理、というはっきりした結論があれば、
他の言語も含めた別の解決法を探すんだけど、
ぐぐってもそのへんを断言した文章は見つからない

逆に、このスレでは口を揃えて出来る出来ると言っている
サンプルは1バイトも出てこないけど
455 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 01:53:05 ]: Perlでは出来ないし、ここにいるやつらは知ったかぶりの初心者ばかりだから、
PerlはあきらめてPythonでやるといいよ!!
456 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 04:29:43 ]: うちの環境で"activeperl エンコーディング readdir"でググって一番上に出てくる
homepage2.nifty.com/ttoyoshima/Perl/lesson5.htm
には
> 「Active Perl V5.8.8」では日本語の「ファイル名」のファイルは開けない。
って書いてあるけど。
457 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 08:13:35 ]: ＞日本語の「ファイル名」のファイルは開けない
というのはそのサイトの人がUTF-8のままで処理しようとしているからでは?
別のサイト
ttp://www.aritia.org/hizumi/perl/perlwin.html
では内部コードはUTF-8でもファイル操作時はShift_JISに
戻せみたいなことが書いてあるが
open(IN,encode('cp932',"<表.txt")) or die "open(表.txt):$!\n";

少なくともまったくできないってことはないだろ
458 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 08:45:49 ]: 単に説明が面倒だから、全部できないことにしとけ、という手抜きだろ
459 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 10:27:31 ]: PHPにはPEAR::Text_Passwordっていう便利なモジュールがあって、

<?php
require_once "Text/Password.php";
$a=new Text_Password;
$b=$a->create(8, 'unpronounceable', 'alphanumeric');
echo $b ;
?>

このコードを書くだけで、ランダムなパスワードを
自動で生成してくれる。

同じことをperlでやったら６５行は書かないといけない。
460 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 10:53:36 ]: その65行をライブラリとして使えば変わらん
461 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 11:20:31 ]: そのText/Password.phpの中身は何行だよ
462 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 11:46:17 ]: PerlにはString::Randomっていう便利なモジュールがあって、

use String::Random;
print $a=String::Random->new->randregex('[A-Za-z0-9]{8}');

このコードを書くだけで、ランダムなパスワードを
自動で生成してくれる。

同じことをphpでやったら６行は書かないといけない。
463 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 12:29:06 ]: >>449
> >>4を入れても改善しないようです

>>4には
> #　※2. OS に渡す文字列（ファイル名，dos コマンドのオプションなど）は、
> #　この例のように cp932 でエンコードする必要があります。
と書いてあるが、なぜそんなことが必要なのか、よく考えてごらんよ。
すると、OS からもらった文字列は逆にcp932 からutf8 にデコード
しなきゃならない、という事にも気づけるだろう。
464 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 14:07:20 ]: >>463
問題を勘違いしてる
0x5Cがエスケープ文字だからトラブってるのではなくて
Windowsのディレクトリセパレータなのが問題
465 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 15:49:06 ]: >>464
> Windowsのディレクトリセパレータなのが問題

へ～、そうなんだ。
466 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 15:54:30 ]: >>462
ﾜﾛﾀｗｗｗ
467 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 17:30:30 ]: >>4 に書いてあるとおり、教科書的な書き方をすれば、こうなる。

use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;

opendir dir, encode('cp932','.');
@files = readdir dir;
for (@files) { $_ = decode('cp932', $_) }

for $file (@files) {
if (-d encode('cp932',$file)) {print "$file is directory.\n"}
else {print "$file is file.\n"}
}

ポイント
・OS に渡す文字列（ファイル名，dos コマンドのオプションなど）は、utf8 → cp932 に変換すること。
・逆に OS からもらう文字列（readdirなど）は cp932 → utf8 に変換すること。
468 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 18:38:39 ]: 下記のように1～5万の数をランダムに表示していき、かつ一度表示した数は表示しないというコードをゴリゴリ書きました。
しかしこれは何故か3万回を超えた辺りから重複による何十回ものスキップ処理が入ってしまいます。
3万回数字を表示した時点でスキップが起こる確率は3/5=60%なので何十回ものスキップが頻発するというのはおかしいです。
（例えば10回のスキップ処理が連続で起こる確率は0.6^10でたった0.6%であるにも関わらず、こういう規模の事象が頻発する。3桁レベルのスキップも起こったりする。）
Perlのランダム関数がおかしいとは考えにくいのですが、何故こういう事が起こってしまうんでしょうか？教えてください。

$starttime = (times())[0];
$sessionstarttime = (times())[0];
$count=1;
$skipcount=0;
@triedNumbers=();
print " count skip num total this\n";
while(1){
$number = int(rand(50000))+1;
$new = 1;
foreach(@triedNumbers) {
if($number == $_) {
$skipcount++;
$new = 0;
last;
}
}
if($new==0){next;}
push(@triedNumbers,$number);
$endtime = (times())[0];
$totaltime = $endtime-$starttime;
$sessiontime=$endtime-$sessionstarttime;
printf "%6d %4d %6d %3ds %3ds\n", $count, $skipcount,$number,$totaltime,$sessiontime;
$sessionstarttime = (times())[0];
$skipcount=0;
$count++;
}
469 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 18:40:13 ]: 環境は以下です。
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
WindowsXP SP3
470 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 18:54:55 ]: Win32::APIガリガリ叩いてやればできたはずなんだけど、英語の記事だったから読んでないしどこでみたかも覚えてない
471 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 19:03:36 ]: >>468
This is perl, v5.8.9 built for i386-freebsd-64int
だと以下のようになるが。

32264 3 48037 119s 0s
32265 4 43101 119s 0s
32266 2 38633 119s 0s
32267 2 31075 119s 0s
32268 0 8513 119s 0s
32269 1 49402 119s 0s
32270 1 27972 119s 0s
32271 0 32400 119s 0s
32272 3 28045 119s 0s
32273 0 35972 119s 0s
32274 0 22672 119s 0s
32275 1 44140 119s 0s
32276 2 32443 119s 0s
32277 2 41433 119s 0s
32278 2 33357 119s 0s
32279 0 6772 119s 0s
32280 2 26341 119s 0s
472 名前：468 mailto:sage [2009/04/02(木) 19:03:40 ]: 当初の目的は下のコードでさくっとできるようになりました。
>>468のスキップ多発については原因が分かりません。

@numbers=();

for my $i (1..50000){
push(@numbers,$i);
}

for my $i (0..$#numbers){
$rand = int(rand(@numbers));
$tmp = $numbers[$i];
$numbers[$i] = $numbers[$rand];
$numbers[$rand]=$tmp;
}

for my $i (0..$#numbers){
print "$i:$numbers[$i]\n";
}
473 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 19:10:27 ]: >>468
所詮線型合同法だろ？偏りあるしそんなもんよ。
List::Utils::shuffle(1..50000) じゃダメなのか。
474 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 19:11:18 ]: >>472
それは偏りが出るまずいアルゴリズム。

っ「Fisher-Yates shuffle」
475 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 19:21:05 ]: >>468-469
その環境での乱数の有効ビット数が15だから。
rand(1)が返す数の種類が32768通りしか存在しないので、3万時点のskip確率は90%以上。
乱数のビット数は use Config して $Config{randbits} で確認できる。
476 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 19:55:54 ]: >>467でも結果は同じ
aaa is directory.
aaa― is directory.
aaa―２ is directory.
aaa２― is file.

テスト結果で書くと
aaa: -f, -d1, -e1
aaa―: -f, -d1, -e1
aaa―２: -f, -d1, -e1
aaa２―: -f, -d, -e
こんなん

aaa―２みたいに途中に5cを含む場合はエスケープとか無しに普通に扱える
aaa―が何で通るのかが謎だけど、
aaa２―みたいなのは、aaa２―/hoge みたいにフォルダ内のファイルを
直接指定してもエラーになる

結論としては、そんなフォルダ名を使うな、ということになる
ファイル名もNGなんだけど、大抵は拡張子があるので、問題になることがない
477 名前：468 mailto:sage [2009/04/02(木) 20:08:30 ]: >>471,473,474
乱数の有効ビット数というのが原因のようですね。
手持ちのWindowsだと15でしたがLinuxでは48でした。

Fisher-Yates法では偏りが出る様なので>>473の方法でやってみようとおもいます。
レスありがとうございました。
478 名前：468 mailto:sage [2009/04/02(木) 20:10:03 ]: >>475さんもありがとうございました。
479 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 20:13:48 ]: >>476
aaa― が通るのは aaa があるから。
aaa２―/hogeの失敗は、何らかの単純ミスの可能性が高い。

>>446
＞どうやって回避してるの?
@dirs=split /[\r\n]+/,`dir /s/b/aD`; とか？
再帰？　再帰って何だ？

ファイルテスト演算子内から呼ばれるwin32_stat()内で終端の\を加工してるのが直接の原因。
なんでも FindFirstFile() and stat() are buggy with a trailing backslash, なので、
so change it to a forward slash (～5.8.7.815)とか、
remove additional trailing slashes (5.8.8.816～)という対策をしてるとの事。

-dを使う限りstatを避けることは出来ないが、There's More Than One Way To Do Itという
決まり文句を持ち出すまでもなく回避するには数多くの方法がある。

1.くどいけど @dirs=split /[\r\n]+/,`dir /b/aD`;
2.Win32::FileにGetAttributesがあるのでソレを使う
3.Win32API::FileやWin32::APIで好き勝手にやりたい放題？
4.面倒だから -e "${fn}/." で代用 (chdir/opendirにも使える/-fはopenで代用)

X. グロブ(<*>)を使うと、statに通らないファイル名は入ってこない

正しい対応.バグレポートを出し、余裕があればパッチも投稿する。
例えば、WideChar化してから終端加工して再度MultiByteに戻すとか。

楽な対応.そんなフォルダ名は使わない、見つけたら即リネーム
480 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 20:47:30 ]: >>467 の
> if (-d encode('cp932',$file)) {print "$file is directory.\n"}
がおかしいんじゃないの？
エンコードするから、sjis の2バイト目の0x5Cが復活する。

if (-d $file) {print "$file is directory.\n"}
でうまくいくと思うが。
481 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 21:18:47 ]: >>479
詳しく㌧

-d 以外にテストの方法があったとしても、
次にそこに対してopendirすると失敗するので、結局目的は果たせない
例えば、ディレクトリ構造のツリーを表示するとかそんなプログラム

5.10.0 とか 5.8.9.825 では直っているかしら
482 名前：PHPの神 mailto:sage [2009/04/02(木) 22:15:14 ]: >>462
お前は何か勘違いしているようだな、、、

PHPでは
「発音できないパスワードを生成する」
とか、そういうことができるんだぞ

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef