Thread Frage der Zweckmäßigkeit (17 answers)
Opened by rosti at 2025-03-10 15:50

rosti
 2025-03-25 15:36
#196955 #196955
User since
2011-03-19
3560 Artikel
BenutzerIn
[Homepage]
user image
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;
}
http://blog.rolfrost.de/

The art of steam.

View full thread Frage der Zweckmäßigkeit