Search Results

In perl...

#!/usr/bin/perl

use Time::Local;
use Time::localtime;

$today = time();
$range = 30*24*60*60;

while (<ARGV>) {
@f = split /,/, $_;
@dt = split /[ :\/]/, $f[3];

...