【Perl】指定ディレクトリ内のファイルを更新時間順にソート
2015-12-02-1
[Programming][Perl]
いまさらな Perl メモ。
指定ディレクトリ中のファイルを更新時間順にソートしたり、一番新しいファイルを選んだりする処理。
ref.
- 【Perl】指定ディレクトリ中の条件にあうファイルだけ取得[2013-01-17-2]
指定ディレクトリ中のファイルを更新時間順にソートしたり、一番新しいファイルを選んだりする処理。
#!/usr/bin/env perl use strict; use warnings; my $input_dir = shift @ARGV; opendir(my $dh, $input_dir) or die; my @files = sort {$a->{mtime} <=> $b->{mtime}} map { {filename => $_, mtime => -M "$input_dir/$_"} } grep {!/^\./} readdir($dh); close($dh); print "newest: $files[0]{filename}\n"; print map {"$_->{filename} $_->{mtime}\n"} @files;
ref.
- 【Perl】指定ディレクトリ中の条件にあうファイルだけ取得[2013-01-17-2]
この記事に言及しているこのブログ内の記事