Perl - cvičení 8

1. Prohledejte html soubor, najděte v něm všechny tagy <IMG> a pro každý výskyt vypište jméno obrázku (tag SRC) a všechny jeho atributy seřazené podle abecedy:

   Příklad:

   Na tomto obrázku <IMG SRC="mapa.gif" ALT="mapa" WIDTH="500"></IMG> vidíme mapu Evropy.
   
   Vypíše:
   
   Obrázek: mapa.gif
   	ALT => mapa
   	WIDTH => 500
   

   Pro jednoduchost předpokládejme, že na každém řádku je pouze jeden takový výskyt a že atributy tagu nezasahují na více řádků. Řádky čtěte ze standardního vstupu. Řešení:

   while (<>) {
           /(<IMG[^>]*)/i;
           $atributy = $&;
   
           while ($atributy =~ /(\w+)="([^"]*)"/g) {
                   $atr{uc $1} = $2;
           }
           # nejdriv nazev obrazku
           if (exists $atr{SRC}) {
                   print "Obrazek: $atr{SRC}\n";
                   delete $atr{SRC};
           }
           for (sort keys %atr) {
                   print "\t$_ => $atr{$_}\n";
           }
   }