I know HTML::TreeBuilder with ->right() and ->right()->right()->{_tag}
eq 'script' can check if there is 3 scripts together, but it's pretty
tricky too.Thanks 2012/5/14 Rui Hu <[email protected]>: > 这个似乎没有达到楼主想要的连续的效果，楼主说是处理连续的三行 > 楼主给的示例中的d.js并没有被合并 你这个代码是不是会合并d.js到上面的三行中？ > > > 2012/5/14 陈钢 <[email protected]>: >> my @js_files = $html =~ /<script>balabala(.*?\.js)<\/script>/gims; >> my $new_tag = "<script>"; >> foreach (@js_files) >> { >> $new_tag.= $_ .","; >> } >> $new_tag .= "</script>"; >> > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。 > 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 > 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 > -- Fayland Lam // http://www.fayland.org/ -- 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
