Perl格式化输出

Perl格式化输出

问题阐述

有时我们需要大量的重复数据，使用手工易于出错及比较繁琐。抓取特征，可以使用Perl脚本轻松搞定。

输出数据格式

主要特点

随机数生成
格式化输出
序列递增

Perl脚本

#!/usr/bin/perl

use warnings;

my $cnt = 0;

while($cnt < 1000){
    my $number0=rand(256);  #[0-255]之间的随机数生成
    my $number1=rand(256);
    my $number2=rand(256);
    my $number3=rand(256);

    my $numfmt0=(sprintf "%02x", $number0);  #格式化为2位字符串
    my $numfmt1=(sprintf "%02x", $number1);
    my $numfmt2=(sprintf "%02x", $number2);
    my $numfmt3=(sprintf "%02x", $number3);
     
    my $cntfmt = (sprintf "%08x", $cnt*4);   #格式化为8位字符串

    printf("@%s %s %s %s %s
",$cntfmt,$numfmt3,$numfmt2,$numfmt1,$numfmt0); #格式化输出结果
    $cnt++;
}