blob: d1cbb16e1c31b3393901b0633c251a6d37ae782b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#!/usr/bin/perl
=head1 NAME
ts - timestamp input
=head1 SYNOPSIS
ts [-r] [format]
=head1 DESCRIPTION
ts adds a timestamp to the beginning of each line of input.
The optional format parameter controls how the timestamp is formatted,
as used by L<strftime(3)>. The default format is "%b %d %H:%M:%S".
If the -r switch is passed, it instead converts existing timestamps in
the input to relative times, such as "15m5s ago". Many common timestamp
formats are supported. Note that the Time::Duration and Date::Parse perl
modules are required for this mode to work.
=head1 ENVIRONMENT
The standard TZ environment variable controls what time zone dates
are assumed to be in, if a timezone is not specified as part of the date.
=head1 AUTHOR
Copyright 2006 by Joey Hess <joey@kitenet.net>
Licensed under the GNU GPL.
=cut
use warnings;
use strict;
use POSIX q{strftime};
$|=1;
my $rel=0;
use Getopt::Long;
GetOptions("r" => \$rel) || die "usage: ts [-r] [format]\n";
if ($rel) {
eval q{
use Date::Parse;
use Time::Duration;
};
die $@ if $@;
}
my $format="%b %d %H:%M:%S";
$format=shift if @ARGV;
while (<>) {
if (! $rel) {
print strftime($format, localtime)." ".$_;
}
else {
s{\b(
\d\d[-\s\/]\w\w\w # 21 dec 17:05
(?:\/\d\d+)? # 21 dec/93 17:05
[\s:]\d\d:\d\d # (time part of above)
(?::\d\d)? # (optional seconds)
(?:\s+[+-]\d\d\d\d)? # (optional timezone)
|
\w{3}\s+\d\d\s+\d\d:\d\d:\d\d # syslog form
|
\d\d\d[-:]\d\d[-:]\d\dT\d\d:\d\d:\d\d.\d+ # ISO-8601
|
(?:\w\w\w,?\s+)? # (optional Day)
\d+\s+\w\w\w\s+\d\d+\s+\d\d:\d\d:\d\d
# 16 Jun 94 07:29:35
(?:\s+\w\w\w|\s+-\d\d\d\d)?
# (optional timezone)
|
\w\w\w\s+\w\w\w\s+\d\d\s+\d\d:\d\d
# lastlog format
)\b
}{
concise(ago(time - str2time($1), 2))
}exg;
print $_;
}
}
|
