Thread Frage der Zweckmäßigkeit
(17 answers)
Opened by rosti at 2025-03-10 15:50
Aus Gründen der Übersichtlichkeit; Eine RegEx aber ne Schleife hinterher zur Korrektur dessen was die RegExe nicht geschnallt hat:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 # read file sub _parse{ my $self = shift; my $fh = $self->{FH}; $fh->seek(0,0); read($fh, my $bin, -s $fh); my ($head, $body) = split "\n\n", $bin, 2; my $h = { $head =~ /(\w+)=(.*)/g }; foreach my $val(values %$h){ $val =~ s/-->//; $val =~ s/\s+$//; } $h->{body} = $body; return $h; } View full thread Frage der Zweckmäßigkeit |