各位好！我刚开始学 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] 做同样的事情。 请教高手我希望的功能的代码。谢谢了。