Користувач:Дядько Ігор/Скрипти/Футбольний сезон

#!/usr/bin/perl 

$legend = "<small>І = Зіграно матчів; В = Виграші; Н = Нічиї; П = Програші; З = Забиті голи; Пр = Пропущені голи;<br>С = Середня результативність; Р = Різниця; О = Очки</small>";


my %dict = ();
open(DIC, "foot_dict.txt"); 
while ($line = <DIC>)
{
 ($orig, $trans) = split (/=/, $line,2);
  $orig =~ s/^\s+//;
  $orig =~ s/\s+$//;
  $trans =~ s/^\s+//;
  $trans =~ s/\s+$//; 
  $dict{ $orig } = $trans;  
}
close(DIC);

open(FC, "alfa.xt");

while ($line = <FC>)
{
while ( my ($key, $value) = each(%dict) ) {
        $line =~ s/$key/$value/;
    }
  $line = $legend if ($line =~ m/Зіграно матчів/);
  print $line;
}

!width=20|Місце
!width=275|Команда
!width=20|І
!width=20|
!width=20|В
!width=20|Н
!width=20|П
!width=20|З
!width=20|Пр
!width=20|
!width=20|С
!width=50|Р
!width=20|О


!width=50|Легенда!!width=420|
|-
| style="background:#FFFF00;" width="20" |
| bgcolor="#ffffff" align="left" | Чемпіони ліги
|-
| style="background: #99BADD" width="20" |
| bgcolor="#ffffff" align="left" | Володарі Кубка Англії
|-
| style="background: #FFCCCC" width="20" |
| bgcolor="#ffffff" align="left" | Опустилися в нижчий дивізіон
|}


!width=50|Легенда!!width=420|
|-
| style="background:#D0F0C0;" width="20" |
| bgcolor="#ffffff" align="left" | Чемпіони дивізіону
|-
| style="background:#FFFF99;" width="20" |
| bgcolor="#ffffff" align="left" | Піднялися у вищий дивізіон
|-
| style="background: #FFCCCC" width="20" |
| bgcolor="#ffffff" align="left" | Опустилися в нижчий дивізіон
|}

!width=50|Легенда!!width=420|
|-
| style="background:#D0F0C0;" width="20" | 
| bgcolor="#ffffff" align="left" | Чемпіони дивізіону, перейшли у вищий
|-
| style="background: #F08080" width="20" |
| bgcolor="#ffffff" align="left" | Не переобрано
|}

| bgcolor="#ffffff" align="left" | Володарі [[Кубок Уельсу з футболу|Кубка Уельсу]]