请教：输出16进制时怎么可以带有下划线 如0X012B_124C

desertsea2000

问题：输出16进制时怎么带有下划线

如： $input = 0X012B124C;

期望输出： $output = 0X012B_124C;

先谢了！

mysqllog

1000_0000
也是可以的，这是perl的规距~~

zhlong8

应该没有内置的方法，需要用模块。去 cpan 搜下 number format 之类的关键词试试

Kitaisky

$input = 0X012B124C;
$output = $input = s/(?<=0x[a-f\d]{4})(?=[a-f\d]{4}/_/i ;

jason680

问题：输出16进制时怎么带有下划线

如： $input = 0X012B124C;

期望输出： $output = 0X012B_124C;
...
desertsea2000 发表于 2011-07-20 20:53

my @aData = qw(0X012B124C 0x12345 0x123);
foreach(@aData){
if(m/^0x/i){s/([a-f\d]{4})$/_$1/i};
print "$_\n";
}

C:\bat>hex_under_line.pl
0X012B_124C
0x1_2345
0x123

desertsea2000

回复 5# jason680


谢谢了，又学习了！

desertsea2000

回复 4# Kitaisky


    我试了兄弟的脚本，好像输出为空，比较奇怪，没有想明白：

$input = 0X012B124C;
$output = $input =~ s/(?<=0x[a-f\d]{4})(?=[a-f\d]{4})/_/i ;
print "$input";
print "$output";

Kitaisky

回复 7# desertsea2000


$input = "0X012B124C";
($output = $input) =~ s/(?<=0x[a-f\d]{4})(?=[a-f\d]{4})/_/i ;
print "$input";
print "$output";

desertsea2000

回复 8# Kitaisky


    谢谢这位兄弟，也是一种很不错的方法！