ts

   1 #!/usr/bin/perl
   2
   3 =head1 NAME
   4
   5 ts - timestamp input
   6
   7 =head1 SYNOPSIS
   8
   9 ts [format]
  10
  11 =head1 DESCRIPTION
  12
  13 ts adds a timestamp to the beginning of each line of input
  14
  15 The optional format parameter controls how the timestamp is formatted,
  16 as used by L<strftime(3)>. The default format is "%H:%M:%S".
  17
  18 =head1 AUTHOR
  19
  20 Copyright 2006 by Joey Hess <joey@kitenet.net>
  21
  22 Licensed under the GNU GPL.
  23
  24 =cut
  25
  26 use warnings;
  27 use strict;
  28 use POSIX q{strftime};
  29
  30 my $format="%H:%M:%S";
  31 $format=shift if @ARGV;
  32
  33 $|=1;
  34
  35 while (<>) {
  36         print strftime($format, localtime)." ".$_;
  37 }