简单问题？IP地址补0，高手帮帮忙！

windpen

将IP地址补充为3位，不足的在前面加0
如
59.33.248.5
59.33.248.57
59.33.248.0

处理后为
059.033.248.005
059.033.248.057
059.033.248.000

lych

用printf输出
e.g：$a=13
ptintf ("%03d"，$a);
输出013
ps：没有测试！

windpen

果然高手，一开始我只是用printf("%3d"，得到的只是空格

E:\WLM\内部培训\VOIP>;type test2.txt
59.33.248.5
59.33.248.57
59.33.248.0
E:\WLM\内部培训\VOIP>;type IP地址补0.pl
#!/usr/local/bin/perl
while ($line = <> {
$wlmline=$line;
  chomp $wlmline;
@outline=split(/\./,$wlmline);
printf("%03d\.",$outline[0]);
printf("%03d\.",$outline[1]);
printf("%03d\.",$outline[2]);
printf("%03d",$outline[3]);
print("\n";
}
E:\WLM\内部培训\VOIP>;IP地址补0.pl test2.txt
059.033.248.005
059.033.248.057
059.033.248.000

windpen

反过来，去掉多余的0又应该如何做呢？

lych

[quote]原帖由 "windpen"]反过来，去掉多余的0又应该如何做呢？[/quote 发表：

举个例子
#cat test.pl
#!/bin/perl -w
$a=032;
printf("%d\n",$a);

#perl test.pl
26
#cat test.pl
#!/bin/perl -w
$a=039;
printf("%d\n",$a);
#perl test.pl
error message
#cat test.pl
$a="039";
printf("%d\n",$a);
#perl test.pl
39



我想你能从中明白些什么了！ :em11:

windpen

哦，原来如此，谢谢！

HonestQiao

补0
$strSource =~ s/(^|\.)(\d{2})(\.|$)/$10$2$3/g;
$strSource =~ s/(^|\.)(\d{1})(\.|$)/$100$2$3/g;

去0
$strSource =~ s/(^|\.)(0+)(\d+)($|\.)/$1$3$4/g;

笨狗

原帖由 "HonestQiao" 发表：
补0
$strSource =~ s/(^|\.)(\d{2})(\.|$)/$10$2$3/g;
$strSource =~ s/(^|\.)(\d{1})(\.|$)/$100$2$3/g;

去0
$strSource =~ s/(^|\.)(0+)(\d+)($|\.)/$1$3$4/g;

偶也觉得用正则方便

HonestQiao

那时一定的