Отправляет email-рассылки с помощью сервиса Sendsay

Perl - подпишись и учись!

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 5.083 RSS
←   Январь 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://perl.dp.ua
Открыта: 03-12-2000

Автор
Nick

Статистика

5.083 подписчиков
0 за неделю
←   Все выпуски   →

Perl - подпишись и учись!


Служба Рассылок Subscribe.Ru проекта Citycat.Ru

Привет всем!

Это восьмая рассылка моего сайта http://perl.bos.ru
Я благодарен тем немногим(уже больше, чем в первый раз, но надеюсь, что будет больше), которые нашли в себе смелость и подписались на мою рассылку.
Здесь я буду вам рассказывать способы программирования на языке Perl, а также всё, что с ним связано, да и вообще о сайтостроительстве.

Сегодня продолжим разговор о взаимодействии вашего сервера и какого либо ещё(FTP, Почтового и т.д. серверов).
Вот как можно получить сообщения электонной почты с сервера: 
      $pop = Net::POP3->new($mail_server)
    or die "Can't open connection to $mail_server : $!\n";
      $pop->login($username, $password)
    or die "Can't authenticate: $!\n";
      $messages = $pop->list
    or die "Can't get list of undeleted messages: $!\n";
      foreach $msgid (keys %$messages) {
      $message = $pop->get($msgid);
      unless (defined $message) {
        warn "Couldn't fetch$msgid from server: $!\n";
        next;
    }
    # $message - ссылка на массив строк
      $pop->delete($msgid);
}
В принципе, основные вещи по этим вопросам я рассказал, но в завершении хочу привести ещё два интересных отрывка.
Имитация сеанса TelNet: 
  use Net::Telnet;

   $t = Net::Telnet->new( Timeout => 10,
                          Prompt  => '/%/',
                          Host    => $hostname );

   $t->login($username, $password);
   @files = $t->cmd("ls");
   $t->print("top");
   (undef, $process_string) = $t->waitfor('/\d+ processes/');
   $t->close;
Проверка удалённого компьютера(по просьбе подписчика Антона Залуского): 
  use Net::Ping;

  $p = Net::Ping->new()
      or die "Can't create new ping object: $!\n";
  print "$host is alive" if $p->ping($host);
  $p->close;

От Партнёра:

Подробнее Изучаем Perl
Рэндал Л. Шварц, Том Кристиансен (1999)

В книге излагаются основы программирования на языке Perl, который стал стандартным для большинства UNIX - платформ и все чаще используется в среде Windows. В США книга стала бестселлером и приобрела статус учебника, предназначенного как для занятий с преподавателем, так и для самостоятельной работы... [подробнее] 

                                                That's all, Folks!
                                                                Nick
P.s Мой сайт находится в состоянии не только разработки и обновления, но и в состоянии раскрутки, по-этому, если вас не затруднит, посоветуйте мой сайт друзьям.
Также, вероятно, что у всех вас есть сайты, по-этому предлагаю обменяться ссылками.
Если у вас есть какие-либо вопросы и предложения, то направляйте их на мой e-mail: nicky@nm.ru

Хороших скриптов!

Tenet Banner System
http://subscribe.ru/
E-mail: ask@subscribe.ru
Поиск
В избранное