☰

Как отмечать даты, которые уже прошли?

tag-icon • tag-icon text-processing sed date
Как отмечать даты, которые уже прошли?

Из ответов я обновил вопрос:

Теперь это:

$ date "+%F %H:%M"
2014-06-04 11:26

Это входные данные:

$ cat input.txt 
<tr><td>2014-04-24 14:01</td><td>2014-06-04 11:30</td><td>2014-06-04 11:23</td></tr>

Это текущий скрипт Perl (который работает ОТЛИЧНО!, не хватает только часов/минут)

$ cat a.txt 
perl -MTime::Piece -pe '
    BEGIN {$today = localtime->ymd}
    @days = $_ =~ /<td>(.+?)<\/td>/g;
    for $d (@days) {
      $_ =~ s!$d!<font style=BACKGROUND-COLOR:red>$d</font>!g if $d lt $today;
      }' input.txt

И теперь он выдает такой вывод:

$ bash a.txt 
<tr><td><font style=BACKGROUND-COLOR:red>2014-04-24 14:01</font></td><td>2014-06-04 11:30</td><td>2014-06-04 11:23</td></tr>

Наш вопрос: Как мы можем пометить прошедшие даты - часы:минуты тоже! - красным? Текущее решение Perl нужно обновить, так как оно не помечает "2014-06-04 11:23" красным, но это прошедшая дата!

ps: - несколько дат могут быть в одной строке - это работает
- прошедшие дни отмечены красным - это работает
- я пробовал использовать "datetime" вместо "ymd" (http://perldoc.perl.org/Time/Piece.html) - но это не сработало, возможно из-за того, что в input.txt вместо "\t" стоит " "? - +просто примечание, я уже нашел, как отметить завтра:

sed -i "s/<td>\(`date +%F -d '+1 day'`\)/<td><font style=BACKGROUND-COLOR:lightgreen>\1<\/font>/g" in.txt

решение1

Другое perlрешение — использовать Time::Pieceмодуль, как в ответе @choroba:

$ perl -MTime::Piece -pe '
BEGIN {$today = localtime->ymd." ".localtime->hms}
    s!($1)!<font style=BACKGROUND-COLOR:red>$1</font>!g
    if /<td>(.+?)<\/td>/g and $1 lt $today;
' in.txt
asfsaf<td><font style=BACKGROUND-COLOR:red></font> kjycasfd
FKZF<td>2014-05-09 lkjafsa
sdfg<td>2014-05-13 asdf
sfjlaslfsaljf <td><font style=BACKGROUND-COLOR:red></font> DIJIZLOF

Обновлять

Если у вас в одной строке несколько прошедших дат, попробуйте:

$ perl -MTime::Piece -pe '
    BEGIN {$today = localtime->ymd." ".localtime->hms}
        @days = $_ =~ /<td>(.+?)<\/td>/g;
        for $d (@days) {
          $_ =~ s!$d!<font style=BACKGROUND-COLOR:red>$d</font>! if $d lt $today;
      }' in.txt
<tr><td><font style=BACKGROUND-COLOR:red>2014-04-24 00:01</font></td><td>2014-06-24 00:01</td><td><font style=BACKGROUND-COLOR:red>2014-05-13 00:00</font></td></tr>

Объяснение

  • Мы сохраняем все даты в строке @daysмассива.
  • Для каждой даты мы проверяем, если она меньше сегодняшней, то заменяем ее.

решение2

Решение Perl:

< in.txt perl -MTime::Piece -pe '
    BEGIN { $t = localtime->ymd }
    if (/([0-9]{4}-[0-9]{2}-[0-9]{2})/ and $1 lt $t) {
        s=($1)=<red>$1</red>=g
    }'

В основном, ymdметодВремя::Частьвозвращает текущую дату в ожидаемом формате. Затем вы можете использовать простое сравнение строк, чтобы получить прошедшие даты.

ОБНОВЛЯТЬ: Чтобы обработать несколько дат в одной строке, необходимо изменить код:

< in.txt perl -MTime::Piece -pe '
    BEGIN { $t = localtime->ymd }
    push @d, $1 while /([0-9]{4}-[0-9]{2}-[0-9]{2})/g;
    for my $d (@d) {
        $d lt $t and s=($d)=<red>$1</red>=g;   
    }'

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