🚀 go-pugleaf

Mam maila...

W nim nagłówki postaci:
     cosik: insze-cosik
albo:
     cosik insze-cosik

I teraz bym to chciał mieć w tablicy hashowanej, bo tak ładniej :-)

Wydaje mi się że robię to straaasznie na okrętkę, może się da prościej?
(Bo że TMTOWTDI to wiem ;-)


$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!!!!


Zbigniew Zych
-- 
http://onet.pl/~zych/                                mailto:zych@onet.pl