Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

(tye)Re: PerlMonks modules 2.0

by tye (Sage)
on Mar 10, 2002 at 06:24 UTC ( #150677=note: print w/replies, xml ) Need Help??


in reply to Re: PerlMonks modules 2.0
in thread PerlMonks modules 2.0

Actually, it isn't so much code...

my $attr= qr/(\w+)="([^"]+)"/; my $attrs= /<message(\s+$attr)*>/; my %hash; while( $attrs =~ /$attr/g ) { $hash{$1}= $2; } $hash{user_id}...
But {NULE} requested that I post it here.

        - tye (but my friends call me "Tye")