Сортировка файлов естественно с помощью Sort::Key::Natural natsort
.
Ниже будут автоматически сортироваться файлы, отделяя альфа-и числовые части имени для соответствующей логики сортировки.
use strict;
use warnings;
use Sort::Key::Natural qw(natsort);
for my $file ( natsort ) {
# this part appends the required data to a seperate file and works fine
}
Следующие поддельные данные должны продемонстрировать этот модуль в действии:
use strict;
use warnings;
use Sort::Key::Natural qw(natsort);
print natsort ;
__DATA__
Temp100.csv
Temp8.csv
Temp20.csv
Temp1.csv
Temp7.csv
Выходы:
Temp1.csv
Temp7.csv
Temp8.csv
Temp20.csv
Temp100.csv