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

1 名前：デフォルトの名無しさん mailto:sage [2006/12/21(木) 22:35:39 ] "The duct tape of the Internet" こと、Perlについての質問箱です。 "There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。 CGIについての質問は板違いです。WEBプログラミング板でどうぞ。 CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。 (WEBプログラミング板 pc8.2ch.net/php/ ) CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。 このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 www.perl.org/get.html ● 2006/12/21現在の最新版: 5.8.8 ● 2006/12/21現在の開発版: 5.9.3 前スレ Perlについての質問箱 28箱目 pc8.2ch.net/test/read.cgi/tech/1162273941/ リンク集は>>2-3 過去スレは>>4 267 名前：デフォルトの名無しさん mailto:sage [2007/01/11(木) 17:19:33 ] forの入れ子でやるとかいうと、もしかしたらこういう おぞましいコードを期待してるかもしれないんだけど for (my $line=1; $line <= $b; ++$line) { for (my $num=1; $num <= $line; ++$num) { print $a; } print "\n"; } こういう風に簡潔にかける。 for my $num (1..$b) { print $a x $num, "\n"; } 268 名前：デフォルトの名無しさん mailto:sage [2007/01/11(木) 17:21:58 ] あと $a と $b は sort とかで使われるから使うなといっとけ 269 名前：265 mailto:sage [2007/01/11(木) 17:33:51 ] >>267 できました。ありがとうございます。 入れ子でわけわからない長いプログラムを作っていた自分がアホらしくなりましたｗ もし入れ子でやるとしたら 入れ子の方の後半部分の print $a; } print "\n"; } はどういうことでしょうか？ 270 名前：デフォルトの名無しさん mailto:sage [2007/01/11(木) 17:34:37 ] すぐ答え出す奴ってなんなの・・・ 271 名前：デフォルトの名無しさん mailto:sage [2007/01/11(木) 17:54:51 ] 漁師さん 272 名前：デフォルトの名無しさん mailto:sage [2007/01/11(木) 18:12:08 ] こういう場合は普通、for文を使わずにトリッキーなコードを書いてあげるのが お決まりなんだけどね。 273 名前：デフォルトの名無しさん mailto:sage [2007/01/11(木) 18:21:32 ] print map { $a x $_ . "\n" } 1..$b; 274 名前：デフォルトの名無しさん mailto:sage [2007/01/11(木) 18:58:59 ] チューニングした答え書いて分かるかよ。 いっそのことCPANで（笑 275 名前：267 mailto:sage [2007/01/11(木) 19:02:50 ] $a='+';$b=5;$t=0; (${a}x(($b*$b+$b)/2))=~m{((??{++$t;".{$t}"}))(?{print"$^N\n"})}g; こうですか？わかりません＞＜ 276 名前：デフォルトの名無しさん mailto:sage [2007/01/11(木) 19:17:38 ] $^Nなんて使ってるのはじめてみた(笑) 277 名前：デフォルトの名無しさん mailto:sage [2007/01/11(木) 19:26:01 ] (笑)なんて使ってるのはじめてみた(笑) 278 名前：デフォルトの名無しさん mailto:sage [2007/01/11(木) 20:25:30 ] 確かにな(藁 279 名前：デフォルトの名無しさん mailto:sage [2007/01/11(木) 20:27:11 ] まぁ、ありえない 280 名前：デフォルトの名無しさん mailto:sage [2007/01/12(金) 02:12:36 ] print map "$_¥n", unpack +( join '', map "A${_}X${_}", 1..$b ), $a x $b ; 不毛だ… 281 名前：デフォルトの名無しさん mailto:sage [2007/01/12(金) 02:31:38 ] $_が半角文字"@"(0x40)を含むときのみデータを取得したいのですが、 以下のコードだと、$_が"病院"(0x95,0x61,0x89,0x40)とかの場合でも データを取得してしまいます。 このような2バイト文字を取得しないようにするには どの様に修正すればいいですか？ if ( $_ =~ "@" ) { 　$data[$i++] = $_; } 282 名前：デフォルトの名無しさん mailto:sage [2007/01/12(金) 03:56:45 ] まず始めに。 当方、Perlは殆どいじった事がなく、 HSPやCを少々組んだ事がある程度の知識で質問しているため、 常識的な事や的外れな事を質問していたら申し訳ありません。 google等で調べても何やっても上手くいかなかったので、 どうか皆様の力をお貸し下さい。orz CGIで生成したページから別サイトへのリンクをクリックした時に、 「このURLへアクセスします。よろしいですか？」 と言ったような確認ページを挟んでアクセスするようにしようとしています。 具体的書くと、元ページの別サイトへのリンクは、 xxx.cgi?url=www.xxx.com/index.php?%A5%AC%A5 と言うように、リンク先のURLを<a>タグに埋め込んで自身のCGIに返すようになっています。 URL=の部分を取得し、そのまま確認ページの<a>タグに埋め込みたいのですが、 実際にやってみると?以降のURLエンコードされた部分が漢字や化けた文字として表示されてしまい、 綺麗なURLになってくれません。 渡されてきたURLを「www.xxx.com/index.php?%A5%AC%A5」のように、 そのまま表示するにはどうしたらいいでしょうか？ 一応書いておくと、スクリプトはUTF-8Nで書いています。 283 名前：デフォルトの名無しさん mailto:sage [2007/01/12(金) 04:00:48 ] >1に全てが隠されているんじゃないだろうか。 284 名前：デフォルトの名無しさん mailto:sage [2007/01/12(金) 04:08:40 ] >>283 orz CGIはスレ違いだったんですね。本当にごめんなさい。 一日考え続けてて疲れてたのか、>>1を確認するのを失念してました。 向こうの初心者質問スレで質問してくる事にします。 スレ汚し失礼しました。 285 名前：デフォルトの名無しさん mailto:sage [2007/01/12(金) 04:14:03 ] プログラム板から誘導されて来ました。 まず始めに。 当方、Perlは殆どいじった事がなく、 HSPやCを少々組んだ事がある程度の知識で質問しているため、 常識的な事や的外れな事を質問していたら申し訳ありません。 google等で調べても何やっても上手くいかなかったので、 どうか皆様の力をお貸し下さい。orz CGIで生成したページから別サイトへのリンクをクリックした時に、 「このURLへアクセスします。よろしいですか？」 と言ったような確認ページを挟んでアクセスするようにしようとしています。 具体的書くと、元ページの別サイトへのリンクは、 xxx.cgi?url=www.xxx.com/index.php?%A5%AC%A5 と言うように、リンク先のURLを<a>タグに埋め込んで自身のCGIに返すようになっています。 URL=の部分を取得し、そのまま確認ページの<a>タグに埋め込みたいのですが、 実際にやってみると?以降のURLエンコードされた部分が漢字や化けた文字として表示されてしまい、 綺麗なURLになってくれません。 渡されてきたURLを「www.xxx.com/index.php?%A5%AC%A5」のように、 そのまま表示するにはどうしたらいいでしょうか？ 一応書いておくと、スクリプトはUTF-8Nで書いています。 286 名前：デフォルトの名無しさん mailto:sage [2007/01/12(金) 04:20:09 ] ぎゃー！！！ ありえない誤爆・・・。 ほんっとうにごめんなさい・・・。 287 名前：デフォルトの名無しさん mailto:sage [2007/01/12(金) 04:23:33 ] >1に全てが隠されているんじゃないだろうか。 288 名前：281 mailto:sage [2007/01/12(金) 04:29:08 ] 自己解決しました。 おさわがせしました。 289 名前：デフォルトの名無しさん mailto:sage [2007/01/13(土) 00:44:28 ] >>281見てて、ふと、半角数字を全角数字に置換することはできても、半角英字を全角英字に置換することが難しいことに、 うーんうーん悩んでいた時のことを思い出した。 そういや、半角英字を全角英字に置換することってできるの？ 290 名前：デフォルトの名無しさん mailto:sage [2007/01/13(土) 00:53:02 ] use utf8やるとか。 291 名前：デフォルトの名無しさん mailto:sage [2007/01/13(土) 01:42:35 ] EncodeもあるしUnicode::Japaneseもあるし。 292 名前：デフォルトの名無しさん mailto:sage [2007/01/13(土) 22:09:16 ] WebProg板に書いたけど、こっちの方がふさわしそうなので こちらでお聞きします。 キー入力を待って、キー入力があれば処理を次に進める、ということをやりたいのですが、 Ｃ言語でいうところの、getch() に相当する関数はないでしょうか？ 293 名前：デフォルトの名無しさん [2007/01/13(土) 22:10:05 ] ４年前ぐらいまでＰＧ兼ＳＥをしていたのだが、 そのころと比べるとかなりPerlは寂れた？ 294 名前：デフォルトの名無しさん mailto:sage [2007/01/13(土) 22:34:22 ] >>292 Term::Getch 295 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 00:42:13 ] こんな配列 @result=("E:15000", "S:20000", "W:15000", "N:50000")を作りまして ここから、1位=N、2位=S、3位=E、4位=W、という結果を出したいと思っています。 得点が同点の場合、E→S→W→Nの順で優先となります。 とりあえず、$rank{E}='15000',$rank{S}='20000',,,として、 if(($rank{E}>=$rank{S})&&($rank{E}>=$rank{W})&&($rank{E}>=$rank{N})){ #E=1位 #SとWとNで2位以下の判別 　　#何かと何かで3位と4位の判別 } elsif (($rank{S}>=$rank{W})&&....... #S=1位 #EとWとNで2位以下の判別 　　#何かと何かで3位と4位の判別 }elsif(.. と、やり始めましたが、とてつもない作業になりそうです。 何か、よい解決法がございましたらご示唆お願いします。 296 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 00:49:18 ] 普通にソートすりゃいいやん @result= sort {(split/:/,$b)[1]<=>(split/:/,$a)[1]} @result; 297 名前： ◆TWARamEjuA mailto:sage [2007/01/14(日) 01:04:42 BE:1633853-BRZ(6701)] とん・なん・しゃー・ぺー♪ 298 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 01:06:36 ] use strict; # こんな配列 my @results = ("E:15000", "S:20000", "W:15000", "N:50000"); # 得点が同点の場合の順 my %prio_of = ( E => 0, S => 1, W => 2, N => 3, ); my @s_results = map { $_->[0] } sort { $b->[2] <=> $a->[2] || $prio_of{$a->[1]} <=> $prio_of{$b->[1]} } map { [ $_, (split/:/=>$_)] } @results; 299 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 01:23:07 ] 数値として使う予定の変数を、文字列で宣言するのって確か非効率だよね。 随分長い間Perlから離れてるので間違ってるかも知れないけど $foo = '2000'; と文字列にしておいて、その後で $foo を数値として使った場合、 スカラ変数の構造体は、 文字列型のものから、数値も文字列も両方入る奴に切り替わる。 構造体切り替えの手間もあるし、構造体のサイズも大きくなるから非効率 …だったような気がする。 300 名前：295 mailto:sage [2007/01/14(日) 01:43:35 ] すばやいご提示、ありがとうございます。 >>296 様 すみません、説明が不足していました(ということに気づくのに、いただいた式を 眺めながらかなり時間がかかりました・・・)。実は、EやSが変数の中に出てくる 順番は毎回変わる可能性がありました。申し訳ありません。 >>298 様 欲しい結果が出せました。ただ、内容の理解には私にはまだまだ時間がかかりそうです・・ なんとか少しずつ、吟味していきたいと思います。 >>297 様 わかりましたか。そのとおりです。 皆様、すばらしいご教授、どうもありがとうございました。 301 名前：デフォルトの名無しさん [2007/01/14(日) 01:59:22 ] >>299 perl は型はなしでしょ。 $foo = '2000'; も $foo = 2000; は同じでしょ。 302 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 02:13:38 ] >>301 つ [perlguts] つ [Devel::Peek] 303 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 02:45:43 ] >>302 もちっと教えてくれんかのう。 perldataには 「あるスカラー変数が、“文字列”型、“数値”型、“ファイルハンドル”型、 あるいはその他の型であるように宣言する方法はありません。」 とあるかんだけど、それとは違うレベルで何かあるのか？ 304 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 03:03:20 ] 提示されている情報ぐらい見なさい。 > Double-Typed SVs > スカラー変数は通常、整数、倍精度、ポインタ、リファレンスのうちの いずれか一つの型をとります。Perl は実際のデータに対して、 > 蓄積されている型から要求されている型へ、自動的に変換を行ないます。 305 名前：265 mailto:sage [2007/01/14(日) 03:39:50 ] >>275 を提出したんですが、授業後 せんせから呼び出し受けました。 306 名前：303 mailto:sage [2007/01/14(日) 03:57:55 ] >>304 どうもありがとう。 文脈によってperl内部で数値と評価されたり文字列として評価されたりすることは分かっています。 しかし、シンタックス上 $foo = '2000'; と $foo = 2000; に違いがあるとは読み取れませんでした。 #$foo = '2000' . ''; #と #$foo = 2000 + 0; #が違うのはわかりますよ。 307 名前：303 mailto:sage [2007/01/14(日) 04:24:03 ] 試してみれば良いんだね。 $foo = 2000; の場合数値コンテキストになるんだ。(そりゃそうか) 308 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 13:40:27 ] >>305 ﾜﾛﾀ なんていわれたの？ｗ 309 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 14:38:20 ] 先生が読めなかったか 先生がこのスレを見ていたか どっちかな 310 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 14:54:53 ] >>289 >半角数字を全角数字に置換することはできても、半角英字を全角英字に置換することが難しいことに、 >うーんうーん悩んでいた時のことを思い出した。 >そういや、半角英字を全角英字に置換することってできるの？ 次スレのテンプレ予定の>>115に忠実に従えば、 tr/a-zA-Z/ａ-ｚＡ-Ｚ/ でできる。 311 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 14:58:44 ] print "@{[1+1]}", "${\(1+1)}"; こういうテクニック(?)を思い出したんですけど、どこに書かれていたものでしょうか。 312 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 15:01:00 ] >>306 use Devel::Peek; $foo1 = '2000'; Dump $foo1; $foo2 = 2000; Dump $foo2; ↓ SV = PV(0x363bc) at 0x18aef9c REFCNT = 1 FLAGS = (POK,pPOK) PV = 0x3dc2c "2000"\0 CUR = 4 LEN = 8 SV = IV(0x18a68b8) at 0x18af02c REFCNT = 1 FLAGS = (IOK,pIOK) IV = 2000 313 名前：299 mailto:sage [2007/01/14(日) 20:42:44 ] やっぱりPVIVになった。どうやら >>299 に書いた記憶通りだったみたい。 use Devel::Peek; $foo = '2000'; Dump $foo; $foo += 1; Dump $foo; SV = PV(0x1801660) at 0x180b5a8 REFCNT = 1 FLAGS = (POK,pPOK) PV = 0x300c70 "2000"¥0 CUR = 4 LEN = 5 SV = PVIV(0x1801a20) at 0x180b5a8 REFCNT = 1 FLAGS = (IOK,pIOK) IV = 2001 PV = 0x300c70 "2000"¥0 CUR = 4 LEN = 5 この状態でFLAGSをC側からいじると、 文字列として表示した時と、数値として使った時で別の値を出すスカラ とか作れちゃうんだよね。 314 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 22:35:50 ] >>313 実はoverloadがあればxsを使わずともそういうのが作れちゃったりするのですよ。 ttp://search.cpan.org/~dconway/Contextual-Return-v0.1.0/lib/Contextual/Return.pm use Contextual::Return; $contextual = NUM { 10 } STR { 'abc' }; print $contextual . ''; print $contextual + 0; 315 名前：314 mailto:sage [2007/01/14(日) 22:43:39 ] ああ、失敗。よく考えたら流石に代入は無理だな。…Tie使ったら或いは出来たりしそうな気もしないでもない。 313はスカラを作ると言うことで代入した別の値を保持まで出来たりするのかな 316 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 23:55:02 ] Scalar::Utils の dualvar は？ 317 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 23:56:11 ] ごめん、Scalar::Util だった。 ttp://search.cpan.org/~gbarr/Scalar-List-Utils-1.19/lib/Scalar/Util.pm 318 名前：デフォルトの名無しさん mailto:sage [2007/01/14(日) 23:59:37 ] >実はoverloadがあればxsを使わずともそういうのが作れちゃったりするのですよ。 スルーしてた。xs を使って実現したのが Scalar::Util の dualvar ってことっすね。 319 名前：デフォルトの名無しさん mailto:sage [2007/01/15(月) 00:09:24 ] dualvar でスカラ作ってみたけど、 作った後で代入し直したら、片方だけ(数値だけ or 文字列だけ)になっちゃった。 ということは、xsでフラグいじって IOK, POK 両方立てても 代入したら片方になっちゃうということか。 オブジェクトにして代入まで見張れば良いんだろうけど。 320 名前：デフォルトの名無しさん mailto:sage [2007/01/15(月) 01:57:29 ] webサーバをan httpdからapacheに変更したところ文字化けする部分が出てきました。 method=getで受けとった部分が文字化けしてしまいます。method=postは大丈夫でした。 よろしくお願いします。 ↓の一番下の部分も参考にしましたが直りませんでした。 tech.bayashi.net/pdmemo/chara2.html apache perlは↓のサイトを参考に構築してあります。 www.y-kit.jp/saba/ ------------------------------ 環境 Apache/2.0.59 (Win32) PHP/5.1.4 ------------------------------ コード例 require './jcode.pl'; #GET用 $myindata=$ENV{'QUERY_STRING'}; #POST用 #read( STDIN, $myindata, $ENV{ 'CONTENT_LENGTH' } ); #$myindata =~ tr/+/ /; #$myindata =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1) )/ge; &jcode'convert( *value, 'sjis' ); print "Content-type: text/html\n\n"; print $myindata; ------------------------------ getデータ localhost/bbsmt/write.cgi?name=a&mail=&message=あいうえお&a=11 表示データ name=a&mail=&message=???¢???|?¨&ip=&a=11 321 名前：デフォルトの名無しさん mailto:sage [2007/01/15(月) 02:03:07 ] >1に全てが隠されているんじゃないだろうか。 322 名前：デフォルトの名無しさん mailto:sage [2007/01/15(月) 12:39:35 ] 以前使っていたサーバでdbmファイルを使っていたのですが、 そのまま別のサーバに移動したら読み込めなくなりました。 dbmファイルは.dirと.pagの2つじゃない方(1つのファイル)です。 古いサーバはもう使えません。新しいサーバでdbmファイル を読む方法はないでしょうか…。 323 名前：デフォルトの名無しさん mailto:sage [2007/01/15(月) 14:43:05 ] >>322 質問する時はまず環境を説明しろ！ (古い方と新しい方それぞれのOSの種類とバージョン,Perlのバージョン) あと、読めなくなったってのはどんなエラーメッセージが来てるのかも報告汁 324 名前：デフォルトの名無しさん mailto:sage [2007/01/15(月) 19:18:22 ] >>322 ヒントになるかわからんが NDBM_File DB_File GDBM_File SDBM_File ODBM_File 325 名前：320 mailto:sage [2007/01/15(月) 20:46:35 ] 別のとこで質問してきます。 326 名前：322 mailto:sage [2007/01/15(月) 20:58:26 ] 読めなかったと思ったら読めました。お騒がせしました。 dbmファイルはテキストなどに書き出しておかないとバイナリでサーバを移しても 読めないのだと思っていました。dbmopen()で読み書きしていたので、どの 形式のDBMかわからなかったのです。 327 名前：デフォルトの名無しさん mailto:sage [2007/01/16(火) 05:56:00 ] perlerのエロイ人教えて！ﾜｯﾌﾙﾜｯﾌﾙ 指定されたディレクトリのディレクトリハンドルを開いて ディレクトリ内のファイル名を取得するスクリプトを書いたのですが 名前が長いファイルがあるとそのファイルと、それ以降のエントリが ディレクトリハンドルから取得できないんだけど なんで？これどうすれば回避できる？ 環境: Windows XP + ActivePerl5.8.8 build819 328 名前：デフォルトの名無しさん mailto:sage [2007/01/16(火) 07:04:48 ] esperのエロイ人が来て お前の書いたスクリプトを透視した上で回答してくれるのを待つことだ 329 名前：327 mailto:sage [2007/01/16(火) 10:55:47 ] >>328 再現スクリプトを下記に示します。 DirHandle以外にopendirでディレクトリハンドル開いたり、 globを使ってみたけど結果はおんなじでした。 ---- #!/usr/local/bin/perl use strict; use utf8; use warnings; use FindBin; use DirHandle; use Data::Dumper; my $dh = DirHandle->new($FindBin::Bin) or die $!; my @entries = $dh->read; print Dumper(\@entries); __END__ ---- 330 名前：デフォルトの名無しさん mailto:sage [2007/01/16(火) 10:58:29 ] 名前が長いファイルの例は何ですか？ 331 名前：デフォルトの名無しさん mailto:sage [2007/01/16(火) 11:02:27 ] 質問します。 foreach( sort(glob("*")) ){ if(-d){ @local_dir = (@local_dir,$_) ; }elsif(-f){ @local_file = (@local_dir,$_) ; }else{ print "Not Support Format -> $_\n" ; } } ファイルとディレクトリに分けたいのですが、 ローカルだと上記のようにできますが、（他にスマートなやり方があるかもしれませんが。。） ftp上のファイルを区別する方法はありますでしょうか。 以下ではどちらも同じファイルを取得してしまいます。 use Net::FTP; my $ftp = Net::FTP->new($host); $ftp->login($user, $pass); foreach( $ftp->ls("./") ){ print "$_\n" ; } foreach( $ftp->dir("./") ){ print "$_\n" ; } $ftp->quit; 332 名前：327 mailto:sage [2007/01/16(火) 11:19:46 ] >>330 全角数字０から９を繰り返すのを160文字 + .txt のファイル名を用意したら再現しました。 全角数字100文字の場合はファイル名が取得できました。 パスは D:\test で実験しました。 95系は絶対パスで255byte以下、 NT系は絶対パスで255文字以下と認識してるのですが このへんの絡みですかね？ 333 名前：327 mailto:sage [2007/01/16(火) 11:26:39 ] >>331 Net::FTP::Fileにisfileとisdirってメソッドあるよ。 インスコするかインスコできないならCPANでソース閲覧して参考にすればいけるのでは 334 名前：327 mailto:sage [2007/01/16(火) 12:18:54 ] 似たケースを見つけた。 ActivePerlのバグ？ www.namazu.org/ml/namazu-win32-users-ja/msg01954.html 335 名前：デフォルトの名無しさん mailto:sage [2007/01/16(火) 12:31:39 ] バグではなく仕様。 WinAPIでも使っとけ。 336 名前：331 mailto:sage [2007/01/16(火) 13:23:32 ] >>333 出来ましたー。 最初ソース見て作ろうと思いましたが 面倒臭くなって結局インスコしましたｗ ありがとうございます。 337 名前：327 mailto:sage [2007/01/16(火) 13:44:46 ] >>336 もめでとう！ こっちはいまだにはまり中 orz >>335 バグじゃなくて仕様なの？ ちなみにWin32::APIを使ってみたけどなぜか取得できない。。。 338 名前：327 mailto:sage [2007/01/16(火) 13:51:26 ] Win32::APIを使った再現スクリプト ---- #!/usr/local/bin/perl use strict; use utf8; use warnings; use Data::Dumper; use Encode; use File::Spec; use FindBin; use Win32::API; Win32::API::Struct->typedef('FILETIME', qw( DWORD dwLowDateTime; DWORD dwHighDateTime;)) or die $!; Win32::API::Struct->typedef('WIN32_FIND_DATA', qw( DWORD dwFileAttributes; FILETIME ftCreationTime; FILETIME ftLastAccessTime; FILETIME ftLastWriteTime; DWORD nFileSizeHigh; DWORD nFileSizeLow; DWORD dwReserved0; DWORD dwReserved1; TCHAR cFileName[260]; TCHAR cAlternateFileName[14];)) or die $!; my $FindFirstFile = Win32::API->new('kernel32', 'FindFirstFile', 'PS', 'N') or die $!; my $FindNextFile = Win32::API->new('kernel32', 'FindNextFile', 'NS', 'I') or die $!; my $FindClose = Win32::API->new('kernel32', 'FindClose', 'N', 'I') or die $!; my $path = File::Spec->catdir($FindBin::Bin, '*'); my $FindData = Win32::API::Struct->new('WIN32_FIND_DATA') or die $!; my $hFind = $FindFirstFile->Call($path, $FindData); $hFind == -1 and die $!; my @list = ($FindData->{cFileName}); push @list, $FindData->{cFileName} while $FindNextFile->Call($hFind, $FindData; $FindClose->Call($hFind); print Dumper(\@list); __END__ 339 名前：327 mailto:sage [2007/01/16(火) 13:56:10 ] 書込み時に改行多いって怒られたから改行を削ってたら FindNextFileの閉じ括弧までまちがえて削っちゃった orz >>338のソースは ×push @list, $FindData->{cFileName} while $FindNextFile->Call($hFind, $FindData; ○push @list, $FindData->{cFileName} while $FindNextFile->Call($hFind, $FindData); でお願いします。 m(_ _)m 340 名前：デフォルトの名無しさん mailto:sage [2007/01/16(火) 13:56:31 ] この関数の ANSI 版では、名前は最大 MAX_PATH 文字に制限されています。 この制限をほぼ 32,000 ワイド文字へ拡張するには、この関数の Unicode 版を呼び出し、 パスの前に "\\?\" という接頭辞を追加してください。 詳細については、MSDN ライブラリの「File Name Conventions」（ファイル名の規則）を参照してください。 341 名前：327 mailto:sage [2007/01/16(火) 14:45:03 ] >>340 どもです、自分もおんなじ情報に行き当たりました ;p mag.autumn.org/Content.modf?id=20050930181032 Find(?:First|Next)FileじゃなくてFind(?:First|Next)FileWを使えってことなんですね。。。 ディレクトリのファイル一覧を取得する部分だけで苦労するな。。。 342 名前：デフォルトの名無しさん mailto:sage [2007/01/16(火) 14:51:49 ] >>327 msdn2.microsoft.com/en-us/library/aa365740.aspx typedef struct _WIN32_FIND_DATA { ... TCHAR cFileName[MAX_PATH]; 343 名前：デフォルトの名無しさん mailto:sage [2007/01/16(火) 23:00:35 ] 作ってもらった 　　　　＿＿ 　　　　|　　 | 　　　　|　　 |　　　＿＿＿　　　　　　　　　　　　　　　　　 ＿＿＿ 　　　　|　　 | .　 /　　　　 |　　＿_　 　 ＿＿＿＿＿　　 /　＿　　＼ 　　　　|　　 | 　/　　/|　　|　 / 　/ 　 /　＿＿＿＿/　 /　/　 ＞　 l 　　　　|　　 |. /　　/ .|　　|. / 　/ 　 /　/.. 　 ＿　　 　/　　￣　　／ 　　　　|　　 |/　　/　 |　　|/ 　/ 　 /　 ￣￣＿/　 　/　　　　　　＼ 　　　　| 　 　 　 /. 　 |　 　　 / 　 /　/￣￣ __　　　/　 /￣￣＞ 　| 　　　　|　　　　/　　　|＿＿_/　 ./　 ￣￣￣ /　　/　　 ￣￣　　／ 　　　　￣￣￣　　　　　 　 　 　 ￣￣￣￣￣ 　 　￣￣￣￣￣ 　 　 ＿＿＿＿_　 　　 　___　___　　 　___ 　　　　＿＿＿＿＿＿　　　　　　　　　　　　　　　　　　 　 　 　 　 　 /＿＿　　__/ [][] ＿|　|_|　|＿_　_|　|_ 　　 　 |　　＿＿＿　　＼　　　　　　　　　　　　　　　　　　 　 　 　 　 　 　 /　/　　　　 |　　　 ＿　　| |_　　ﾚ'~￣| 　　 　 |　　|　　　　＼　　l　　　　　　　　　　　　　　　　　　　 　 　 　 　 　 |　 |＿ 　 　　￣| 　|　/　/　/ 　 ／|　| 　　 　 |　　|＿＿＿_/　 /　　　　　　　　　　　　　　　　　　　　　　 　 　 　 ＼＿_|　　　　　 | 　|　￣　/_　 /. 　|　|_ 　　 　 |　　＿＿＿＿／　＿__　　＿＿　　　　＿＿/ヽ　　　　　　　　　　　　　　　　　　　　|＿|.　 　　 |__|. 　　＼/ 　　 　 |　　|　　　　　/`､_/＿/　/　＿　ヽ 　/　＿　 / 　　 　 |　　|　　　　　ヽ　 /　　　|　l 　 l　l　 |　l 　 l　l 　　 　 |　　|　　　　 　 |　l　 　　 ヽ　￣ / 　,ヽ　￣ / 　　　　 ￣　　 　 　 　 ￣　　　　　￣￣　 /　＿＿　ヽ 　　　　　　　　　　　　　　　　　　　　　　　 |　l 　 　 l　l 　　　　　　　　　　　　　　　　　　　　　　　 ヽ　￣￣ / 　　　　　　　　　　　　　　　　　　　　　　　 　~￣￣~ 344 名前：デフォルトの名無しさん mailto:sage [2007/01/16(火) 23:04:28 ] ちょっとでかいな 345 名前：327 mailto:sage [2007/01/17(水) 01:05:42 ] ActivePerlではうまくいかないみたい。。。 aspn.activestate.com/ASPN/Mail/Message/libwin32-perl/2995279 346 名前：327 mailto:sage [2007/01/17(水) 06:15:16 ] aspn.activestate.com/ASPN/Mail/Message/2996684 こちらのやり方で取得出来ました。 何度も自己レスすみませんでした m(_ _)m 347 名前：デフォルトの名無しさん mailto:sage [2007/01/17(水) 18:25:14 ] Perl 覚えたらこんなもの作れるようになりました。 　█　　　█　　　█　　　　　　█　　　　　　　　　　█▀▀▀▅ 　▀▅　▅▀▅　▅▀　▅▅▅　　█▅▅▅　　　　　　　█　　　█　▅　▅　　▅▅▅　　　▅▅▅▅ 　　█　█　█　█　█▅▅▅█　█　　　█　　　　　　█▀▀▀　　█▀　　█　　　█　█▅▅█ 　　▀▅▀　▀▅▀　█　　　▅　█　　　█　　　　　　█　　　　　█　　　█　　　█　█▅▅▅ 　　　▀　　　▀　　　▀▀▀　　▀▀▀▀　　　　　　　▀　　　　　▀　　　　▀▀▀　　▀▅▅▅▀ 　　　　　▅▅▅▅▅▅　　　▅　　　　▅　　　　　　█ 　▀▀▀▀　▅▀　　▅　　　█　▅▅▅█▅▅　　▀▀█▀▅▀▀▀▅ 　　　　　█　　█　▀　▀▀▀█　　　　　　█　　▅█▀　　　　█ 　　　　　█　　　　　　　　　█　　　▅▅▅▀　▅▀█　　　　　█ 　　　　　▀▅　　　　　　　　　█　　　　　　　▀　█　　　　　█　▅ 　　　　　　　▀▀▀　　　　　　▀　　　　　　　　　▀　　　　　　▀ 348 名前：デフォルトの名無しさん mailto:sage [2007/01/17(水) 19:19:36 ] perldoc.jp/docs/perl/5.6.1/perlfaq5.podの どうすればファイルハンドルをサブルーチンに局所化できますか?〜 の項目にあるサンプルコードの local $_;　# ← とても重要 の意味は一体なんでしょうか。 349 名前：デフォルトの名無しさん mailto:sage [2007/01/17(水) 19:31:19 ] sub owata {   # local $_;   $_ = "＼(＾o＾)／"; } $_ = "／(＾o＾)＼"; owata; print; local $_; の行をコメントアウト/インして実行してみよう！ 350 名前：デフォルトの名無しさん mailto:sage [2007/01/17(水) 19:48:51 ] ありがとうございます。でも余計にわからなくなったorz 実はこんなコード書いて試してみたんですがlocal $_;あっても無くても同じように動くんですよね # lstはファイル名のリスト open (FH, '< lst') or die; while (<FH>) { print; &localtest } close FH; sub localtest { local *FH; open (FH, $_) or die; #local $_; while (<FH>) { print } } 何が違うのかも教えていただけたらうれしいです。 351 名前：デフォルトの名無しさん mailto:sage [2007/01/17(水) 19:58:12 ] $_はグローバルだから他で使われてるかもしれない。特に 左辺値でないもののaliasだったりすると値を書き換えることも できないしな。 foreachのときは暗黙にlocalにしてくれるけど。 352 名前：デフォルトの名無しさん mailto:sage [2007/01/17(水) 21:12:34 ] >>350 localtest 呼び出しの後 $_ は書き換わってるけど、 すぐに次のループに入るので問題がないだけ。 while (<FH>) { print "begin: $_"; &localtest; print "end: $_" } とかやってみると、違いがわかると思うよ。 353 名前：350 mailto:sage [2007/01/17(水) 23:02:32 ] ありがとうございます。ようやく理解できました しかし350のコードはアホですね…何をやっているんだか この分じゃ他にもいろいろ勘違いしていることありそうで怖いです。 とりあえずほとんど理解せず使ってる型グロブをもうちょっと調べてみよう… 354 名前：デフォルトの名無しさん mailto:sage [2007/01/18(木) 00:01:12 ] 間接的なファイルハンドル使おうよ open my $fh, '<', 'filename' or die; 355 名前：デフォルトの名無しさん mailto:sage [2007/01/18(木) 02:29:27 ] FileHandleやIO::Fileって使わないの？ 356 名前：331 mailto:sage [2007/01/18(木) 09:36:42 ] 331で質問したモノです。 また壁にぶち当たりました。 ftpしたあとのファイル、ディレクトリの日付、サイズを取得したいので調べてましたが use Net::FTP::File;のNet::FTP::fstatは作りかけのようで使用出来ませんでした。 $ftp->dir(./)で拾って日付を抜こうと思いましたが、日本語環境と英語環境で 表示が異なるので断念しました。 何か取得方法はないでしょうか。 use Net::FTP; my $ftp = Net::FTP->new($host); $ftp->login($user, $pass); 357 名前：デフォルトの名無しさん mailto:sage [2007/01/18(木) 09:45:05 ] >>356 > 何か取得方法はないでしょうか。 マニュアルを見ると分かるんじゃないでしょうか 358 名前：デフォルトの名無しさん [2007/01/18(木) 12:07:32 ] Ｐｅｒｌで文字列にunicodeが含まれているかどうかを判断するにはどうすればいいですか？ 359 名前：デフォルトの名無しさん mailto:sage [2007/01/18(木) 12:20:56 ] 「文字列にunicodeが含まれている」という言い方があいまい杉。 あるバイト列の文字コードがunicode由来のものであることを知りたいのか (エンコーディングの仕方が何通りもあるので) → Encode::Guess。ただし完全な判定は無理。 UTF-8フラグが立った文字列であることを知りたいのか →Encode::is_utf8(あるいはutf8::is_utf8) それともぜんぜん別のことなのか 360 名前：デフォルトの名無しさん [2007/01/18(木) 12:45:35 ] >>359 unicode由来のもであるかどうかです それと環境はＰｅｒｌ５．０でＪｃｏｄｅ．ｐｌです 361 名前：356 mailto:sage [2007/01/18(木) 13:54:08 ] 調べていたらNet::FTPのmdtmが使えそうだったので 書いてみましたがエラーが出ました。 使い方が間違えているのでしょうか。 $host = "***" ; $user = "***" ; $pass = "***" ; use Net::FTP; my $ftp = Net::FTP->new($host); $ftp->login($user, $pass); foreach($ftp->ls()){ $aaa = $ftp->mdtm($_) ; print "$aaa\n" ; } 362 名前：デフォルトの名無しさん mailto:sage [2007/01/18(木) 16:20:51 ] >>361 Net::FTPの使い方としては間違ってないよ。 エラーってnot a plain fileのことか？ とりあえずエラーの理由知りたけりゃDebug=>1設定しなさい。 363 名前：デフォルトの名無しさん mailto:sage [2007/01/18(木) 16:24:58 ] >>360 jcode.pl は Unicodeには対応していないはず。 Perl 5.0 なんて時代遅れなもの使うのやめたら？ 364 名前：デフォルトの名無しさん mailto:sage [2007/01/18(木) 16:29:49 ] 時代は6だな 365 名前：361 mailto:sage [2007/01/18(木) 16:36:17 ] --------------------------------------------------------------------------- #!/usr/local/bin/perl -w -- # -*-Perl-*- use strict; use warnings; use Net::FTP; my $host = "txfs02" ; my $user = "g-fan" ; my $pass = "fan" ; my $aaa ; my $ftp = Net::FTP->new($host); $ftp->login($user, $pass); foreach($ftp->ls()){ $aaa = $ftp->mdtm($_) ; print "$aaa\n" ; } --------------------------------------------------------------------------- ↑これを実行すると一つのファイルにつき↓このメッセージが出ます。 色々試してはいますが詰まっていますorz Use of uninitialized value in concatenation (.) or string at bbb.pl line 15. 366 名前：デフォルトの名無しさん mailto:sage [2007/01/18(木) 16:47:09 ] >>365 ＞Use of uninitialized value in concatenation ... 何も無いものをprintしようとしたからwarningsが出たわけ print "$aaa\n"; を print "$aaa\n" if $aaa; で 367 名前：361 mailto:sage [2007/01/18(木) 16:52:50 ] >>366 そうなんです。 全てのファイルのmdtmがundefになってるんですよね。 だいたい”foreach($ftp->ls()){”でファイルを拾っているので ファイル名を間違えているとかそういうのは無いはずなんですが。

---

---

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

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