Shell Programming and Scripting

NOW_STR=$(date +'%Y-%m-%d') # Or manually set NOW_STR to 2011-01-11 for Jan 11
# -d needs GNU date.
T=$(date -d $NOW_STR +%s) # Start of the day, in epoch seconds
OFF=0

for FILE in x[a-z][a-z] # Matches xaa, xab, etc. that split makes in alphabetical order.
do
        L1="$(date -d "@$T" "+%Y%m%d.%H%M")"
        L2="$(date -d "@$((T+(60*15)))" "+%Y%m%d.%H%M")"
        echo mv "$FILE" A"${L1}-${L2}_transaction.csv"
        ((T += (60*15) )) # Add 15 minutes
        ((OFF += 15))
done

#!/usr/bin/perl
# Use:  script.pl YYYY-MM-DD file1 file2 ...
use Time::Local;
use POSIX qw(mktime strftime);

# arg 1 must be YYYY-MM-DD
my ($y, $mon, $d)=split("-", shift);
$mon--; # perl counts months 0-11

my $start=timelocal(0,0,0,$d,$mon,$y);

print "y=$y, mon=$mon, d=$d\n";

while($arg=shift)
{
        $fname=sprintf("A%s-%s.csv\n",
                strftime("%Y%m%d.%H%M",localtime($start)),
                strftime("%Y%m%d.%H%M", localtime($start+(15*60))));

        system("echo mv ${arg} ${fname}");

        $start += ((15*60));
}

exit 0;

#!/usr/bin/perl
use Time::Local;
use POSIX qw(mktime strftime);

my $start=0, $end=0, $FMT="%Y%m%d.%H%M";

while($line=<STDIN>)
{
        ($mdy, $hms, $rest)=split(" ", $line);
        ($m, $d, $y)=split("/", $mdy);
        ($hour, $min, $sec)=split(":", $hms);

        $ldate=timelocal($sec, $min, $hour, $d, $m-1,$y);
        $min=$min-($min%15);    # chunks of 15 minutes

        if($ldate >= $end)
        {
                $start=timelocal($sec,$min,$hour,$d,$m-1,$y);
                $end=$start + (15*60);
                $fname=sprintf("%s-%s.csv",
                        strftime("$FMT", localtime($start)),
                        strftime("$FMT", localtime($end)));

                FILE && close(FILE);
                open(FILE, ">$fname");
        }

        print FILE "$line";
}

FILE && close(FILE);
exit 0;