<P>I am trying to write a routine in Perl where I can send a iq roster request and then parse through all the responses such that I can put them in an array. While I could do this with a call such as "my $roster = $iq->GetXML()" followed by a bunch of regular expressions, this seems painfull. </P>
<P>I would like to populate a couple of parallel arrays such that they end up as follows after having read back 4 returned roster items:</P>
<P>@jids = (<A href="mailto:user1@jabber.org">user1@jabber.org</A>, <A href="mailto:user2@jabber.org">user2@jabber.org</A>, <A href="mailto:user3@jabber.org">user3@jabber.org</A>, <A href="mailto:user4@jabber.org">user4@jabber.org</A>)</P>
<P>@name = (Joe, fred, Tim, Sue)</P>
<P>@subscription = (both, both, from, to)</P>
<P>@group = (work, work, friend, work)</P>
<P>As I do not quite understand how the parsing would work, would someone mind doing a quick posting of an example which would place all the jids, groupnames, etc in an array? It is just not clear to me how I would structure the logic to do this with a while...</P>
<P>Thanks,</P>
<P>Rebbaj</P><p><p><br><hr size=1><a href="http://uk.yahoo.com/mail/tagline_xtra/?http://uk.docs.yahoo.com/mail_storage.html"><b><font face="Arial" size="2">With Yahoo! Mail you can get a bigger mailbox -- choose a size that fits your needs</font></b></a><br>