LINUX.ORG.RU

Простой вопрос по перл


0

0

Как получить результат выполнения внешней команды в перл? system("ls -l"); и чтоб результат я получил в переменной, предположим, $rez? Извините за дурацкий вопрос


Ответ на: комментарий от anonymous

так не получается:
cat dsf
#!/usr/bin/perl
$t=system("ls");
print "t=".$t."\n";

./dsf
check.log check.pl check_right.pl ch.pl compare.pl con.pl dsf f1 f2 PRIOR sites.txt test.pl
t=0

Только что придумал:
#!/usr/bin/perl
open FILE, 'ls|';
while (<FILE>)
{
print '$_='.$_;
}

Но может у кого есть попроще??

Login
() автор топика
Ответ на: комментарий от anonymous

Я не знаю, почему у меня не получается. Глянь мой скрипт и скажи что не так.

/usr/bin/perl -v

This is perl, v5.6.1 built for i386-linux

Login
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.