🚀 go-pugleaf

Witam wszystkich.

Prosze o wyjasnienie, co dokladnie dzieje sie w petli foreach ponizszego
skryptu. Chodzi mi o trzy ostatnie linie tej petli:

#!/usr/local/bin/perl
###### The next line is the important one:
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'};

@name_value_pairs=split('&',$buffer);
foreach $name_value_pair (@name_value_pairs)
  {
   ($name,$value)=split('=',$name_value_pair);         
   $value=~s/+/ /g;
   $value=~s/%([0-9A-Fa-f][0-9A-Fa-f])/hex($1)/g;
   $form{$name}=$value;
  }
print "My name is $form{'name'}\n";                    
print "I live at $form{'address'}\n";
print "My ZIP code is $form{'zip'}\n";

Prosze o wyrozumialosc starych wyjadaczy, ale to moj pierwszy dzien nauki
Perla i od pierwszej chwili sprawia on na mnie wrazenie jezyka bardzo
nieeleganckiego. Coz, musze sie go jednak nauczyc - taki wymog w robocie.
Przy okazji - skad mozna sciagnac jakies manuale, ktore nie opisuja
alfabetycznie wszystkich funkcji, ale raczej wprowadzaja do jezyka w sposob
bardziej kontekstowy i tematyczny. W porownaniu z systemem pomocy VC++ 4.x,
manuale perla sa tragiczne.

Pozdrawiam,
robert