I wrote my quick'n'dirty patch yesterday, no XML modules involved; I downloaded PerlMonksModules-2.2.tar.gz from sourceforge.
$ diff Users.pm.dist Users.pm
66c66
< my %users=($c=~/user\s+username="([^\"]+)"\s+user_id="(\d+)"/g
+);
---
> my %users= reverse ($c=~/user\s+user_id="(\d+)"\s+username="([
+^\"]+)"/g);
$ diff Chat.pm.dist Chat.pm
61c61
< my @msgs=($c=~/message\s+author="([^\"]+)"[^>]+>\s*(.*?)\s*<\/me
+ssage>/g);---
> my @msgs=($c=~/message\s+[^>]*author="([^\"]+)"[^>]+>\s*(.*?)\s*
+<\/message>/g);
These work for me. But your patches are definitely more elegant :-)
Of course,
Ciao! --bronto
# Another Perl edition of a song:
# The End, by The Beatles
END {
$you->take($love) eq $you->make($love) ;
}
|