#!/usr/bin/env perl -w use strict; my @topData = <STDIN>; foreach (@topData) { chomp; if(/\d.+\s(\w.+)\s(\d.+\.\d%)\s(\d.+:\d.+\.\d.+).+$/) { print "$_\n"; } }
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#2 | 8645 | Stephen Moon | removing not up-to-date scripts | ||
#1 | 6465 | Stephen Moon | perl, python, and sh files uploaded to the public depot |