in reply to Re: PerlMonks modules 2.0
in thread PerlMonks modules 2.0
Actually, it isn't so much code...
But {NULE} requested that I post it here. - tye (but my friends call me "Tye")my $attr= qr/(\w+)="([^"]+)"/; my $attrs= /<message(\s+$attr)*>/; my %hash; while( $attrs =~ /$attr/g ) { $hash{$1}= $2; } $hash{user_id}...
In Section
Code Catacombs