- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #554 [562]
От : Slava Ivanov 2:5020/400 07 октября 03, 16:58
Кому : Paul Petruk 11 октября 03, 20:59
Тема : Re: текущая директория
-------------------------------------------------------------------------------
From: Slava Ivanov
Paul Petruk пишет:
> Я имел в видy, как присвоить переменной резyльтат процедyры system ().
Вариантов много, но в данном случае удобней всего выполнить команду не
в system(), а в апострофах - `$command`
$command = "dir";
@a = `$command`;
print join "", @a;
Также можно использовать вывод через pipe
$command = "dir";
open (FH, "$command |");
while () {
push @a, $_; # тут делаешь с $_ то, что табе надо
}
close (FH);
print join "", @a;
Hу и наконец, можешь просто перенаправить вывод твоей команды
не на STDOUT, а в файл. И прочитать этот файл.
> Да, и еще. Есть ли в Перле нечто вроде readln () Паскаля ?
>
readline ???
> Paul
>
--- ifmail v.2.15dev5
* Origin: FKT (2:5020/400)