Ребята, всем привет.Мне тут знакомый програмист написал програмку, она у меня уже пару месяцев нормально работала, а сейчас выдает ошибку:
Use of uninitialized value $jpy_html in pattern match (m//) at parser.pl line 33.
Use of uninitialized value $jpy_html in substitution (s///) at parser.pl line 35.
Use of uninitialized value $jpy_html in substitution (s///) at parser.pl line 36.
Use of uninitialized value $jpy_html in pattern match (m//) at parser.pl line 37.
Use of uninitialized value $1 in multiplication (*) at parser.pl line 38.
Курс иены на сегодня: 0.000000
по-идее должен выдавать текущий курс йены, но начал выдавать 0.00000
в самом скрипте на строках с 28 по 40 идет следующее:
my@formula =(1.05, 1500, 1.05, [1.20, 1.053]); # ФОРМУЛА
my$jpy_url = 'http://www.cbr.ru/scripts/XML_daily.asp';
my$jpy_html = get($jpy_url);
utf8::encode($jpy_html);
$jpy_html =~ m|<Valute ID="R01820">(.+?)</Valute>|s;
$jpy_html = $1;
$jpy_html =~ s|\s+||g;
$jpy_html =~ s|\,|.|g;
$jpy_html =~ m|<Value>(.+?)</Value>|;
push @formula, $1 * 1.04 / 100;
printf "Курс иены на сегодня: %0.6f\n", $formula[-1];
Подскажите пожалуйста, что где нужно изменить, чтобы заработало снова.
Я не программист и сделать ничего не смогу кроме того, что скопирую то, что вы напишите и вставлю туда, куда скажете.
Заранее благодарен.