linux - ナノ解像度までの時間を画面に表示するシンプルな Perl プログラム

Question

Linux bash コマンドラインから Date +%H:%M:%S.%N を実行すると、時間がナノ秒単位で出力されます。それを継続的に画面に出力しようとしていますが、この perl プログラムは機能していないようです。私が間違っていることは何ですか？ありがとう。

#!/usr/bin/perl


while(1)

{
        print system("Date +%H:%M:%S.%N");
}

Answer 1

DateTime::HiRes?

c:\Code>perl -MDateTime::HiRes -E "while (1) {say DateTime::HiRes->now()->strftime('%F %T.%N');}"
2013-05-23 18:53:32.220020000
2013-05-23 18:53:32.220460000
2013-05-23 18:53:32.220800000
2013-05-23 18:53:32.221080000
2013-05-23 18:53:32.221350000
2013-05-23 18:53:32.221640000
2013-05-23 18:53:32.221950000
2013-05-23 18:53:32.222260000
2013-05-23 18:53:32.222570000
2013-05-23 18:53:32.222880000
2013-05-23 18:53:32.223190000
2013-05-23 18:53:32.223490000
2013-05-23 18:53:32.223810000
2013-05-23 18:53:32.224120000
2013-05-23 18:53:32.224430000
2013-05-23 18:53:32.224750000
2013-05-23 18:53:32.225070000
2013-05-23 18:53:32.225390000
2013-05-23 18:53:32.225710000
2013-05-23 18:53:32.226030000

...