запуск одного perl-скрипта из другого

а почему должно? Используй ``.

do EXPR Uses the value of EXPR as a filename and executes the contents of the file as a Perl script.

проще говоря ты пытаешься вызвать файл 2.pl\ 123, а такого ясен пень у тебя нет.

а через do параметр никак что ли передать нельзя?

perldoc -f do

сам почитай, раз такой умный.

использование system крайне нежелательно, дабы передаваемые параметры не пробегали в логах

тогда exec - твой выбор.

ну кодируй их
в чайлде раскодируй
хуле

Засунуть один скрипт в другой в виде функции нэ?

первый скрипт будет что-то вроде

use CGI;

my $Q = new CGI;

my $event = $Q->param('event');

...

затем запускать скрипт с название ивента и передать ему строку с остальными параметрами..

А что не так получается, что-то я с утра пораньше туплю.

ну просто нехорошо каждый раз дописывать новую функцию в один скрипт.. проще в папке создавать новый файл, который при необходимости будет запускаться из инициализирующего скрипта.. ну да ладно, решили оставить exec и не париться.. логи все равно только руту доступны, так что ничего страшного..

Ну сделай модуль тогда, раз нехорошо. Ж)

В perldoc расписано, как, я даже учебные делал и они даже запускались.

попробую.. а можно ли подключая модуль использовать переменную в качестве названия?

Для use не помню, а для require точно можно.

через require я пытался, но там нужно указывать имя_пакета::имя_функции() для запуска.. а имя_пакета у меня в переменной, там такое не прокатило.. если б сделать use $module_name, тогда можно было б просто вызвать функцию оттуда..

# Загружает файл, заданный выражением use EXPR;

вроде нашел где-то.. попробую)

всем спасибо)

не, не хочет use работать с переменной.. придется через system или exec вызывать все таки..

# cat > T.pm
package T;
sub t { shift && print «@_» }
1;
^D
# perl -le '$a = shift; require «$a.pm»; $a->t(@ARGV)' «T» test string
test string
#

В первом:
use Module qw(param1 param2);

Во втором:
package Module;
sub import { print @_; }

А головой подумать?

#!/usr/bin/perl

@ARGV = ( "123" );
do "2.pl";