| ← Январь 2001 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|
8
|
9
|
10
|
11
|
12
|
14
|
|
|
15
|
16
|
17
|
18
|
19
|
21
|
|
|
22
|
23
|
24
|
25
|
26
|
28
|
|
|
29
|
30
|
31
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://perl.dp.ua
Открыта:
03-12-2000
Статистика
0 за неделю
Perl - подпишись и учись!
Привет всем!
Это седьмая рассылка моего сайта http://perl.bos.ru
Я благодарен тем немногим(уже больше, чем в первый раз, но надеюсь, что будет больше), которые нашли
в себе смелость и подписались на мою рассылку.
Здесь я буду вам рассказывать способы программирования на языке Perl, а также
всё, что с ним связано, да и вообще о сайтостроительстве.
Сегодня поговорим о взаимодействии вашего сервера и какого либо ещё(FTP,
Почтового и т.д. серверов),
например, вот как можно работать с FTP-сервером(надеюсь этот набор команд
объяснять не нужно):
use Net::FTP;
$ftp = Net::FTP->new("ftp.host.com") or die "Can't connect: $@\n";
$ftp->login($username, $password) or die "Couldn't login\n";
$ftp->cwd($directory) or die "Couldn't change directory\n";
$ftp->get($filename) or die "Couldn't get $filename\n";
$ftp->put($filename) or die "Couldn't put $filename\n";
В каком-то из выпусков я уже рассказывал как отправить почту, если вы знаете
путь к почтовой программе на вашем сервере. А вот как это делается при
помощи соответствующего модуля:
use Mail::Mailer;
$mailer = Mail::Mailer->new();
$mailer->open({ From => $from_address, #от кого
To => $to_address, #кому
Subject => $subject, #Тема сообщения
})
or die "Can't open: $!\n";
print $mailer $body; #$body - текст сообщения
$mailer->close();
С этим всё понятно. А не задавались ли вы вопросом:"Как сервер
www.talk.ru(боюсь ошибиться) направляет сообщения в соответствующие эхо
конференции?". Так вот это тоже не так уж сложно:
use Net::NNTP;
$server = Net::NNTP->new("news.host.dom")
or die "Can't connect to news server: $@\n";
($narticles, $first, $last, $name) = $server->group( "misc.test" )
or die "Can't select misc.test\n";
$headers = $server->head($first)
or die "Can't get headers from article $first in $name\n";
$bodytext = $server->body($first)
or die "Can't get body from article $first in $name\n";
$article = $server->article($first)
or die "Can't get article $first from $name\n";
$server->postok()
or warn "Server didn't tell me I could post.\n";
$server->post( [ @lines ] )
or die "Can't post:$!\n";
От Партнёра:
CGI / Perl. Создание программ для Web (+ CD - ROM)
К. Пэтчетт, М. Райт
(1999)
Изложены профессиональные приемы CGI - задач, подробно описаны новые программы и подпрограммы, методы обработки ошибок и передачи параметров, а также некоторые детали программирования, необходимые при инсталляции и использовании CGI - программ на Web - узле... [подробнее]
That's all, Folks!
Nick
P.s Мой сайт находится в состоянии не только разработки и обновления, но и в состоянии раскрутки, по-этому, если вас не затруднит, посоветуйте мой сайт друзьям.
Также, вероятно, что у всех вас есть сайты, по-этому предлагаю обменяться ссылками.
Если у вас есть какие-либо вопросы и предложения, то направляйте их на мой e-mail: nicky@nm.ru
Хороших скриптов!
|
http://subscribe.ru/
E-mail: ask@subscribe.ru |
|
| В избранное | ||
