Список файлов по маске
Получить список скажем всех файлов с расширением .jpg
#!/usr/bin/perl
foreach my $file (`ls *.jpg`) {
print $file;
}
Маловероятно, но если кроме этого вам не нужно больше никаких действий то попробуйте воспользоваться лаконичной записью
#!/usr/bin/perl
foreach (`ls *.jpg`) {
print;
}
September 22nd, 2007 at 6:25 am
А как же функция glob? Зачем делать системный вызов если в инструментарии имеет функционал для решения поставленой задачи.
September 23rd, 2007 at 8:43 am
Еще один способ, альтернатива.