ディレクトリから類似したファイル名で文書を読む

Question

私は会社の識別子、2桁の年、ランダムな数字のセット（例：00000217-12-00010.txt ）。私は、毎年の提出書類の内容を、前年度に同じ会社から提出された提出書類と比較したいと思います（例えば、000002178-13-00010.txtと000002178-12-00005.txt）。各ファイルをループすると、前の年のファイルごとにファイルを識別できるので、両方のドキュメントを別々の文字列として読み取ることができますか？

use strict ; 
use warnings ; 
use autodie ; 
use File::Find ; 

### BEGIN BY READING IN EACH FILE ONE BY ONE. ### 
################## LOOP BEGIN ################## 
# Process every file with a `txt` file type 

my $parent = "D:/Cleaned 10Ks" ; 
my ($par_dir, $sub_dir); 
opendir($par_dir, $parent); 

while (my $sub_folders = readdir($par_dir)) { 
next if ($sub_folders =~ /^..?$/); # skip . and .. 
my $path = $parent . '/' . $sub_folders; 
next unless (-d $path); # skip anything that isn't a directory 
chdir($path) or die "Cant chdir to $path $!"; 

for my $filename (grep -f, glob('*')) { 
#### FIND THE PRIOR YEAR'S CORRESPONDING FILING AND READ BOTH IN AS STRINGS### 

Answer 1

解析コンポーネントのファイル名、-に分割することで言うと、あなたは1年間の削減と名前を再構築することができます。問題は、日付です。年が00の場合、1を減算することはできません。適切な方法は日付のモジュールを使用することですが、00は手動で行うことができる唯一のケースです。残りはファイル間で異なるため

my ($comp_id, $year) = split '-', $filename; 

my $prev_year = ($year ne '00') ? $year - 1 : 99; 

my $prev_year_base = join '-', $comp_id, $year; 

my ($prev_year_file) = glob "$prev_year_base*"; 

のみ最初の2つのフィールドは、splitから求められます。昨年のファイル名は、これら2つのコンポーネントを一意にするために、これらのコンポーネントをグロブすることによって完成されます。同じ方法で始まる名前の他のエントリがある場合は、globからの戻り値を処理する必要があります。 globはリスト（ここでは1つの要素）を返すので、その（sole）ファイル名の周りに()が必要です。