Возможно, что уже где-то на форуме это было, но не могу четко сформулирвоать запрос, ну и соответственно найти, может кто знает...Необходимо в скрипте подключить все модуле, находящиеся в текущем каталоге, причем, естественно, не перечислением :)
конструкция вида: "use $i" не работает, но видимо и не должна, а то было бы так удобно, считать все pm-ки и в цикле подключить.
В общем есть ли у кого какие сообращения на этот счет?
#!/usr/bin/perl
use lib ".";
BEGIN{
map require $_, grep /^.+\.pm$/,$_ for <*>;
}Попробуте так
>Возможно, что уже где-то на форуме это было, но не могу четко
>сформулирвоать запрос, ну и соответственно найти, может кто знает...
>
>Необходимо в скрипте подключить все модуле, находящиеся в текущем каталоге, причем, естественно,
>не перечислением :)
>
>конструкция вида: "use $i" не работает, но видимо и не должна, а
>то было бы так удобно, считать все pm-ки и в цикле
>подключить.
>
>В общем есть ли у кого какие сообращения на этот счет?
smells like security hole