問題タブ [readdir]

Perl でopendir, readdir, およびを使用してディレクトリを読み取るとclosedir、readdir関数は特定の順序でファイルを読み取るようには見えません (私にはわかります)。

エポックタイムスタンプで名前が付けられたサブディレクトリを持つディレクトリを読んでいます:

これらのディレクトリを番号順に読みたいと思います。これにより、最も古いディレクトリが最初になります。

を使用するreaddirと、最初に読み取られるのは 1228324260 で、これが真ん中です。ディレクトリの内容を配列に入れて並べ替えることができることは知っていますがreaddir、並べ替えられた順序で読み取るために渡すことができるオプションはありますか? それとも、すべてを配列にプッシュして配列をソートするよりも、これを達成するためのよりエレガントな方法でしょうか? おそらくこれを行うためのモジュールもありますが、私たちの環境にモジュールをインストールするのは難しいので、組み込みモジュールでない限り、モジュールを使用したくない...

ありがとう！

編集 要求に応じて、使用しているコードを投稿しています:

私は次のコードを持っています

日本語のようなmb言語があると、正しく表示されず、代わりに究極超人あ〜?????〜？のように表示されます。究極超人あ〜る</ p>

とにかく、正しい名前を表示するか、他の人がダウンロードできるようにしますか？

私を助けてくれてありがとう ：）

Perl readdir を使用してファイル リストを取得していますが、ディレクトリには 250,000 を超えるファイルが含まれているため、readdir の実行に長時間 (4 分以上) かかり、80MB を超える RAM を使用します。これは 5 分ごとに繰り返されるジョブであることを意図していたため、この遅延時間は許容できません。

詳細: 別のジョブが、スキャン中のディレクトリを (1 日に 1 回) 埋めます。この Perl スクリプトは、ファイルの処理を担当します。スクリプトの反復ごとにファイル数が指定されており、現在は実行ごとに 1000 です。Perl スクリプトは 5 分ごとに実行され、(該当する場合) 最大 1000 個のファイルを処理します。Perl が複雑なワークフローをトリガーするデータベースにデータをプッシュする際に、ダウン ストリーム処理を維持できるようにすることを目的としたファイル数の制限。

ディレクトリからファイル名を取得する別の方法はありますか?理想的には 1000 (変数で設定) に制限すると、このスクリプトの速度が大幅に向上しますか?

以前、Dev-cpp でこの種のコードを使用したことがあります。

しかし、今私は MSVC++ を使用しており、そこにそれらのファイルを追加する方法がわかりません。そこに dirent.h/dir.h/errno.h をコピーしようとしましたが、それらのファイル内の別の含まれているファイルに関連する別のエラーが発生します.. .、そしてファイルを見ると、そこにmingwのものがあるので、コンパイラに関連していますか? idk MSVC++ が使用するコンパイラーですが、これらのファイルを MSVC++ にコピーペーストして動作させることは可能ですか?

MSDN からいくつかのコードを調べようとしましたが、本当にめちゃくちゃだったので、上記のこれらの関数を使用できることを願っています...

「abc」などの特定のパターンで始まるディレクトリ内のファイルを検索する必要があります。また、結果から「.xh」で終わるすべてのファイルを削除する必要があります。Perl でそれを行う方法がわかりません。

私はこのようなものを持っています:

「.xh」で終わるすべてのファイルを結果から除外する必要もあります

ありがとう、ビー

私はそれがこの行と関係があると思います：

確信はないけど

私は小さなギャラリーを作っています。ディレクトリからファイル名を読み取り、先頭の数字とファイル拡張子をいくつか削除した後、以下のファイル名を印刷したいと思います。

コードには2つのバージョンがあります。

バージョン1はソートされません

バージョン2はソートされますが、ファイル名を操作できません

はい、私は愚かだと知っています。ああ！

この質問は、これから派生したものです。いくつかの歴史：私が最初にPerlを学んだとき、私はそれがより簡単であると思ったので、ほとんど常に+globではなく使用しました。その後、さまざまな投稿や読み物がそれが悪いことを示唆したので、今ではほとんどいつもを使用しています。opendirreaddirglobreaddir

この最近の質問を考えた後、私はどちらか一方の選択の理由が二の次であるかもしれないことに気づきました。それで、私はいくつかの賛否両論をレイアウトするつもりです、そして私はより経験豊富なPerlの人々がチャイムを鳴らして明確にすることができることを望んでいます。一言で言えば、（一部またはすべての場合に）好むまたは好むやむを得ない理由があるかどうかというglob質問readdirです。readdirglob

glob長所：

1. ドットファイルはありません（要求しない限り）
2. アイテムの注文は保証されています
3. ディレクトリ名をアイテムに手動で追加する必要はありません
4. より良い名前（名前だけで判断する場合は、globコンテストreaddirではありません）

5. （ysthの回答から。以下のglob短所4を参照）存在しないファイル名を返すことができます。

   /li>

glob短所：

1. 古いバージョンは単純に壊れています（しかし、「古い」は5.6より前のことを意味します。率直に言って、5.6より前のPerlを使用している場合は、より大きな問題があります）
2. stat毎回呼び出します（つまり、statほとんどの場合、無駄に使用します）。
3. ディレクトリ名のスペースに関する問題（これはまだ本当ですか？）

4. （ブライアンの回答から）存在しないファイル名を返すことができます：

   /li>

readdir長所：

1. （ブライアンの答えから）opendirプログラムで渡す（そして再利用する）ことができるファイルハンドルを返しますが、glob単にリストを返します
2. （ブライアンの答えから）readdirは適切なイテレータであり、、、に関数を提供しrewinddirますseekdir。telldir
3. もっと早く？（上からのいくつかの機能に基づいた純粋な推測glob。とにかくこのレベルの最適化についてはあまり心配していませんが、理論的なプロです。）
4. エッジケースのバグが発生しにくいのはglob？
5. デフォルトですべて（ドットファイルも）を読み取ります（これも短所です）
6. ファイルに名前を付けないように説得するかもしれません0（短所もあります-ブラッドの答えを参照してください）
7. 誰？ビュラー？ビュラー？

readdir短所：

1. ディレクトリ名の前に付けるのを忘れた場合は、ファイルテストを実行したり、アイテムをコピーしたり、アイテムを編集したりするときに、ビットが表示されます...
2. とアイテムを忘れてgrepしまった場合は、アイテムを数えるか、ファイルツリーを再帰的に下って行くか......
3. ディレクトリ名の前に付けることについて言及しましたか？（補足ですが、Perl Beginnersメールリストへの私の最初の投稿は、この落とし穴に関連する古典的な「ファイルテストを含むこのコードが機能しないのはなぜですか？」という問題でした。どうやら、私はまだ苦いです。）
4. アイテムは順不同で返送されます。これは、多くの場合、何らかの方法でそれらを並べ替えることを覚えておく必要があることを意味します。（これは、速度が向上し、実際にアイテムを並べ替える方法と必要性について考えることを意味する場合、プロになる可能性があります。）編集：恐ろしく小さいサンプルですが、Macreaddirでは大文字と小文字を区別せずにアルファベット順にアイテムを返します。DebianボックスとOpenBSDサーバーでは、順序は完全にランダムです。私はAppleの組み込みPerl（5.8.8）と自分でコンパイルした5.10.1を使ってMacをテストしました。Adobeボックスは、OpenBSDマシンと同様に5.10.0です。これはPerlではなくファイルシステムの問題なのだろうか？
5. デフォルトですべて（ドットファイルも）を読み取ります（これもプロです）
6. 名前の付いたファイルを必ずしもうまく処理できるとは限りません0（プロも参照してください-ブラッドの回答を参照してください）