blob: 90da222a5a5ac1d3a561a868997751caa1a5c795 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
##############################################################################
#
# Usage: unfool-sort
#
# Reads stdin, elimininates the second field (a dummy counter that has been
# inserted by fool-sort) of each line and writes the result to stdout.
# See documentation of fool-sort.
#
##############################################################################
while (<STDIN>) {
($time, $dummy, @rest) = split;
print join(' ',$time,@rest) . "\n";
}
exit 0;
|