Perl практика



              

Развертывание.


Преобразование аргументов вроде * или /etc/host* - в список имен файлов называется развертыванием (globbing). В PERL подлежащий развертыванию образец заключается в угловые скобки или используется функция glob().

@a = </etc/host*> @a = glob("/etc/host*");

В списочном контексте результатом является список, в скалярном - следущее совпадаущее имя.

while(defined($nextname = </etc/host*&gt)) { print "one of the files is $nextname\n"; }

В аргументе glob производится интерполяция:

if(-d "/usr/etc") { $where = "/usr/etc"; } else { $where = "/etc"; } @files = <$where/*>




Содержание  Назад  Вперед