Из Bash в Perl

Модератор: Модераторы разделов

Дениска
Сообщения: 8
ОС: Fedora 7

Из Bash в Perl

Сообщение Дениска »

в perl есть такая фигня
my $list;
system("/sbin/iptables-save | grep 'A PREROUTING -d $ip'");
как мне затащить результат в переменную perl $list?

никак не соображу, чтобы не через заднее место:(
Спасибо сказали:
arto
Сообщения: 7

Re: Из Bash в Perl

Сообщение arto »

Дениска писал(а):
18.07.2007 10:05
в perl есть такая фигня
my $list;
system("/sbin/iptables-save | grep 'A PREROUTING -d $ip'");
как мне затащить результат в переменную perl $list?

никак не соображу, чтобы не через заднее место:(


perldoc -f open
Спасибо сказали:
Аватара пользователя
sash-kan
Администратор
Сообщения: 13939
Статус: oel ngati kameie
ОС: GNU

Re: Из Bash в Perl

Сообщение sash-kan »

доп. чтение — «Кристиансен, Торкингтон „Perl. Сборник рецептов“» рецепт 16.4
Писать безграмотно - значит посягать на время людей, к которым мы адресуемся, а потому совершенно недопустимо в правильно организованном обществе. © Щерба Л. В., 1957
при сбоях форума см.блог
Спасибо сказали:
Аватара пользователя
Portnov
Модератор
Сообщения: 1786
Статус: Матёрый линуксоид
ОС: Debian testing/unstable

Re: Из Bash в Perl

Сообщение Portnov »

а чо так сложно-то все?
my $list = `/sbin/iptables-save | grep 'A PREROUTING -d $ip'`;
чем не катит?
Работа: Ubuntu 9.10
Дом: Debian testing/unstable и на всякий случай winxp в virtualbox.
Для разнообразия: моя домашняя страница -http://iportnov.ru
Спасибо сказали:
Аватара пользователя
sash-kan
Администратор
Сообщения: 13939
Статус: oel ngati kameie
ОС: GNU

Re: Из Bash в Perl

Сообщение sash-kan »

Portnov, ну вот, спалил всю педагогическую задумку :)
товарищ, может быть, книжки бы почитал (в том самом совете №16.4 обратные кавычки, кстати, упоминаются).
Писать безграмотно - значит посягать на время людей, к которым мы адресуемся, а потому совершенно недопустимо в правильно организованном обществе. © Щерба Л. В., 1957
при сбоях форума см.блог
Спасибо сказали:
Дениска
Сообщения: 8
ОС: Fedora 7

Re: Из Bash в Perl

Сообщение Дениска »

sash-kan, я начитался:) Отличная книжка, спасибо, надо будет найти в печатном виде. А то с монитора неудобно читать...
Свою задачу решил самостоятельно, книжка помогла:)
Спасибо сказали: