简单字符串操作

wellfroggy

1^# wellfroggy 发表于 2008-08-13 17:07

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

9119111

2^# 9119111 发表于 2008-08-13 17:11

#!/usr/bin/perl

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

wellfroggy

3^# wellfroggy 发表于 2008-08-13 17:55

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

9119111

4^# 9119111 发表于 2008-08-13 20:07

有的.