Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Передать procmail 
:(
    Опции темы
evya
Дата 8.11.2013, 08:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 257
Регистрация: 7.3.2009

Репутация: нет
Всего: нет



Подскажите

есть Perl скрипт который обрабатывает почту.

Сриптом сформированое письмо MIME 

Далее нужно передать Procmailrc   $HOME/Procmailrc

 который бы сделал с письмом все то что надо.

как заставить Perl,  выполнить Linux код 
PM MAIL   Вверх
arto
Дата 8.11.2013, 08:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



perldoc -f system
perldoc -f open
PM MAIL ICQ   Вверх
Bulat
Дата 11.11.2013, 15:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


татарский Нео
***


Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57



Код

perl -e '$res = `netstat`; print $res'


Код

.....
my $variable = `your_cmd`;
.....



--------------------
менеджер по кодеврайтингу  smile 
PM MAIL WWW   Вверх
noize
Дата 12.11.2013, 22:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


5.18.2
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 10.7.2010
Где: СПб

Репутация: 3
Всего: 3



Цитата(Bulat @ 11.11.2013,  16:16)
Код

perl -e '$res = `netstat`; print $res'


Код

.....
my $variable = `your_cmd`;
.....

через обратные апострофы `` вызывать системные команды - большой моветон: в коде легко не заметить. Лучше использовать qx: 
Код

my $var = qx/sys_cmd/;

PM MAIL   Вверх
Bulat
Дата 13.11.2013, 05:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


татарский Нео
***


Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57



Цитата(noize @  12.11.2013,  22:54 Найти цитируемый пост)
через обратные апострофы `` вызывать системные команды - большой моветон: в коде легко не заметить. Лучше использовать qx: 

бред......... TMTOWTDI

Лучшее - враг хорошего

Добавлено через 3 минуты и 43 секунды
А еще вдогоночку, принцип KISS - keep it simple, stupid.

Чем проще - тем лучше  smile 


--------------------
менеджер по кодеврайтингу  smile 
PM MAIL WWW   Вверх
noize
Дата 13.11.2013, 08:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


5.18.2
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 10.7.2010
Где: СПб

Репутация: 3
Всего: 3



Цитата

бред......... TMTOWTDI

бред - это использовать устаревшие и неочевидные конструкции в коде когда есть более понятные и наглядные операторы. Обратные апострофы - это наследие Unix, а qx - родной оператор perl. Когда у вас скрипт/модуль на 100500 строк очень легко визуально спутать вызов системной команды через `` с присваиванием некоего тесктового значения переменной.
PM MAIL   Вверх
Bulat
Дата 13.11.2013, 10:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


татарский Нео
***


Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57



Цитата(noize @  13.11.2013,  08:45 Найти цитируемый пост)
 Когда у вас скрипт/модуль на 100500 строк


Хотелось бы мне посмотреть на скрип/модуль в 100500 строк. Лично я сколько не работал, более 5000 строк в модуле не видел. И то редкий модуль. 

Цитата(noize @  13.11.2013,  08:45 Найти цитируемый пост)
очень легко визуально спутать

Вы сейчас пытаетесь говорить от имени всех программистов пишущих на перл или только про себя(!).

Цитата(noize @  13.11.2013,  08:45 Найти цитируемый пост)
бред - это использовать устаревшие и неочевидные конструкции

бред... Если какая-то синтаксическая конструкция используется реже, чем другая - это еще не повод говорить, что она неочевидная, устаревшая и т.п.

Цитата(noize @  13.11.2013,  08:45 Найти цитируемый пост)
Обратные апострофы - это наследие Unix

Хеши в перле это наследие awk, часть функций это наследие от С. Но наверняка многие программисты perl не брезгуют использованием ни хешей, ни функций, ни прочих наследий...


--------------------
менеджер по кодеврайтингу  smile 
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0470 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.