GMT -4 to determine day of week Post: 302530239

Sponsored Content

Top Forums Shell Programming and Scripting GMT -4 to determine day of week Post 302530239 by jim mcnamara on Monday 13th of June 2011 10:37:47 AM

06-13-2011

Registered User

This is what the TZ variable does

Code:

#!/bin/ksh                                                              
# input format YYYY-MM-DD prints day name                               
dow()                                                                   
{                                                                       
 perl -e '                                                              
  use POSIX qw(strftime);                                               
  $fmt = "%A";  # %a = abbreviated weekday %u = weekday number          
  $mday = substr("$ARGV[0]", 8, 2);                                     
  $mon =  substr("$ARGV[0]", 5 ,2);                                     
  $year = substr("$ARGV[0]", 0 ,4);                                     
  $weekday =                                                            
    strftime($fmt, 0, 0, 0, $mday , $mon - 1, $year - 1900, -1, -1, -1);
  print "$weekday";                                                     
  ' "$1"                                                                
}                                                                       
for foo in -12 -11 -10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +10 +11
do
    FOO="FOO"${foo}
    export TZ=$FOO
    echo "TZ=${FOO}: `date`"
    echo "$(dow `date "+%Y-%m-%d"` )"                                       
done
echo '*****************  GMT -4'
export TZ=GMT-4
    echo "TZ=${TZ}: `date`"
    echo "$(dow `date "+%Y-%m-%d"` )"

So, if you do this

Code:

dow()  
{
 export TZ=GMT-4
 perl -e '
  use POSIX qw(strftime);
  $fmt = "%A";  # %a = abbreviated weekday %u = weekday number 
  $mday = substr("$ARGV[0]", 8, 2);
  $mon =  substr("$ARGV[0]", 5 ,2);
  $year = substr("$ARGV[0]", 0 ,4);
  $weekday =
    strftime($fmt, 0, 0, 0, $mday , $mon - 1, $year - 1900, -1, -1, -1);
  print "$weekday";
  ' "$1"
}

you are assured of the time zone setting.

This User Gave Thanks to jim mcnamara For This Post:

jim mcnamara

View Public Profile for jim mcnamara

Find all posts by jim mcnamara

10 More Discussions You Might Find Interesting

1. Programming

Function that gets the day of the week (0-6) ??

Hi , I am working at Unix system,using c lang. I need c fun which return the day of the week . For example : 0- Sunday. 1- Monday. .... 10x.

2. Shell Programming and Scripting

Yesterday's Day of week

I need o get yesterday's day of week but im not exactly sure. the actual name is what i want. I can do it with numbers but im not sure with words.

3. UNIX for Dummies Questions & Answers

Changing First Day Of The Week?

Hi All, Our system is running on Solaris 8 and we are using US locale. By default the First Day Of Week is Sunday, is it possible for us to change it to Monday? I have googled it but found very little of use. THanks in advance.

4. HP-UX

Get Day of Week from date

Hi All, I have date in string format 'YYYY-MM-DD'. I want to know day of the week for this date. Example. For '2005-08-21' my script should return '0' or Sunday For '2005-08-22' it should return '1' or Monday I want piece of code for HP-UX korn shell. Appreciate reply on this.

5. Shell Programming and Scripting

determine last day of the month

In a ksh script how do I determine if I am on the last day fo the month ? thanks

6. Shell Programming and Scripting

Get day of week from cal

Hi all, I am trying to get dow from cal using below script #! /bin/bash YEAR=`echo $1 | cut -c 1-4` MONTH=`echo $1 | cut -c 5-6` DAY=`echo $1 | cut -c 7-8` for i in 1 2 3 4 5 6 7 do dayofweek=`cal $MONTH $YEAR | awk '$i == $DAY {printf("%s","$i")}'` echo $dayofweek...

7. UNIX for Dummies Questions & Answers

Day of the week from a string

Hi All, I need to know how to derive the day of the week by passing the value in following format: Feb 28 2010 The output I'm expecting is Sunday or Sun. I know, I can use the following code to get the day of the week. date +%a But I want to pass the value as a string. Please help...

8. HP-UX

Find Day of Week

In HP-UX the date command does not have the "-d" switch like some other *nixes do. I'm working a simple script to tell me, given the day, month and year what day of the week that falls on. Assuming valid day, month and year input (I'd perform quality checks on the input separately, but not...

9. UNIX for Dummies Questions & Answers

Sudoers for one day per week?

I have been volunteered by my boss to be the sysadmin for our production redhat server. He asked me to tighten the security to avoid mishaps like "rm -f *" that occured not long ago. Right now, we have 53 users sudo-ing into the machine and it is an audit nightmare. I am wondering if it...

10. Shell Programming and Scripting

Get the week's day

Hi All, I have the below requirement , if i give the week number for ex 41 i need to get the date for Monday and thursday for this given week. my expected output is 13/10/2014 (Monday's date) and 16/10/2014 (Thursday's date) I am using GNU LINUX . Pls help me with your thoughts. Thanks in...

LEARN ABOUT REDHAT

http::date

HTTP::Date(3)						User Contributed Perl Documentation					     HTTP::Date(3)

NAME

       HTTP::Date - date conversion routines

SYNOPSIS

	use HTTP::Date;

	$string = time2str($time);    # Format as GMT ASCII time
	$time = str2time($string);    # convert ASCII date to machine time

DESCRIPTION

       This module provides functions that deal the date formats used by the HTTP protocol (and then some more).  Only the first two functions,
       time2str() and str2time(), are exported by default.

       time2str( [$time] )
	   The time2str() function converts a machine time (seconds since epoch) to a string.  If the function is called without an argument, it
	   will use the current time.

	   The string returned is in the format preferred for the HTTP protocol.  This is a fixed length subset of the format defined by RFC 1123,
	   represented in Universal Time (GMT).  An example of a time stamp in this format is:

	      Sun, 06 Nov 1994 08:49:37 GMT

       str2time( $str [, $zone] )
	   The str2time() function converts a string to machine time.  It returns "undef" if the format of $str is unrecognized, or the time is
	   outside the representable range.  The time formats recognized are the same as for parse_date().

	   The function also takes an optional second argument that specifies the default time zone to use when converting the date.  This parame-
	   ter is ignored if the zone is found in the date string itself.  If this parameter is missing, and the date string format does not con-
	   tain any zone specification, then the local time zone is assumed.

	   If the zone is not ""GMT"" or numerical (like ""-0800"" or "+0100"), then the "Time::Zone" module must be installed in order to get the
	   date recognized.

       parse_date( $str )
	   This function will try to parse a date string, and then return it as a list of numerical values followed by a (possible undefined) time
	   zone specifier; ($year, $month, $day, $hour, $min, $sec, $tz).  The $year returned will not have the number 1900 subtracted from it and
	   the $month numbers start with 1.

	   In scalar context the numbers are interpolated in a string of the "YYYY-MM-DD hh:mm:ss TZ"-format and returned.

	   If the date is unrecognized, then the empty list is returned.

	   The function is able to parse the following formats:

	    "Wed, 09 Feb 1994 22:23:32 GMT"	  -- HTTP format
	    "Thu Feb  3 17:03:55 GMT 1994"	  -- ctime(3) format
	    "Thu Feb  3 00:00:00 1994", 	  -- ANSI C asctime() format
	    "Tuesday, 08-Feb-94 14:15:29 GMT"	  -- old rfc850 HTTP format
	    "Tuesday, 08-Feb-1994 14:15:29 GMT"   -- broken rfc850 HTTP format

	    "03/Feb/1994:17:03:55 -0700"   -- common logfile format
	    "09 Feb 1994 22:23:32 GMT"	   -- HTTP format (no weekday)
	    "08-Feb-94 14:15:29 GMT"	   -- rfc850 format (no weekday)
	    "08-Feb-1994 14:15:29 GMT"	   -- broken rfc850 format (no weekday)

	    "1994-02-03 14:15:29 -0100"    -- ISO 8601 format
	    "1994-02-03 14:15:29"	   -- zone is optional
	    "1994-02-03"		   -- only date
	    "1994-02-03T14:15:29"	   -- Use T as separator
	    "19940203T141529Z"		   -- ISO 8601 compact format
	    "19940203"			   -- only date

	    "08-Feb-94" 	-- old rfc850 HTTP format    (no weekday, no time)
	    "08-Feb-1994"	-- broken rfc850 HTTP format (no weekday, no time)
	    "09 Feb 1994"	-- proposed new HTTP format  (no weekday, no time)
	    "03/Feb/1994"	-- common logfile format     (no time, no offset)

	    "Feb  3  1994"	-- Unix 'ls -l' format
	    "Feb  3 17:03"	-- Unix 'ls -l' format

	    "11-15-96  03:52PM" -- Windows 'dir' format

	   The parser ignores leading and trailing whitespace.	It also allow the seconds to be missing and the month to be numerical in most for-
	   mats.

	   If the year is missing, then we assume that the date is the first matching date before current month.  If the year is given with only 2
	   digits, then parse_date() will select the century that makes the year closest to the current date.

       time2iso( [$time] )
	   Same as time2str(), but returns a "YYYY-MM-DD hh:mm:ss"-formatted string representing time in the local time zone.

       time2isoz( [$time] )
	   Same as time2str(), but returns a "YYYY-MM-DD hh:mm:ssZ"-formatted string representing Universal Time.

SEE ALSO

       "time" in perlfunc, Time::Zone

COPYRIGHT

       Copyright 1995-1999, Gisle Aas

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

libwww-perl-5.65						    2002-03-07							     HTTP::Date(3)

10 More Discussions You Might Find Interesting

1. Programming

Function that gets the day of the week (0-6) ??

Discussion started by: kamil

2. Shell Programming and Scripting

Yesterday's Day of week

Discussion started by: rcunn87

3. UNIX for Dummies Questions & Answers

Changing First Day Of The Week?

Discussion started by: fowlerleftfoot

4. HP-UX

Get Day of Week from date

Discussion started by: vpapaiya