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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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