小时和分钟添加

Question

我在solaris 服务器上工作，而date -d 选项不存在。也没有gdate。我知道已经提出了很多与此相关的问题，我几乎都经历了所有这些问题。但我不知道perl，所以我不知道如何根据我的要求修改这些答案。

这是我在 Linux 中所拥有的：

date -d "$hr:$mi $duration minutes" +'%H%M'

其中$hr 和$mi 是小时和分钟，$duration 是分钟。

当我在 Linux 中这样运行时，我得到了这个：

date -d "23:28 60 minutes" +'%H%M'
0028

我怎样才能获得在 Solaris 中工作的 perl 等效项（可能是单行？）？

编辑：添加awk 标签以查看是否有解决方案，因为我的perl 是古老的。感谢您的帮助，伙计们。

编辑（2）：我和here 有同样的问题，只是我没有使用date -d 的奢侈。我对python 或perl 中的任何解决方案持开放态度，不必是单一的。

PS：检查This，没有tclsh。也检查了This，不知道那里发生了什么！

Answer 1

Solaris 在很多方面都落后于时代。它的date 命令缺少很多东西，比如处理Linux 风格的-d 选项或BSD 风格的-v 选项的能力。 Solaris 的 strftime() 缺少一堆东西（这会影响可用的日期格式），perl 很古老，awk 很古老......

多年来，我一直在 Solaris 上使用以下 hack，以获取当前纪元秒数：

truss /usr/bin/date 2>&1 | awk '/^time/{print $NF}'

据我所知，使用任何 POSIX 工具都无法转换另一种方式，但由于您有可用的 perl，因此以下方法可能有效：

perl -le 'print scalar localtime $ARGV[0]' 1510329000

在双向进行此转换后，您可以对其进行数学运算以调整日期。例如：

$ date
Fri Nov 10 10:24:31 EST 2017
$ now=$( truss /usr/bin/date 2>&1 | awk '/^time/{print $NF}' )
$ then=$( perl -le 'print scalar localtime $ARGV[0]' $((now+3600)) )
$ echo "$then"
Fri Nov 10 11:24:46 2017

为了将任意 GMT 日期/时间转换为纪元秒，我在多年前继承了以下 bash 代码。 YMMV。

# Use whatever process you like to populate these variables.
# Note that since epoch zero was at midnight GMT, this time is GMT as well.
read year month day hour minute second <<<"2017 11 10 15 50 00"

if [[ $month -gt 2 ]]; then
  (( month++ ))
else
  (( month+=13 ))
  (( year-=1 ))
fi

day=$(( (year*365)+(year/4)-(year/100)+(year/400)+(month*306001/10000)+day ))
days_since_epoch=$(( day-719591 ))   # this seems to be close to Jan 1 1970
seconds_since_epoch=$(( (days_since_epoch*86400)+(hour*3600)+(minute*60)+second ))

echo "epoch: $seconds_since_epoch"

此代码的大部分旨在说明闰年和秒。我没有深入研究神奇数字的起源，但结果似乎有效，我不会质疑它们。 :)

如您在问题中所示，要从 perl 中获取小时和分钟，您可能可以使用以下代码：

perl -le 'my ($h,$m) = (localtime($ARGV[0]))[2,1]; printf("%02d%02d\n",$h,$m);' 1510329000

或

perl -le 'use POSIX "strftime"; print strftime("%H%M", localtime($ARGV[0]));' 1510329000

你不乐于使用像 Solaris 这样经典的操作系统吗？

另见：

• A bunch of date conversion tips for different languages