perl生成随机IP

perl生成随机IP

[root@Centos perl]# perl -e 'printf "%vd\n",pack "N",rand 256**4'
52.69.62.233

[root@Centos perl]# perl -le '$,=".";print map int rand 256,1..4'
127.47.151.116

[root@Centos perl]# perl -le '$,=".";print map int rand 256,1..4'
4.155.141.148

shell bash生成随机IP

[root@Centos perl]# echo $((RANDOM%256)).$((RANDOM%256)).$((RANDOM%256)).$((RANDOM%256))
36.250.143.188