这个正则能不能简化下？

digex

$str='aa;bb;'  or  $str = ';aa;bb'   or $str = ';aa;bb;';
首尾去掉分号，我的是：$str =~ s/^;(.*)|(.*);$/$1/g
可不可以简化下子？

zhangkeyijian

$str='aa;bb;'  or  $str = ';aa;bb'   or $str = ';aa;bb;';
首尾去掉分号，我的是：$str =~ s/^;(.*)|(.*);$/$1/g
可不可以简化下子？

#!/usr/bin/perl
#$str='aa;bb;';
#$str = ';aa;bb';
$str = ';aa;bb;';
$str=~s/^;|;$//g;
print "$str\n";

[ 本帖最后由 zhangkeyijian 于 2007-4-17 14:46 编辑 ]

wsliuhao

$str =~ s/^;|;$//g

among29

恩,楼上说的对

digex

可以这样写的，学到了