Сообщения

1

Perl / Курс доллара

« : 27 Февраля 2005, 15:32:59 »

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

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

2

Perl / Скрипт курса доллара

« : 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
----------------------------------------------------------------------------
для простого вывода на экран этого достаточно.

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