☰

Вычисление дат без инструментов GNU

tag-icon • tag-icon date
Вычисление дат без инструментов GNU

Мне нужно выполнить некоторые вычисления и преобразования дат в скрипте оболочки. Например, вычислить разницу в днях между датой, отформатированной как Nov 28 20:27:19 2012 GMTи сегодня.

Есть несколько возможностей (GNU date, gawk, perlи т. д.), но я хотел бы иметь возможность запускать его на системах без инструментов GNU (например, BSD, Solaris и т. д.)

На данный момент наиболее портативным решением у меня является Perl, но для преобразования дат может потребоваться установка дополнительных модулей.

Что мне выбрать?

Редактировать: просматривая комментарии, я понял, что мне нужно уточнить, что инструмент, который я пишу, будет распространяться публично. Я не ищу способ выполнять вычисления на моей машине или как устанавливать инструменты GNU.

Я хочу использовать инструменты, которые, скорее всего, найдутся на большинстве машин.

решение1

Мое решение короткое, и ранее я писал версии на C, Lua, Python, Perl, Awk, Ksh и Csh (версия ниже — ksh.) На некоторые конкретные вопросы вы можете ответить с помощью ansi_dn, nd_isna и dow: Если дана дата ГГГГ ММ ДД, какая дата будет через 100 дней до или после? Если дана дата, какой день недели? Если даны две даты, сколько дней между ними?

#==========================================================================
# Calendar operations: Valid for dates in [1601-01-01, 3112-12-30].
# Adapted from a paper by B.E. Rodden, Mathematics Magazine, January, 1985.
#==========================================================================
# ANSI day number, given y=$1, m=$2, d=$3, starting from day number 1 ==
# (1601,1,1).  This is similar to COBOL's INTEGER-OF-DATE function.
function ansi_dn {
  integer y=$1 ys=$(($1-1601)) m=$2 d=$3 s dn1 isleap h
  ((isleap = y%4==0 && (y%100!=0 || y%400==0) ))
  ((dn1 = 365*ys + ys/4 - ys/100 + ys/400)) # first day number of given year.
  ((s = (214*(m-1) + 3)/7 + d - 1)) # standardized day number within year.
  ((h = -2*(!isleap && s>58) - (isleap && s>59) )) # correction to actual dn.
  print -- $((1 + dn1 + s + h))
}
# Inverse of ansi_dn, for adn=$1 in [1, 552245], with returned dates in
# [1601-01-01, 3112-12-30].  Similar to COBOL's DATE-OF-INTEGER function.
function nd_isna {
  integer y a s ys d0=$(($1-1)) dn1 isleap h
  typeset -Z2 m d
  ((ys = d0/365))
  ((365*ys + ys/4 - ys/100 + ys/400 >= $1)) && ((ys -= 1))
  ((dn1 = 365*ys + ys/4 - ys/100 + ys/400))
  ((y = 1601 + ys))
  ((a = d0 - dn1))
  ((isleap = y%4==0 && (y%100!=0 || y%400==0) ))
  ((h = -2*(!isleap && a>58) - (isleap && a>59) ))
  ((s = a - h))
  ((m = (7*s + 3)/214 + 1))
  ((d = s - (214*(m-1) + 3)/7 + 1))
  print -- $y $m $d
}
# Day of the week, given $1=ansi_dn.  0==Sunday, 6==Saturday.
function dow { print -- $(($1%7)); }

решение2

Раньше мне приходилось делать это методом грубой силы и с помощью вычислений в скрипте оболочки.

Делать это вручную в скрипте оболочки очень подвержено ошибкам и медленно. Вам нужно учитывать дни в месяце, високосные годы, часовые пояса. Это не сработает с разными локалями и разными языками.

Я исправил один из своих старых скриптов. Его, вероятно, придется модифицировать для разных оболочек, но в нем нет ничего, что нельзя было бы изменить для работы в любой оболочке.

#!/bin/sh 

datestring="Nov 28 20:27:19 2012 GMT"
today=`date`

function date2epoch {

month=$1
day=$2
time=$3
year=$4
zone=$5

# assume 365 day years
epochtime=$(( (year-1970) * 365 * 24 * 60 * 60 ))

# adjust for leap days
i=1970
while [[ $i -lt $4 ]]
do
    if [[ 0 -eq $(( i % 400 )) ]]
    then
        #echo $i is a leap year
        # divisible by 400 is a leap year
        epochtime=$((epochtime+24*60*60))
    elif [[ 0 -eq $(( i % 100 )) ]]
    then
        #echo $i is not a leap year
        epochtime=$epochtime
    elif [[ 0 -eq $(( i % 4 )) ]]
    then
        #echo $i is a leap year
        # divisible by 4 is a leap year
        epochtime=$((epochtime+24*60*60))
    #   epoch=`expr $epoch + 24 * 60 * 60`
    fi

    i=$((i+1))
done    

dayofyear=0
for imonth in Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
do
    if [[ $month == $imonth ]]
    then
        break
    fi

    case $imonth in
    'Feb')
        if [[ 0 -eq $(( year % 400 )) ]]
        then
            days=29
        elif [[ 0 -eq $(( year % 100 )) ]]
        then
            days=28
        elif [[ 0 -eq $(( year % 4 )) ]]
        then
            days=29
        fi
    ;;

    Jan|Mar|May|Jul|Aug|Oct|Dec) days=31 ;;
    *) days=30 ;;
    esac

    #echo $imonth has $days days
    dayofyear=$((dayofyear + days))
done
## add the day of the month 
dayofyear=$((dayofyear+day))
#echo $dayofyear

########## Add the day fo year (-1) to the epochtime
#(-1, since eg. Jan 1 is not 24 hours into Jan1 )

epochtime=$((epochtime + (dayofyear -1) * 24*60*60))
#echo $epochtime
################## hours, minutes, seconds
OFS=$IFS
IFS=":"
set -- $time
hours=$1
minutes=$2
seconds=$3
epochtime=$((epochtime + (hours * 60 * 60) + (minutes * 60) + seconds))
IFS=$OFS

################## Time zone

case $zone in
'GMT') zonenumber=0
break;;
'EST') zonenumber=-5
break;;
'EDT') zonenumber=-4
break;;
esac

epochtime=$((epochtime + zonenumber * 60 * 60 ))

echo $epochtime
}

result=`date2epoch $datestring`

echo $result

Вероятно, я где-то ошибся и, возможно, есть лучший способ. Дайте мне знать, если найдете ошибку или лучший способ.

Получив время эпохи, вы можете выполнить некоторые полезные вычисления... хотя преобразование его обратно в дату без утилит GNU... потребует выполнения вышеописанных действий в обратном порядке...

решение3

Вы могли бы использовать мойdateutils. Они переносимы, но можно с уверенностью предположить, что они нигде не установлены. Однако просто отправьте исходный код (старый добрый C) или двоичные файлы.

решение4

Для меня наиболее логичным было бы использовать возможности оболочки по работе с датой и временем? Например, для bash:http://ss64.com/bash/date.html

Связанный контент