data.pl

application/x-perl

Download

use strict;

my $day_rows = 100000;

my @days = (19,20);

my @out = ();

my $count = 0;
my @c=("a".."z","A".."Z",0..9);

foreach my $day (@days) {

    for(my $hour = 0; $hour < 24 && $count < $day_rows; $hour++) {
        for (my $minute = 0; $minute < 60 && $count < $day_rows; $minute++) {
            for (my $second = 0; $second < 60 && $count < $day_rows; $second ++) {
                my $ts = sprintf(
                    q|2022-05-%02d %02d:%02d:%02d.%i|,
                    $day,
                    $hour,
                    $minute,
                    $second,
                    0,
                );

                printf(
                    qq|$ts,%i,%i,%i,%s,%s\n|,
                    rand(1) * $day,
                    rand($day) * $second + 1,
                    rand(2) * $second + 1,
                    join('', map{$c[rand@c]}10..20+rand(20)),
                    join('', map{$c[rand@c]}10..20+rand(20)),
                );
                $count++;
            }
        }
    }
}