Hello All,

This is my first script in PERL. Hence require your help in moving further.

I have a script which should populate the values for Today, Yesterday output.
For which I use timeFrame as a variable to obtain the time in hrs:mm as 10:00.

All I want is, I want my timeFrame to start with 00:00 and end with with my current timestamp. Say if the time is 07:23, my timeFrame should contain 00:00 to 07:00. [I am not bothered on Minutes since it works hourly basis]. I have written the PERL in the below way.

Code:

#!/usr/bin/perl
use Time::Local;
my %DataHash=();
$begOffset=3600*12;
my ($runYear, $runMonth, $runDay, $runHour, $runMin, $runSec) = (localtime(time))[5,4,3,2,1,0];
$runYear+=1900;
$runMin = (int($runMin/5)*5);
my $runTime = timelocal($runSec,$runMin,$runHour,$runDay,$runMonth,$runYear);
my $begTime = $runTime-$begOffset;
my $j=0;
for($i=$begTime;$i<=$runTime;$i+=3600){

        my $startTime = ($startHour,$startMin) = (localtime($i))[2,1];
        if ($startMin <10){$startMin="0$startMin";}
        if ($startHour <10){$startHour="0$startHour";}
        $timeFrame="$startHour:00";
        $DataHash{$j}->{'timeFrame'}=$timeFrame;
        $j++;
		print "TimeFrame -> $timeFrame StartTime -> $startTime  StartHour -> $startHour\n\n";
}

But the output came as
Now the current time is 07:23, so I want that output to be like below
Can you please help me by correcting this code. It will be great if you make use of localtime and not anything else. Thanks in advance.

I am in a hurry, please help me asap. TA.

---------- Post updated 10-05-12 at 03:37 AM ---------- Previous update was 10-04-12 at 06:57 AM ----------

Can someone please help me on it.