简单字符串操作

wellfroggy

有一个字符串
$sig='01020304';
想让它变成$sig='\x01\x02\x03\x04';
如何实现呢？

9119111

#!/usr/bin/perl

my $sig='01020304';
$sig=~s#(\d{2})#\\x$1#g;
print "$sig";

wellfroggy

太感谢了……
还想问一下perl里有没有逗号表达式？

9119111

有的.