用date-n小時替換日期

Question

我試圖用時間減去7小時來替換格式爲YYYYMMDDHHMMSS的日期的出現次數。

的文件應該是這樣的

File with text and some dates 20140716223000 20140716013000 

，我想輸出看起來像

File with text and some dates 20140716153000 20140715183000 

我能想出了一個perl subsitition最好的：

perl -ape 's/(-*\d+.\d+)/$1-70000/ge' file.txt 

但顯然這是不做日期扣除，但簡單的算術。任何bash或perl語句都適用於我。也許是sed或awk聲明？謝謝！

Answer 1

使用GNU AWK的gensub（）和時間功能：

$ cat tst.awk 
{ 
    head = "" 
    tail = $0 
    while (match(tail,/\<[[:digit:]]{14}\>/)) { 
     oldTime = substr(tail,RSTART,RLENGTH) 

     secs = mktime(gensub(/(....)(..)(..)(..)(..)(..)/,"\\1 \\2 \\3 \\4 \\5 \\6","",oldTime)) 
     newTime = strftime("%Y%m%d%H%M%S", secs - (7 * 60 * 60)) 

     head = head substr(tail,1,RSTART-1) newTime 
     tail = substr(tail,RSTART+RLENGTH) 
    } 
    print head tail 
} 
$ 
$ awk -f tst.awk file 
File with text and some dates 20140716153000 20140715183000 

Answer 2

並非所有的問題都應該使用正則表達式。

如何使用Date :: Calc？它是正是你所需要的功能：

($year,$month,$day, $hour,$min,$sec) = Add_Delta_DHMS($year,$month,$day, $hour,$min,$sec, $Dd,$Dh,$Dm,$Ds); 

你也可以使用一個簡單的正則表達式來打破日期字符串的年/月/日/時/分/秒variables.and的$ DX參數可以是負面的。

請注意，我希望當你說「減去7小時」時，你並不是想要做時區數學。因爲用不同的解決方案這是一個不同的問題。

Answer 3

您可以利用Time::Piece來解析日期時間字符串並進行算術運算。它是Perl 5版本10以來的核心模塊，因此不需要安裝。

相關的Time::Seconds模塊以秒爲單位提供各種時間間隔的有用常量。

該程序按照您的要求使用可執行替換，就像您在問題中所做的那樣。請注意，它不會正確處理夏令時，因爲它只是簡單地從每個值中減去25,200秒。

use strict; 
use warnings; 
use 5.010; 

use Time::Piece; 
use Time::Seconds qw/ ONE_HOUR /; 

my $text = 'File with text and some dates 20140716223000 20140716013000'; 

say "Before: $text"; 

$text =~ s{(\d{14})}{ 
    my $dt = Time::Piece->strptime($1, '%Y%m%d%H%M%S'); 
    $dt -= 7 * ONE_HOUR; 
    $dt->strftime('%Y%m%d%H%M%S'); 
}ge; 

say " After: $text"; 

輸出

Before: File with text and some dates 20140716223000 20140716013000 
After: File with text and some dates 20140716153000 20140715183000 

Answer 4

既然你有GNU bash中，你最有可能有GNU Coreutils的太多，所以你爲什麼不使用GNU date？

$ cat file 
File with text and some dates 20140716223000 20140716013000 

$ cat script 
#!/bin/bash 

while read -a LINE; do 
    for i in "${!LINE[@]}"; do 
     [[ ${LINE[$i]} =~ ^[0-9]{14}$ ]] && { 
      DATE="${LINE[$i]}" 
      YEAR="${DATE:0:4}" 
      MONTH="${DATE:4:2}" 
      DAY="${DATE:6:2}" 
      HOUR="${DATE:8:2}" 
      MINUTE="${DATE:10:2}" 
      SECOND="${DATE:12:2}" 
      NEWDATE="$(date -d \ 
       "-7 hours ${YEAR}-${MONTH}-${DAY}T${HOUR}:${MINUTE}:${SECOND}" \ 
       +'%Y%m%d%H%M%S')" 
      LINE[$i]="$NEWDATE" 
     } 
    done 
    echo "${LINE[@]}" 
done < "$1" 

$ ./script file 
File with text and some dates 20140716153000 20140715183000