PerlのGlobには制限がありますか？

次の5文字の期待文字列を実行しています。

while (glob '{a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z}'x5) {
  print "$_\n";
}

しかし、それは4文字しか返しません：

anbc
anbd
anbe
anbf
anbg
...

ただし、リストの文字数を減らすと、次のようになります。

while (glob '{a,b,c,d,e,f,g,h,i,j,k,l,m}'x5) {
  print "$_\n";
}

それは正しく戻ります：

aamid
aamie
aamif
aamig
aamih
...

私がここで欠けているものを誰かに教えてもらえますか、ある種の制限はありますか？またはこれを回避する方法はありますか？

それはどんな違いをした場合、それは両方で同じ結果を返すperl 5.26と、perl 5.28

すべてにいくつかの制限があります。

これは、繰り返し行うことができる純粋なPerlモジュールです。リスト全体が一度に生成されるわけではなく、すぐに結果が得られます。

use v5.10;

use Set::CrossProduct;

my $set = Set::CrossProduct->new( [ ([ 'a'..'z' ]) x 5 ] );

while( my $item = $set->get ) {
    say join '', @$item
    }

glob1 つ目は、可能なすべてのファイル名拡張を作成するため、指定されたシェルスタイルのglob / patternから完全なリストを最初に生成します。スカラーコンテキストで使用されている場合にのみ、その後反復します。これが、反復子を使い果たすことなくエスケープすることが非常に難しい（不可能か？）理由です。この投稿を参照してください。

最初の例では、26 ^個の5文字列（11_881_376）で、それぞれ5文字です。したがって、約1200万個の文字列のリストで、（単純な）合計が56Mbを超えており、それに加えて、スカラーのオーバーヘッドが最低でも12バイト程度あると思います。したがって、少なくとも1つのリストに100Mbのオーダーがあります。^†

私はPerl（正規表現以外）での長さに関する正式な制限を認識していませんが、globすべて内部で行っており、文書化されていない制限があるはずです-おそらく一部のバッファーが内部でオーバーランしていますか？それは少し過剰です。

これを回避する方法については、5文字の文字列のリストを繰り返し生成するのではなくglob、舞台裏で魔法をかけるのではありません。そうすれば、絶対に問題はないはずです。

ただし、その場合でも、快適さのために全体が少し大きいと思います。一度に1つのリスト要素を生成して提供するアルゴリズム（「イテレーター」）を作成し、それを使用することをお勧めします。

それを行うことができる優れたライブラリがあります（そしてもっとたくさん）、そのうちのいくつかはこの問題についての以前の投稿で推奨されているAlgorithm :: Loopsです（そしてコメントで）、Algorithm :: Combinatorics（同じコメント）、Set::CrossProduct別の答えからここに ...

また、これはの賢い使い方ですglobが、ライブラリはファイルを操作するためのものです。原則としてそれを誤用することは別として、私はそれが有効なエントリのためにそれぞれ（〜1200万）の名前をチェックすると思います！（このページを参照してください。）これは、多くの不要なディスク作業です。（そして、「グロブ」を使用する場合、*または?一部のシステムでは、実際にファイルがある文字列のみのリストを返すため、静かに異なる結果が得られます。）

^†  5文字のスカラーのサイズで56バイトを取得しています。これは宣言された変数用であり、匿名スカラーより少しかかる場合がありますが、長さ4の文字列を使用したテストプログラムでは、実際の合計サイズは単純に計算されたものよりも桁違いに大きくなっています。したがって、1回の操作で本物が1Gbのオーダーになる可能性があります。

更新   5文字の長い文字列のリストを生成する簡単なテストプログラム（同じglobアプローチを使用）は、サーバークラスのマシンで15分間実行され、725 MBのメモリを消費しました。

このサーバーでは、正しいように見える、正しい数の実際の5文字の長い文字列が生成されました。