読者です 読者をやめる 読者になる 読者になる

INFINITY -数学とかプログラミングとか-

統計とプログラムを使って役に立たせたい

TeX用コマンド入力を支援するための辞書をご利用ください。
sanctuary's blogは,適当なことが書いてあります。

高速で時間を表示するスクリプト

Auto.pl

#!/usr/bin/perl
use strict;
use warnings;

my @command = ('perl', 'testprint.pl');

while(1){
    my $ret = system @command;
    if ($ret != 0) {
        print "code[$ret]\n";
    }
    sleep(0.1);
}

testprint.pl

#!/usr/bin/perl

use strict;
use warnings;
use POSIX 'strftime';


my $time = strftime( "%Y-%m-%d %H:%M:%S" , localtime );
print "$time\n";