Forum Webscript.Ru

Программирование => Perl => Тема начата: Inecs от 21 Марта 2002, 16:41:19

Название: Курс доллара
Отправлено: Inecs от 21 Марта 2002, 16:41:19

Никто не писал скрипта для выдергивания свежего курса доллара с сайта Центробанка например?
Если есть такие люди, то подскажите страничку откуда можно стянуть этот курс перл скриптом, или, лучше киньте в меня примером такого скрипта на мыло inecs@rambler.ru

Название: Скрипт курса доллара
Отправлено: Atrey от 27 Февраля 2005, 14:07:48

Это не полноценный скрипт, но из него можно что-то сконструировать...
----------------------------------------------------------------------------
#!/usr/bin/perl
print "Content-type: text/html\\n\\n";
# Define parameters
$URL = "http://www.cbr.ru/scripts/XML_daily.asp";
use LWP::Simple;

$content = get($URL);

print $content;

@LINES = split("\\n",$content);

print "USD (@LINES[35])";#выдаст 27,5324
print "EUR (@LINES[42])";#выдаст 36,5324
----------------------------------------------------------------------------
для простого вывода на экран этого достаточно.

теперь осталось вычленить данные из тега и заменить запятую на точку. тогда будет готовое значение курса.

Название: Курс доллара
Отправлено: 2NetFly от 27 Февраля 2005, 14:28:02

Проще подгрузить XML::Simple и ничего не вычленять =)

Название: Курс доллара
Отправлено: Atrey от 27 Февраля 2005, 15:32:59

Тогда как будет выглядеть программа?
Что будет на выходе?

Есть какой-нибудь пример?