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\n",$cntfmt,$numfmt3,$numfmt2,$numfmt1,$numfmt0); #格式化輸出結果
    $cnt++;
}