なんとなく試作。実用性は全くない。 #!/usr/bin/perl use strict; use warnings; use Time::HiRes qw(gettimeofday); my @element; $|=1; sub main { &init; # この while の中身は別の関数にすべきだったかも。。。 while(1) { my ($unixtime, $microsec) …