Stupid trick to make it do the magic Rafael expected: #!/usr/bin/perl
use warnings;
use strict;
{
package Tied_Strftime;
sub TIESCALAR {
my($class, $fmt) = @_;
return bless(\$fmt, $class);
}
sub FETCH {
use DateTime;
use Time::HiRes qw(time);
return DateTime->from_epoch(epoch => time)->strftime(${$_[0]});
}
}
tie my $time, "Tied_Strftime", "%Y-%m-%d %H:%M:%S.%3N";
while(1) { print "$time\n"; }
#-zefram
