1.sub UBBCode

add:(flyҪcode,.....)



룺

--------------------------------------------------------------------------------



$ThePost =~ s/(\[fly\])(.+?)(\[\/fly\])/<marquee width=90% behavior=alternate scrollamount=3>$2<\/marquee>/isg;



--------------------------------------------------------------------------------





2. sub EditUBBConvert(෴˳)



룺

--------------------------------------------------------------------------------



$EditThis =~ s/(<marquee width=90% behavior=alternate scrollamount=3>)(.+?)(<\/marquee>)/\[fly\]$2\[\/fly\]/isg;



--------------------------------------------------------------------------------



Ϳ֧һflyģʽ





ʲôطԼҰ



ɵЧ......



