Что можно сделать с помощью Perl (глава для начинающих)

Perl

Perl

Perl

Perl

Perl Usenet on line

FTP

/SRC/nr.pl telnet hobbiton org vi

#!/usr/local/bin/perl

use Socket;

#$server='mailserver.corvis.ru';

#$server='oberon.rnd.runnet.ru';

$server='news.fido7.ru';

$group='fido7.ru.nethack';

$listfile='list.txt';

$msgfile='msg.txt';

print "NNTP Reader Version 2.0 (c) 2000 Kris Kaspersky\n";

print "Open nf.cfg file...";

if (open(FH,"nr.cfg"))

else

print "Server [$server]:";

$tmp=<>; if (length($tmp)>2)

print "Command (MSG|LIST|EXIT):";

$tmp=<>;

if ($tmp=~/MSG\n/)

getmsg();

if ($tmp=~/LIST\n/)

if ($tmp=~/EXIT\n/)

if (open(FH,">nr.cfg"))

close (FH);

sub getmsg()

print "$group_res\n";

open(FH,">$msgfile");  # Открыть файл сообщений

print FH "$group_res\n";

$cmdcount=0;

$reader=1; # цикл

$msgdone=0; # Сообщений прочитано

while($reader)

print FH $rc;

}

print FH $rc;

$msgdone++;  # Следующее сообщение

print "=$msgdone;\r"; # Протокол на экран

send(NNTP,"NEXT\r\n",0); # Следующее сообщение

$nx=<NNTP>;

$add=1;

while($add)

if (substr($nx,0,1)=~/\./)

}

$nx++;

if ($nx==422) #

close (FH);

if (open(CF,"$msgfile.gz")) # Удалить файл если он уже есть!

open(FG,"|gzip $msgfile"); #

print "Done\n";

close(NNTP);

sub LIST()

print "=$cmdcount\r";

print FH $rc;

}

close (FH);

if (open(CF,"$listfile.gz"))

print "Done\n";

open(FG,"|gzip $listfile");

close(NNTP);

print "<HR>\n";

Запустите созданный файл командой "perl nr.pl". На экране терминала появится следующее:

NNTP Reader Version 2.0 (c) 2000 Kris Kaspersky

Open nf.cfg file...fail

Server [news.fido7.ru]:

Enter news

Command (MSG|LIST|EXIT):MSG

MSG LIST MSG

Group [fido7.ru.nethack]:

Enter

Connecting to news.fido7.ru...ok!

200 ddt.demos.su InterNetNews NNRP server INN 2.3experimental 20-Nov-1998 ready (posting ok).

211 418 26550 26967 fido7.ru.nethack

По окончании процесса в текущей директории будет создан файл "list.txt.gz" (если был запрошен список конференций) или "msg.txt.gz", содержащий текст сообщений. Воспользуйтесь любым ftp-клиентом и выкачайте этот файл на свой локальный компьютер. Распакуйте его архиватором gzip (или совместимым с ним Winzip

Perl ftp

IP

- выдача промежуточных результатов, анализ ситуации и ввод очередной последовательности команд.

, не требующие предварительной компиляции программы перед ее выполнением. Интерпретаторы позволяют создавать мобильный код, одинаково хорошо работающий под управлением любой серверной платформы, разумеется, при условии, что для нее имеется реализации требуемого интерпретатора, и он установлен в системе.

Perl Practical Extraction and Reporting Language

Perl Usenet

larry.gif

Perl Gloria". К этому его побудило несовершенство существующего инструментария разработки средств управления и мониторинга многоуровневых сетей. Ларри испробовал все - и sh, и awk, и sed, и tr, но их возможностей не хватало для элегантного выполнения поставленной задачи и в созданные скрипты постоянно вносить приходилось изменения.

BASIC Lisp, ассоциативные массивы пришли из awk, а синтаксис стал неотличим от Си.

Gloria Pearl Perl

Perl

Perl Internet www.perl.org

Perl Изначально Perl Perl Perl Perl cookbook

Perl TCP IP