12 / 2 页

论坛徽章:: 145

11楼 [报告]

发表于 2016-08-01 17:26 |只看该作者

回复 10# L_WC

$ cat FILE
<html><ul><ul><li>x</li><li>y</li></ul></ul>xxxxxxx<ul>zzzz</ul></html>

$ perl -0 -ne '{$x.=$1 while(m{(<ul>(?:(?!<ul>).*?|(?1))*</ul>)}gs);print "$x\n"}' FILE
<ul><ul><li>x</li><li>y</li></ul></ul><ul>zzzz</ul>

评分

参与人数 1	信誉积分 +10	收起理由
sunzhiguolu	+ 10	无敌了!!!

查看全部评分

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

sunzhiguolu

巨富豪门

论坛徽章:: 307

12楼 [报告]

发表于 2016-08-01 20:25 |只看该作者

cat f

复制代码

<html><ul><ul><li>x</li><li>y</li></ul></ul>xxxxxxx<ul>zzzz</ul></html>

perl -pe '$_=join("",m~(<ul>(?:(?!</?ul>).|<ul>.*?</ul>)*</ul>)~gs)' f

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

sunzhiguolu

巨富豪门

论坛徽章:: 307

13楼 [报告]

发表于 2016-08-01 20:31 |只看该作者

回复 11# jason680
大神, 这种写法能匹配何种格式的 ul 标签, 您老能否科普下一点不懂啊.

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jason680

富可敌国

论坛徽章:: 145

14楼 [报告]

发表于 2016-08-01 20:34 |只看该作者

回复 13# sunzhiguolu

>> ...能匹配何种格式的 ul 标签, ...

那种不能匹配？

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

sunzhiguolu

巨富豪门

论坛徽章:: 307

15楼 [报告]

发表于 2016-08-01 20:57 |只看该作者

本帖最后由 sunzhiguolu 于 2016-08-01 21:02 编辑

回复 14# jason680
这个是啥功能, 连嵌套的 ul 都不放过? 大神能否给个参考, 我那个好像不好使啊!!!
比如像这样的:

<html>
<head>
<title>Match ul Label</title>
</head>
<body>
<ul>
<li>A1</li>
<li>A2</li>
<li>
<ul>
<li>A1-1</li>
<li>A2-1</li>
</ul>
</li>
</ul>
Hello, CU
<ul>
<li>
<ul>
<li>
<ol>
<li>
<ul>
<li>Inner Item</li>
</ul>
</li>
</ol>
</li>
<li>B2</li>
</ul>
</li>
</ul>
</body>
</html>

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

sunzhiguolu

巨富豪门

论坛徽章:: 307

16楼 [报告]

发表于 2016-08-01 21:14 |只看该作者

哪位大神了解情况, 给小菜鸟说道说道, 借楼主的宝地寻求下帮助, 先谢谢大家了...

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jason680

富可敌国

论坛徽章:: 145

17楼 [报告]

发表于 2016-08-01 21:20 |只看该作者

回复 15# sunzhiguolu

$ perldoc perlre
....
/Recurese <=== search Recurse
 (?2) # Recurse to start of paren group 2
...
 the output produced should be the following:

 $1 = foo(bar(baz)+baz(bop))
 $2 = (bar(baz)+baz(bop))
 $3 = bar(baz)+baz(bop)
...

$ perl -0 -ne '{while(m{(<ul>(?:(?!<ul>).*?|(?1))*</ul>)}gs){print "$1\n*****************************\n"}}' FILE
<ul>
 <li>A1</li>
 <li>A2</li>
 <li>
 <ul>
 <li>A1-1</li>
 <li>A2-1</li>
 </ul>
 </li>
 </ul>
*****************************
<ul>
 <li>
 <ul>
 <li>
 <ol>
 <li>
 <ul>
 <li>Inner Item</li>
 </ul>
 </li>
 </ol>
 </li>
 <li>B2</li>
 </ul>
 </li>
 </ul>
*****************************