user-tools/timestamper

   1 #!/usr/bin/env perl
   2
   3 use POSIX qw/strftime/;
   4
   5 $fmt = $ENV{'TIMESTAMP_FMT'} || '%F %T %z';
   6
   7
   8 while(<STDIN>)
   9 {
  10         print strftime($fmt, localtime);
  11         print "\t";
  12         print $_;
  13 }
  14
  15
  16 __END__
  17
  18 =pod
  19
  20 =head1 NAME
  21
  22 timestamper - Prepend a timestamp to each input line
  23
  24 =head1 SYNOPSIS
  25
  26 timestamper
  27
  28 =head1 DESCRIPTION
  29
  30 Read STDIN and put everything on STDOUT, only prepending each line by a timestamp and a B<TAB> char.
  31
  32 =head1 ENVIRONMENT
  33
  34 =over 4
  35
  36 =item TIMESTAMP_FMT
  37
  38 Timestamp format, see strftime(3).
  39 Default is "%F %T %z".
  40
  41 =back
  42
  43 =head1 SEE ALSO
  44
  45 ts(1) from moreutils
  46
  47 =cut