9 lines
145 B
Perl
9 lines
145 B
Perl
|
#!/usr/bin/perl -wT
|
||
|
|
use strict;
|
||
|
|
use POSIX;
|
||
|
|
while (<>) {
|
||
|
|
chomp;
|
||
|
|
$now = strftime('%Y-%m-%dT%H:%M:%S', localtime);
|
||
|
|
print "$now $_\n";
|
||
|
|
}
|