>
> Добрый день, All
>
> Как сделать такую штуку ? Я написал небольшой скриптик на
>Perl для обрезания логов Apache. Понятно, что он запускается по
>cron и дергает apachectl. Все, вроде хорошо, но беда с
>выводом apachectl.
> Если работать просто и тупо, то его сообщения валятся в
>переменную и скрипт радостно сообщает мне, что мол нечисловая переменная. (Я
>пытаюсь анализировать код возврата apachectl)
perldoc -f int
> Если же перенаправить вывод в /dev/null ,то я вообще ничего
>не получаю и скрипт не менее радостно говорит, что переменная пуста.
>
>
> Короче говоря как из Perl скрипта запустить некую программу, отбросить
>ее текстовый вывод и получить код возврата ?
@args = ("command", "arg1", "arg2");
system(@args) == 0
or die "system @args failed: $?"
You can check all the failure possibilities by
inspecting "$?" like this:
$exit_value = $? >> 8;
$signal_num = $? & 127;
$dumped_core = $? & 128;
perldoc -f system
короче! курить доки...
Вариант для распечатки
Программирование под UNIX (Public)
on
10-Окт-02, 12:27 (MSK)
