説明
- 該当するファイル名の一覧を返します。ファイル名には?や*を使うことができます。
- 引数を省略すると$_が対象になります。
使用例
カレント・ディレクトリの*.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";
}
※<>を使って書くこともできます。