>Вообщем просто ооочень срочно нужно написать скрипт на перле,а я пока не
>очень в нем,помогите плз мне!!!
>
>Вот в чём суть проблемы: есть текстовый документ, в котором с каждой
>новой строки записаны домены. А задача состоит вот в чём:
>с помощью скрипта опросить каждый домен с этого текстового файла
>на наличие 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
|
Вариант для распечатки
Программирование под UNIX (Public)
(ok) on 19-Мрт-07, 19:57 
