🚀 go-pugleaf

Zbigniew Zych <zych@use.address.from.sig.onet.pl> wrote in article 
> 
> $header = 1;
> 
> while(<>) {
>   chomp;
>   if(/^$/ && $header) {
>     $header = 0;
>   } elsif ($header) {
>     if(/^\t/) {                     # jesli nastepna linia zaczyna sie \t
>       $header[$#header] .= "\n$_";  # to jest to kontynuacja poprzedniej
>     } else {
>       push(@header, $_);
>     }
>   } else {  # body
>     push(@body, $_);
>   }
> }
> 
> foreach(@header) {
>   $klucz = $_;
>   $tresc = $_;
>   $klucz =~ s/([^\s:]+:?)\s(.*)/$1/s;   # to mi sie okrutnie ni podoba,
po
>   $tresc =~ s/([^\s:]+:?)\s(.*)/$2/s;   # prostu musi sie dac prosciej
;-)
>   $header{$klucz} = $tresc;             # i w koncu mamy hasha...
> }
> 
> 
> Aż mnie boli jak to oglądam.... ;-)
> Ja to chce w 3 linijkach!!!!

Oryginal mial rzeczywiscie 3 linie ( + petla while ), ale ignorowal linie
przedluzenia , dodalem to i wynik ponizej:

while(<>){
        chomp;
        last unless $_;
        if( /([^:]+):\s+(.*)/ ){
                $header{lc($1)} = $2;
                $lkey = lc($1);
        }
        else{
                s/^\s+//;
                $header{$lkey} .= "\n$_";
        }
}
.....  Czytanie tresci....


Pozdrowienia
	KK