Displaying time left to end of day, week, month? Post: 302575315

Sponsored Content

Top Forums Shell Programming and Scripting Displaying time left to end of day, week, month? Post 302575315 by m.d.ludwig on Monday 21st of November 2011 10:02:54 AM

11-21-2011

Registered User

Code:

#! /usr/bin/perl

use strict;
use warnings;
use integer;
use Time::Local qw{ timelocal_nocheck };

sub timeleft($$@) {
    my $label = shift;
    my $now   = shift;
    my $then  = timelocal_nocheck(@_);

    my $delta_s  = $then - $now;
    my $delta_m  = $delta_s / 60; $delta_s %= 60;
    my $delta_h  = $delta_m / 60; $delta_m %= 60;
    my $delta_d  = $delta_h / 24; $delta_h %= 24;

    local $\ = '';
    local $, = '';

    print $label, ':';

    if (0 < $delta_d) {
        print ' ', $delta_d, 'd';
    }

    if (0 < $delta_d || 0 < $delta_m) {
        print ' ', $delta_h, 'h';
    }

    if (0 < $delta_d || 0 < $delta_m || 0 < $delta_h) {
        print ' ', $delta_m, 'm';
    }

    print ' ', $delta_s, "s\n";
}

my $NOW = time();
my @NOW = localtime($NOW);

$NOW[0] = 0;
$NOW[1] = 0;
$NOW[2] = 0;

my @EOD = @NOW;
   $EOD[3] += 1;

timeleft('  day', $NOW, @EOD);

my @EOW = @NOW;
   $EOW[3] += 7 - $NOW[6]; # wday;

timeleft(' week', $NOW, @EOW);

my @EOM = @NOW;
   $EOM[3]  = 1; # mday
   $EOM[4] += 1; # month

timeleft('month',  $NOW, @EOM);

---------- Post updated at 10:02 AM ---------- Previous update was at 10:01 AM ----------

Example output:

Code:

  day: 13h 57m 52s
 week: 5d 13h 57m 52s
month: 9d 13h 57m 52s

m.d.ludwig

View Public Profile for m.d.ludwig

Find all posts by m.d.ludwig

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Write a shell script to find whether the first day of the month is a working day

Hi , I am relatively new to unix... Can u pls help me out to find out if the first day of the month is a working day ie from (Monday to Friday)...using Date and If clause in Korn shell.. This is very urgent. Thanks for ur help...

2. UNIX for Dummies Questions & Answers

setting up cron job for month end week report

Hi all, Needs your help in scheduling a cron job for the below mentioned requirement. Just let me know if anybody has a similar job running as mentioned below: Month end reports - Report of all items created in a parent table that were created during the week. Presently this report runs...

3. Shell Programming and Scripting

Script to find previous month last day minus one day timestamp

Hi All, I need to find the previous month last day minus one day, using shell script. Can you guys help me to do this. My Requirment is as below: Input for me will be 2000909(YYYYMM) I need the previous months last day minus 1 day timestamp. That is i need 2000908 months last day minus ...

4. Shell Programming and Scripting

Code creates day 32 instead of 1st day of next month.

I am using the code below modified from a post I saw here regarding having the script write out future dates. The problem is that instead of making 8/1 it makes 7/32! Please help! yy=`date +%Y` mm=`date +%m` dd=`date +%d` echo "Today is : $yy $mm $dd" #!/usr/bin/ksh date '+%m...

5. Shell Programming and Scripting

Script to counting a specific word in a logfile on each day of this month, last month etc

Hello All, I am trying to come up with a shell script to count a specific word in a logfile on each day of this month, last month and the month before. I need to produce this report and email it to customer. Any ideas would be appreciated!

6. Shell Programming and Scripting

Day of the week or Month in a foreign language

Hey guys, i'm a very new shell script user. I've been looking everywhere for a proper script to display the day of the week or the month, accurately, in a foreign language of my choosing. Something where i can just type in the appropriate word in a foreign language in the script and get the...

7. Shell Programming and Scripting

How to add day of week at the end of each line that shows the date?

I have a file that looks like: file1: www_blank_com 20121008153552 www_blank_com 20121008162542 www_blank_com 20121009040540 www_blank_com 20121009041542 www_blank_com 20121010113548 www_blank_com 20121011113551 www_blank_com 20121012113542 I want the new file to show the day of...

8. Shell Programming and Scripting

Julian day to dates in YEAR-MONTH-DAY

hello, I have many files called day001, day002, day003 and I want to rename them by day20070101, day20070102, etc. I need to do it for several years and leap years as well. What is the best way to do it ? Thank you.

9. Shell Programming and Scripting

Get day of week from epoch time

Need assistance . Below code gives me the date but I wanted output as day of the week (wday) . Code: use Time::Local; my $time=timelocal(1,2,3,9,11,2013); $theTime = localtime($time); print "$theTime\n"; Result: Mon Dec 9 03:02:01 2013 Wanted output as only Mon

LEARN ABOUT MINIX

date

DATE(1) 						      General Commands Manual							   DATE(1)

NAME

       date - print or set the date and time

SYNOPSIS

       date [-qsu] [[MMDDYY]hhmm[ss]] [+format]

OPTIONS

       -q     Read the date from stdin

       -s     Set the time (implicit for -q or a date string)

       -u     Print the date as GMT

       -t     Use this number of seconds instead of current time

EXAMPLES

       date		   # Print the date and time

       date 0221921610	   # Set date to Feb 21, 1992 at 4:10 p.m.

DESCRIPTION

       With  the  -q flag or a numeric argument, date sets the GMT time and date.  MMDDYY refers to the month, day, and year; hhmmss refers to the
       hour, minute and second.  Each of the six fields must be exactly two digits, no more and no less.  date always display the date	and  time,
       with  the  default format for the system.  The -u flag request GMT time instead of local time.  A format may be specified with a + followed
       by a printf-like string with the following options:

	 %%  % character
	 %A  Name of the day
	 %B  Name of the month
	 %D  mm/dd/yy
	 %H  Decimal hour on 2 digits
	 %I  Decimal hour modulo 12 on 2 digits
	 %M  Decimal minute on 2 digits
	 %S  Decimal seconds on 2 digits
	 %T  HH:MM:SS
	 %U  Decimal week number, Sunday being first day of week
	 %W  Decimal week number, Monday being first day of week
	 %X  Same as %T
	 %Y  Decimal year on 4 digits
	 %Z  Time Zone (if any)
	 %a  Abbreviated name of the day
	 %b  Abbreviated name of the month
	 %c  Appropriate date & time (default format)
	 %d  Decimal day of the month on 2 digits
	 %e  Same as %d, but a space replaces leading 0
	 %h  Same as %b
	 %j  Decimal dey of the year on 3 digits
	 %m  Decimal month on 2 digits
	 %n  Newline character
	 %p  AM or PM
	 %r  12-hour clock time with AM/PM
	 %s  Number of seconds since the epoch
	 %t  Tab character
	 %w  Decimal day of the week (0=Sunday)
	 %x  Same as %D
	 %y  Decimal year on 2 digits

SEE ALSO

       time(2), ctime(3), readclock(8).

																	   DATE(1)