🚀 go-pugleaf

On 98.01.29 Zbigniew Zych pressed the following keys:

> $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, $_);
>   }
> }

Do tego to nie mam się gdzie przyczepić, bo sam robię podobną magię.

> 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...
> }

foreach(@header) {
   /^([^:]+:\s+(.*)$/;
   $klucz = $1;
   $klucz =~ tr/A-Z/a-z/;                 # pamiętaj o tym, że pole 'name'
                                          # nagłówka w/g rfc822 jest case instensitive!
   $tresc = $2;

   if ($header{$klucz}) {                 # pola w nagłówku mogą się powtarzać
      $header{$klucz} .= ", $tresc"       # należy więc wtedy raczej dodać wartość
   } else {                               # do już istniejącego pola o tej nazwie,
      $header{$klucz} = $tresc            # po przecinku (albo się źle doczytałem :)
   }
}


> 
> Aż mnie boli jak to oglądam.... ;-)
> Ja to chce w 3 linijkach!!!!

No i teraz głowa boli jeszcze bardziej, ale zawsze jak dochodzę do tego,
pocieszam się, że gdybym żył z kopania dołów, nie bolała by mnie głowa, ale
za to bolałby mnie kręgosłup :)

> Zbigniew Zych

Gad

-- 
                                 mailto:reptile@pdi.net :)
                  Women are more complicated than PC... :(
          Look into my headers and you'll see who I am. :)