→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
PERL курс валют НБУ 
Автор Сообщение
Начинающий
Аватара пользователя

Регистрация: 30.06.2008
Сообщения: 2
Откуда: Одесса

Репутация: 0 [ ? ]
Сообщение PERL курс валют НБУ
Всем привет. Я недавно занялся изучением PERL, опыта пока, что маловато хочу выложить маленький скрипт который парсит сайт НБУ и достает курс гривны относительно USD,EUR,RUR.

[syntax=perl]
#!/usr/bin/perl -w
use IO::Socket;
($seconds,$minutes,$hours,$day_of_month,$month,$year) = (localtime)[0,1,2,3,4,5];

print "\n++++++Kurs valut NBU++++++\n";
printf(" %02d:%02d:%02d-%04d/%02d/%02d\n", $hours, $minutes, $seconds, $year+1900, $month+1, $day_of_month);
print "--------------------------\n";
$host = "www.bank.gov.ua";
$document="/Kurs/kurs_val.jsc";
$remote = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => $host,
PeerPort => "http(80)",
);
unless ($remote) { die "cannot connect to http daemon on $host" }
$remote->autoflush(1);
print $remote "GET $document HTTP/1.0\n\n";
while ( <$remote> )
{
if ($_=~m%"dig">([\w\s\.]+)<\/font>%i)
{
$1==10 ? print "$1 -> ":
$1==100 ? print "$1 ->":
(599>$1 and $1>300) ? print "$1 USD to GRN\n--------------------------\n":
(800>$1 and $1>600) ? print "$1 EUR to GRN\n--------------------------\n":
(4>$1 and $1>1) ? print "$1 RUR to GRN\n": print "Error";
}
}
close $remote;
print "==========================\n";
[/syntax]

Еще хочу сказать пару слов насчет PERL. До него я кодил на Delphi, Php,C# немножко C++ Builder. Для меня вне конкуренции Delphi -простота и мощность, но чем больше вникаю в PERL тем больше вижу его могущество. Он мультиплатформенный, незаменим для сисадминов (сам админил в госструктурах и банках), свобода программирования - дает больше свободы программисту и прощает ему некоторые ошибки т.к. разработчики пытаются его максимально приблизить к "обычной речи", реализовать одно и туже задачу можно различными способами, регулярные выражения это вообще [winked] мега вещь. Я сам специализируюсь на защите информации(программирование это хобби), в этой области он незаменим, создание различного рода сценариев для аудита объектов, которые можно запускать почти на всех ОС.


06.07.2008 12:41
Профиль
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Yahoo [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»