URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 6274
[ Назад ]

Исходное сообщение
"Помогите написать пожалуйста скрипт на perl!!!"
Отправлено anatolik.kiev , 19-Мрт-07 19:57

Вообщем просто ооочень срочно нужно написать скрипт на перле,а я пока не очень в нем,помогите плз мне!!!
Вот в чём суть проблемы: есть текстовый документ, в котором с каждой новой строки записаны домены. А задача состоит вот в чём: с помощью скрипта опросить каждый домен с этого текстового файла на наличие mx записи(одной) и сравнить её с той, которая должна быть. Если она несоответствует,то вывести её в текстовый файл. К примеру: опросить домен на наличие mx записи можно такой командой: host -t mx domain.my
Всем спасибо большое!

Содержание

Помогите написать пожалуйста скрипт на perl!!!,ViRuZzz, 09:14 , 20-Мрт-07
Помогите написать пожалуйста скрипт на perl!!!,allez, 09:51 , 20-Мрт-07
- Помогите написать пожалуйста скрипт на perl!!!,Sergey, 21:38 , 21-Мрт-07
  - Помогите написать пожалуйста скрипт на perl!!!,allez, 12:27 , 22-Мрт-07

Сообщения в этом обсуждении

"Помогите написать пожалуйста скрипт на perl!!!"
Отправлено ViRuZzz , 20-Мрт-07 09:14

>Вообщем просто ооочень срочно нужно написать скрипт на перле,а я пока не
>очень в нем,помогите плз мне!!!
>
>Вот в чём суть проблемы: есть текстовый документ, в котором с каждой
>новой строки  записаны домены. А задача состоит вот в чём:
>с помощью скрипта  опросить каждый домен с этого текстового файла
>на наличие mx записи(одной) и сравнить её с той, которая должна
>быть. Если она несоответствует,то вывести её в текстовый файл. К примеру:
>опросить домен на наличие mx записи  можно такой командой: host
>-t mx domain.my
>
>Всем спасибо большое!
как понимать: и сравнить её с той, которая должна быть.
какая должна быть?

"Помогите написать пожалуйста скрипт на perl!!!"
Отправлено allez , 20-Мрт-07 09:51

>Вообщем просто ооочень срочно нужно написать скрипт на перле,а я пока не
>очень в нем,помогите плз мне!!!
>
>Вот в чём суть проблемы: есть текстовый документ, в котором с каждой
>новой строки  записаны домены. А задача состоит вот в чём:
>с помощью скрипта  опросить каждый домен с этого текстового файла
>на наличие mx записи(одной) и сравнить её с той, которая должна
>быть. Если она несоответствует,то вывести её в текстовый файл. К примеру:
>опросить домен на наличие mx записи  можно такой командой: host
>-t mx domain.my
>
>Всем спасибо большое!

Если все так срочно, а на Perl не можете - пишите на том, что знаете, например, на shell:
#!/bin/shcat domains.txt | while read DOMAIN;
do
  MAILER=`host -t mx $DOMAIN | awk '{print $NR}'`
  RIGHT_MAILER=... # Запись, которая "должна быть".
                   # Поскольку вы не указали, откуда берется это значение,
                   # присваивать его переменной будете сами ;-)
  if [ $MAILER != $RIGHT_MAILER ];
  then
    echo $DOMAIN >> bad_domains.txt
  fi
done

"Помогите написать пожалуйста скрипт на perl!!!"
Отправлено Sergey , 21-Мрт-07 21:38

host -t mx $DOMAIN
команда может возвратить несколько строк

"Помогите написать пожалуйста скрипт на perl!!!"
Отправлено allez , 22-Мрт-07 12:27

>host -t mx $DOMAIN
>
>команда может возвратить несколько строк
Может. Но об этом должна болеть голова автора темы. ;-)