package Printer;
use strict;
use warnings;
sub print_something {
print "1234";
}
1;
----8<--------8<----
#!/usr/bin/env perl
use strict;
use warnings;
use Printer;
Printer::print_something();
2 октября 2012 г., 18:39 пользователь Artem Zhuravlev
<[email protected]> написал:
> Подскажите возможно есть какой то более простой способ повторно вызывать
> сценарий?
>
>
> sub preload {
> delete $INC{join("/", split("::", $_[0])) . ".pm"};
> eval "require $_[0]";
> }
>
> preload("engine::mods::web::Main");
>
> сам Main.pm
>
> #!/usr/bin/perl -w
> use strict;
> print "1234";
> 1;
>
>
>
>
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
>
--
С уважением, Александр
Личный блог: http://eax.me/
Мой форум: http://it-talk.org/
Мой Twitter: http://twitter.com/afiskon
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
