Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 33 lines (27 sloc) 0.427 kb
#!/usr/bin/perl -w
use strict;
open(LOG, "dk changes|") || die "Can't open 'dk changes': $!";
my $lastDate = "";
while(<LOG>)
{
if( /^(\w+)\s+(\w+)\s+(\d+)\s+([0-9:]+)\s+(\w+)\s+(\d+)\s+(.*)$/ )
{
my $date = "$1 $2 $3 $6";
if($date ne $lastDate)
{
$lastDate = $date;
print "$date $7\n";
}
} else
{
s/^\s+//;
if(/\w/)
{
print "\t$_";
} else
{
#print "\n";
}
}
}
close(LOG)
Jump to Line
Something went wrong with that request. Please try again.