Как получить данные из внешней программы

[/IE][A]

Привет молодцы! (ударение на первый слог

Подскажите как можно получить выходные данные из прораммы которая запускается из скрипта, т.е. в скрипте я запускаю wget и мне нужно его остановить когда появится любая ошибка (301 302 404 500 401 и т.д) если 200 ОК то двигаем дальше.

Пробовал так:
$temp=`wget $durl`;
if ($temp eq "404 Not Found"){
   print"Error";
   exit();
}
else{
   print"OK"
}

[NeoNox]

Посмотри что в твоем случае содержит $temp

if ($temp =~ m/200 OK/){
print "Ok!";
}else{
print "Bad news...";
}

[/IE][A]

Пробовал.

temp ничего не содержит.

[NeoNox]

Что выдает print $temp?

[/IE][A]

temp как бы чист, но в общем скирп работает.

я писал m/"..."/ (в кавычках).

Благодарствую.

[mike]

А так?

Код: [Выделить]


$temp=`wget $durl 2>&1`;
if ($temp =~ m/200 OK/){
   print"OK"
} else {
   print"Error"
}


[/IE][A]

теперь другой вопрос.
 если файл уже сущействует wget  так и пишет (локализированная)
файл уже, существует, получение не производтся.

если добавляю условие
if ($temp =~ m/200 OK/){
print "Ok!";
}
elsif($temp =~ m/уже существует/){
print "Ok!";
}
else{
print "Bad news...";
}

скрипт выводит Bad news

[/IE][A]

А так?
$temp=`wget $durl 2>&1`;
if ($temp =~ m/200 OK/){
   print"OK"
} else {
   print"Error"
}

print $temp все равно ничего не выводит

[mike]

/IE][A:
скрипт выводит Bad news

Проверь кодировку, в которой выдает сообщение wget и в которой написана строка для сравнения.

[Chs]

perldoc perlipc

[/IE][A]

Проверь кодировку, в которой выдает сообщение wget и в которой написана строка для сравнения.

Я так понимаю что wget должен выводит в KOI8-r.
Строка для сообщения написана тоже в КОИ.

А если wget выводит в другой кодировке, то как узнать в какой именно.

[NeoNox]

/IE][A:
Я так понимаю что wget должен выводит в KOI8-r.

Ничего он не должен.
набери wget http://www.webscript.ru и посмотри на ответ

[/IE][A]

...посмотри на ответ

Если я тебя правильно понял, то wget выдает:
Proxy request sent, awaiting response... 200 OK

А если неправильно, то какой ответ ты имел ввиду?

[NeoNox]

#!/usr/bin/perl
use strict;

my $durl = "http://www.webscript.ru";

my $temp=`wget $durl 2>&1`;
if ($temp =~ m/200 OK/){
print"OK";
} else {
print"Error"
}

open FH, \'./index.html\';
print ;
close FH;

Что тебе еще непонятно?

[/IE][A]

Все пучком, работает, вот только теперь появилась трабла:
wget перестал выводит индикатор загрузки в real-time, выводит всю инфу уже после загрузки файла.
Можно это как то исправить.