нужно в perl выполнить команду shell и вернуть ее вывод, так вот как сделать?
так:

$str = `/bin/shellcommand`;

или так:

open( FILE, "/bin/shellcommand |" );
while( <FILE> ) { $str = $str . $_; }
close( FILE );

в чем принципиальная разница? что лучше использовать?

• RE: perl: вернуть вывод команды из shell,Boytronic, 10:33 , 28-Ноя-02

>нужно в perl выполнить команду shell и вернуть ее вывод, так вот
>как сделать?
>так:
>
>$str = `/bin/shellcommand`;
>
>или так:
>
>open( FILE, "/bin/shellcommand |" );
>while( <FILE> ) { $str = $str . $_; }
>close( FILE );
>
>в чем принципиальная разница? что лучше использовать?
если не ошибаюсь то вполне работоспособен вариант
if (!system('ping -c2 $ip | grep "100% lost "'))
     {
do it now
}