Если числа действительно важны, вы можете прочитать их специально после имени файла, при этом сообщается об ошибках об отсутствующих файлах:
my @nums = 1 .. 1500; # or whatever the highest is
for my $num (@nums) {
my $file = "Temp$num.csv";
unless (-e $file) {
warn "Missing file: $file";
next;
}
...
# proceed as normal
}
Если вам нужно количество файлов, вы можете просто использовать свои old glob:
my @files = <Temp*.csv>;
my $count = @files; # get the size of the array
my @nums = 1 .. $count;
С другой стороны, если вы управляете процессом, который печатает файлы, вы можете выбрать формат, который будет автоматически сортироваться, например:
temp00001.csv
temp00002.csv
temp00003.csv
temp00004.csv
...
temp00101.csv