На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Внимательно изучите правила раздела перед созданием темы
0. ПРИЛАГАЙТЕ СВОИ СКРИПТЫ.
1. Прежде чем создать топик, используйте поиск. Возможно это уже обсуждалось.
2. В топике указывайте ОС, режим работы скрипта (CLI|CGI). Очень желателен вывод лог-файлов и того места, куда у вас назначен вывод данных (STDOUT|STDERR)
3. Помните: вы знаете что вы хотите, а форумчане - нет. Поэтому следуйте простому правилу: грамотный развернутый вопрос - грамотный развернутый ответ.
Модераторы: ANDLL
  
    > Вызов скрипта из скрипта Perl
      Доброго времени суток.
      Люди добрые подскажите,
      как надо сделать, есть скрипт main.pl и interface.pl, вызвать в main.pl скрипт interface.pl с аргументами $arg1 $arg2 и вернуть значения отработки interface.pl в main.pl. ?? корячился с system и exec чот не получается
        main.pl

        ExpandedWrap disabled
          #!/usr/bin/perl
          $Arg1 = "STRING1";
          $Arg2 = "STRING2";
          open(FD,"|".(($^O =~ /MSWin/)? "perl ":"")."interface.pl \"$Arg1\" \"$Arg2\"") || die "Shit!";
          print join("",<FD>);
          close(FD);


        interface.pl

        ExpandedWrap disabled
          #!/usr/bin/perl
          map {print "$_\n"} @ARGV;


        Добавлено
        Хотя проверку ОС можно смело пропустить.
          JoeUser большое спасибо!!! :good: А то я уже через файл начал городить...
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0168 ]   [ 15 queries used ]   [ Generated: 28.03.24, 09:17 GMT ]