求一简单perl语句?
string $ww = 0:f:e2:7:19:f
string $ll = 0:f:e2:7:19:68
string $zz = 00:14:6c:e2:3a:ee

有以上一组数,如果":"中数字是1位,那么在这位前加0,如果是两位,不变.

如上边通过perl处理,数据变成
string $ww = 00:0f:e2:07:19:0f
string $ll = 00:0f:e2:07:19:68
string $zz = 00:14:6c:e2:3a:ee


初学,在线等

[解决办法]

Perl code

my @a = qw(0:f:e2:7:19:f  0:f:e2:7:19:68  00:14:6c:e2:3a:ee);foreach my $item (@a){   $item=sprintf("%02s:%02s:%02s:%02s:%02s:%02s",split(/\:/,$item,6));   print("$item\n");}