/home/www/test/perl/modern % perl -e 'for(;;){print time," ",1234567890-time,"\n";sleep(1);}'
1234567887 3
1234567888 2
1234567889 1
1234567890 0
1234567891 -1
1234567892 -2
1234567893 -3
1234567894 -4
1234567895 -5

おめでとうございました.

こちらもあわせてどうぞ

コメントをどうぞ