paha4444Есть таблица на странице с курсами валют на сегодняшний день, мне нежно получить из неё такие данные:

USD 799.3000

вот таблица:




===========================================================================================

#!/usr/bin/perl
use utf8;
use 5.10.0;

my $string=<<EOF;
<table width="100%" cellspacing="2" cellpadding="2">
<tbody>
<tr>
<td class="col_title_c">Код цифровой</td>
<td class="col_title_c">Код литерный</td>
<td class="col_title_c">Количество единиц</td>
<td class="col_title">Название валюты</td>
<td class="col_title_c">Официальный курс</td>
</tr>
<tr>
<td class="cell_c">795</td>
<td class="cell_c">TMM</td>
<td class="cell_c">100</td>
<td class="cell"></td>
<td class="cell_c">280.4561</td>
</tr>
<tr>
<td class="cell_c">840</td>
<td class="cell_c">USD</td>
<td class="cell_c">100</td>
<td class="cell"></td>
<td class="cell_c">799.3000</td>
</tr>
<tr>
<td class="cell_c">960</td>
<td class="cell_c">XDR</td>
<td class="cell_c">100</td>
<td class="cell"></td>
<td class="cell_c">1220.0278</td>
</tr>

</tbody>
</table>
EOF

#собираем в массив @td все значения тэгов td
while ($string =~ m{<td}g) {

$string =~ m{\G.+>([^<]+)</td>};
push @td, $1;
}

#находим индекс ячейки массива в которой лежит слово USD
ждёмс while $td[$index++] ne 'USD';

say $td[$index+2];

sub ждёмс{}


======================================================================================================
баловство с русскими именами переменных проверять под Линуксом, под Виндусом проблемы с кодировкой utf-8 в консольном окне.