古い記事
ランダムジャンプ
新しい記事
いまさらな Perl メモ。
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);
}