use Data::Dumper;
$s = q/<button type="button" style = "
border:none;background:url(button_bk.png); width:150px; height:49px; ">/;
($c) = $s =~ /<([^<>]+?=[^<>]+?)>/;
$bth{$1} = $2 while $c =~ /\s([\w-]+)\s*=\s*"([^""]+?)"/g;
print Dumper \%bth;
正则就是这么个解法，当然你可能需要根据你的具体要求做些调整。
另外 cpan 上帮助解析 HTML 的模块很多阿:
HTML::Parser
HTML::TreeBuilder
HTML::TreeBuilder::LibXML
等等...
2011/1/17 Qiang (James) <[email protected]>
> On 01/17/2011 12:59 PM, Kermit Mei wrote:
> > 求助一个问题：
> > 解析一些html文件，需要把每个元素的属性分别读取到一个hash中，并且把属性原
> > 来的引号去掉，例如：
> >
> ......
> >
> > 我现在用的办法比较繁琐，用了多次正则表达式和s///g替换，而且使用了空格作
> > 为分隔属性的标志，在处理style时是存在错误的。
> > 不知道有没有什么技巧，可以比较优雅地解决这个问题?
> >
>
> 你可以用 Web::Scraper 能更有效的分析 html.
>
> >
> > Thanks
> > --
> > B.R
> > Kermit
> >
>
> Qiang
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
> 要取消订阅此网上论坛，请发送电子邮件至
> [email protected]<perlchina%[email protected]>
> 。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
