【Perl】指定ディレクトリ中の条件にあうファイルだけ取得
2013-01-17-2
[Programming]
いまさらな Perl メモ。
Perl で指定ディレクトリ中の条件にあうファイルだけ取得する処理のサンプル。
ファイルを一つ一つ処理するタスクで、ファイル数が多くてコマンドラインでエラーが出る場合や xargs では挙動が変わっちゃって対処できない場合に。
雛形:
Perl で指定ディレクトリ中の条件にあうファイルだけ取得する処理のサンプル。
ファイルを一つ一つ処理するタスクで、ファイル数が多くてコマンドラインでエラーが出る場合や xargs では挙動が変わっちゃって対処できない場合に。
雛形:
#!/usr/bin/perl use strict; use warnings; my $dir = shift @ARGV; opendir(my $dh, $dir) or die; my @fns = grep {/.txt$/} readdir($dh); close($dh); foreach my $fn (@fns) { open(my $fh, "<", "$dir/$fn") or die; while (<$fh>) { print "$fn> $_"; } close($fh); }
この記事に言及しているこのブログ内の記事