各位好!我刚开始学 perl. 有一个很老的 perl bbs 软件包 leobbs. 里面有这样的代码:
[code]
$$post =~ s/(\[align=)(left|center|right)(\])(.+?)(\[\/align\])/$4/isg;
[/code]
我想加一些行进去,使得 相关的 BBCode 能够工作。 试过
[code]
$$post =~ s/\[td\]\s*(.*?)\s*\[\/td\]/$1/isg;
......[/code]
虽然可以用,但不能识别 的很多具体设定。理想地说,我希望
[td※]◇[/tr] 能够转换成 $2
不管 ※ 是空还是非空字符串,都赋值于 $1 ...
当然也要对 [table] , [tr] 做同样的事情。
请教高手我希望的功能的代码。谢谢了。
0
Forum Groups
Good Perl Books
Perl 程序讨论区
事物处理及其他
测试私密区
OpenID accepted here
Learn more about OpenID
Add a Reply