Программирование > Perl

open2 для Win

<< < (3/3)

vladsu:
А догадаться экранировать кавычки?


--- Код: ---
#!/usr/local/bin/perl -w

use strict;

my $make;

open(BIN, "/tmp/3.bin");

$make .= \'"\';
while ( ) {
   s/(\'|")/\\\\$1/g;
   $make .= $_;
}
$make .= \'"\';

close(BIN);
my $feedback = qx(/tmp/2.pl $make);
print $feedback,"\\n";

--- Конец кода ---



--- Код: ---
use strict;

$ARGV[0] =~ s/\\\\(\'|")/$1/g;
print length $ARGV[0];

--- Конец кода ---

xmolex:
Понимаете, дело в том, что мне нужно передать поток так, чтобы его потом не нужно было обрабатывать вторым скриптом.
Вообще, задача стоит следующая:
Есть скрипт человека. Есть мой скрипт. Веб сервер запускает мой скрипт, мой скрипт ловит переменные окружения. Мой скрипт получает данные от браузера (GET или POST). Мой скрипт переводит данные в POST, добавляя свои данные. Потом весь этот сформированный пакет я посылаю скрипту человека, не забывая подправить переменные окружения под метод POST. Тоесть я своим скриптом запускаю скрипт человека и во входной поток посылаю мой сформированный POST пакет, а человек уже работает с данными, как буд-то получил данные методом POST.

P.S. в моем файле кавычек не было, он так на переход строки среагировал.

Навигация

[0] Главная страница сообщений

[*] Предыдущая страница