Если Вы действительно хотите использовать свой тип баз данных ENUM:
Удачи!
В вашем файле Perl
my @files = <*.aspx>;
for $file (@files) {
# do something.
}
<*. Aspx>
называется glob .
вы можете передать эти файлы в Perl с подстановочным знаком
в вашем скрипте
foreach (@ARGV){
print "file: $_\n";
# open your file here...
#..do something
# close your file
}
в командной строке
$ perl myscript.pl *.aspx
Если вы используете Linux, вы можете попробовать что-то вроде этого.
for i in `ls /tmp/*.aspx`; do perl scriptname.pl $i; done
Вы можете использовать glob
явно, чтобы использовать параметры оболочки вне зависимости от поведения оболочки.
for my $file ( map {glob($_)} @ARGV ) {
print $file, "\n";
};
Возможно, вам потребуется контролировать возможность дублирования имени файла с более чем одним расширенным параметром.
Вы также можете передать путь, по которому у вас есть файлы aspx, и читать их один за другим.
#!/usr/bin/perl -w
use strict;
my $path = shift;
my @files = split/\n/, `ls *.aspx`;
foreach my $file (@files) {
do something...
}