zoukankan      html  css  js  c++  java
  • 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++;
    }
    
  • 相关阅读:
    网络文件传输方式
    ETL利器Kettle
    oracle 字符处理
    ORACLE临时表空间
    Count(*)或者Count(1)或者Count([列]) 区别
    Oracle trunc()函数的用法
    DATE 日期格式
    oracle 异常
    物化视图
    域名和端口
  • 原文地址:https://www.cnblogs.com/OneFri/p/7050412.html
Copyright © 2011-2022 走看看