PERL, Date & Time issues

view story

http://www.unix.com – 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 (HowTos)