请教，从字符串中提取数字。

win954

<return><count>17</count><resultCode>12</resultCode><UID>123456</UID><version>1.0.0</version></return>

如上面的字符串，我想要其中的17、12和123456。该怎么做？

谢谢！

yashiro_lj

从楼主发的这个字符串来看，可以这么做，如果两个尖角符号（><）之间全是数字，则提取

hellioncu

这个是XML，可以用XML的解析器读取

Perl_Er

$str = qq(<return><count>17</count><resultCode>12</resultCode><UID>123456</UID><version>1.0.0</version></return>);
@array = ($str =~ />(\d+)</g);
grep { print $_,"\n"; } @array;

win954

原帖由 hellioncu 于 2009-7-13 17:06 发表
这个是XML，可以用XML的解析器读取

是XML，XML解析器是哪个啊？
小弟菜鸟一个

ulmer

原帖由 win954 于 2009-7-13 18:07 发表

是XML，XML解析器是哪个啊？
小弟菜鸟一个

XML是-->http://zh.wikipedia.org/wiki/XML

cobrawgl

原帖由 ulmer 于 2009-7-13 18:18 发表

XML是-->http://zh.wikipedia.org/wiki/XML

人家要的是解析器

XML::Simple

win954

原帖由 cobrawgl 于 2009-7-13 22:06 发表


人家要的是解析器

XML::Simple

妈呀，不会用。

MMMIX

原帖由 win954 于 2009-7-14 10:32 发表


妈呀，不会用。

不会学呗，不是有文档么？

cobrawgl

use XML::Simple;

my $xml = '<return><count>17</count><resultCode>12</resultCode><UID>123456</UID><version>1.0.0</version></return>';

my $content = XMLin($xml);

print $content->{count}, "\n";
print $content->{resultCode}, "\n";
print $content->{UID}, "\n";