PR
 
関数順 インデックス
目的別 インデックス
構文
  
　glob ファイル名
返り値
  
　該当ファイル名

説明

  • 該当するファイル名の一覧を返します。ファイル名には?や*を使うことができます。
  • 引数を省略すると$_が対象になります。

使用例

カレント・ディレクトリの*.plの一覧を表示する
#!/usr/bin/perl
use strict;
use warnings;

my $search = '*.pl';

while (my $file = glob($search)) {
  print $file, "\n";
}
/home/user1ディレクトリの*.plの一覧を表示する
#!/usr/bin/perl
use strict;
use warnings;

my $search = '/home/user1/*.pl';

while (my $file = glob($search)) {
  print $file, "\n";
}
※ファイル名にはディレクトリ名を含めることもできます。

カレント・ディレクトリの*.plの一覧を表示する（結果を配列で受けとる）
#!/usr/bin/perl
use strict;
use warnings;

my $search = '*.pl';

my @files = glob($search);

foreach my $file (@files) {
  print $file, "\n";
}
※結果を配列で受けとることもできます。

カレント・ディレクトリの*.plの一覧を表示する（globではなく<>を使う）
#!/usr/bin/perl
use strict;
use warnings;

while (my $file = <*.pl>) {
  print $file, "\n";
}
※<>を使って書くこともできます。