我有一批年度公司文件,每个文件都使用以下格式命名:公司标识符、两位数年份和一组随机数字(例如,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###