Статьи Галерея Форум Чат Файлы HowTo Ссылки Поиск
Текущее время: 16 окт 2019, 01:45




Начать новую тему Ответить на тему  [ Сообщений: 5 ] 
Автор Сообщение
 Заголовок сообщения: perl for dummi
СообщениеДобавлено: 23 май 2006, 16:44 
Заглянувший
Аватара пользователя

У нас с: 16.05.2006
Сообщения: 7
Откуда: Минск
как реализовать запуск awk из перл
ну например

print `echo "1 2 3 " | awk '{print $2}'`

по идее должно вывести 2 но не выводит !

Что не так? дайте исправленый пример


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: 23 май 2006, 18:02 
Неотъемлемая часть форума
Аватара пользователя

У нас с: 13.08.2004
Сообщения: 891
Откуда: Минск
Наколькі я ведаю, за запуск знешніх каманд адказваюць функцыі system () ды exec ().

_________________
https://grinchik.com/


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: 23 май 2006, 18:53 
Маньяк
Аватара пользователя

У нас с: 13.02.2004
Сообщения: 162
Откуда: Minsk
sovaby,
perl -e "print `echo \"1 2 3\" | awk '{print $2}'`"

_________________
/born to bash/

[ updated: 2006-02-21 ]

/born to zsh/


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: 23 май 2006, 19:32 
Неотъемлемая часть форума
Аватара пользователя

У нас с: 06.02.2002
Сообщения: 9760
Откуда: Менск
sovaby, бр... не занимайтейсь ерундой такого рода... А то у меня сердце слабое, поюзанное, попрченное алкоголем и никотином...

echo "1 2 3" | perl -e 'print "$1\n" if /\S\s+(\S+)\s+\S+/' - это так, коряво ессно...
правильнее сделать со split

_________________
Опыт растет прямо пропорционально выведенному из строя оборудованию


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: perl for dummi
СообщениеДобавлено: 24 май 2006, 10:05 
Неотъемлемая часть форума

У нас с: 18.01.2004
Сообщения: 732
Откуда: Минск
sovaby писал(а):
как реализовать запуск awk из перл


Задача - запустить что-то из Perl? или реализоваться с помощью чегото то, что вы не знаете как сделать в Perl?
Если второе, то лучше подучить, порыться в доках.
А если превое, то можно, в дополнение к приведённым примерам, ещё и так:

open(AWK,"|awk");
print AWK "1 2 3";
close(AWK);

но только смотри, что бы вместо awk подставлялась правильная программа, без лишних символов, а то можно получить серьёзную дыру в безопасности.


Вернуться к началу
 Не в сети Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 5 ] 


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
[ All resources are available under GNU GPL ] [ Support ] [ Hosted by DataHata | MyCloud.by ] [ Powered by phpBB® Forum Software © phpBB Group ]

LVEE Winter LVEE Rambler's Top100