perl 字符串补齐函数

stronghearted

perl中是否有像oracle那样的rpad和lpad函数，字符串补齐函数。


SQL> select rpad('test',30,'x') from dual;

RPAD('TEST',30,'X')
------------------------------
testxxxxxxxxxxxxxxxxxxxxxxxxxx

难道要自己写一个？

longbow0

1. 
   
2. $s = 'a' x 10;
   
3. print $s;    # $s = 'aaaaaaaaaa'
   

复制代码

stronghearted

谢谢longbow0