Script Perl para gerar endereços MAC

Question

Esta linha perl é muito útil para alterar o endereço MAC, mas mantém os três primeiros pares.

perl -e 'for ($i=00;$i<6;$i++){@m[$i]=int(rand(256));} printf "00:16:3E:%X:%X:%X\n",@m;'

Gere um bom endereço

00:16:3E:1E:B6:DB
00:16:3E:EE:8D:4A

Mas alguns com apenas um valor (E, D)

00:16:3E:80:21:D
00:16:3E:18:87:D
00:16:3E:E6:EF:5
00:16:3E:E:99:6A

Eu quero tudo com duas figuras, por exemplo, o ruim tornar-se

00:16:3E:80:21:D1
00:16:3E:18:87:4E
00:16:3E:E6:EF:5A

Como fazer?

    

Answer 1

Esta solução parece funcionar: %X se torna %02X

Velho e não funciona

perl -e 'for ($i=00;$i<6;$i++){@m[$i]=int(rand(256));} printf "00:16:3E:%X:%X:%X\n",@m;'

novo e funcionando

perl -e 'for ($i=00;$i<6;$i++){@m[$i]=int(rand(256));} printf "00:16:3E:%02X:%02X:%02X\n",@m;'