Calendário em linha única

Question

Eu estou tentando manipular o comando cal para me dar saída em uma única linha com data e logo abaixo do dia da semana, para que eu possa usá-lo no excel para um script ou html. Como abaixo.

Wed Thu Fri Sat Sun Mon Tue Wed
 1   2   3   4   5   6   7   8

    

Answer 1

Usando bash (ou ksh93 ) e GNU date :

for (( i = 0; i < 8; ++i )); do
    printf '%s\t' "$( date -d "now +$i days" +"%a" )"
done

echo

for (( i = 0; i < 8; ++i )); do
    printf ' %d\t' "$( date -d "now +$i days" +"%e" )"
done

echo

O formato %a fornecerá o dia abreviado da semana na localidade atual, enquanto %e fornecerá o dia do mês como um inteiro.

Resultado (separado por separadores):

Tue     Wed     Thu     Fri     Sat     Sun     Mon     Tue
 7       8       9      10      11      12      13      14

UPDATE para ksh93 depois dos comentários: (observe que isso não funciona, já que o shell não parece verificar as datas corretamente)

#!/bin/ksh93

yearmonth=$( date +"%Y%m" )

d=1
while printf '%(%a)T\t' "$( printf '%s%02d' "$yearmonth" "$d" )" 2>/dev/null
do
    (( ++d ))
done
echo

days_this_month=$(( --d ))
while (( d > 0 )); do
    printf ' %d\t' "$(( days_this_month - (--d) ))"
done
echo

yearmonth é o primeiro definido para o ano e o mês atuais no formato YYYYMM . Em seguida, faço loop em todos os dias da semana deste mês. O loop define wday como o dia da semana abreviado e termina quando tento obter o dia da semana de uma data inválida.

O segundo loop apenas imprime inteiros, tantos quantos precisarmos preencher o mês.

Saída para fevereiro de 2017:

Wed     Thu     Fri     Sat     Sun     Mon     Tue     Wed     Thu     Fri     Sat     Sun     Mon     Tue     Wed     Thu     Fri     Sat     Sun     Mon     Tue     Wed     Thu     Fri     Sat     Sun     Mon     Tue
 1       2       3       4       5       6       7       8       9       10      11      12      13      14      15      16      17      18      19      20      21      22      23      24      25      26      27      28

Solução usando ksh93 com Perl e Date :: Calc :

#!/bin/ksh93

ym=( $(date +"%Y %m") )

days=$( perl -MDate::Calc -e 'print Date::Calc::Days_in_Month($ARGV[0],$ARGV[1])' -- "${ym[0]}" "${ym[1]}" )

for d in {1..$days}; do
    printf '%(%a)T\t' "$( printf '%d-%d-%02d' "${ym[@]}" "$d" )"
done
echo

for d in {1..$days}; do
    printf '%d\t' "$d"
done
echo

    

Answer 2

Com zsh sozinho (somente builtins):

#! /bin/zsh -
zmodload zsh/datetime
now=$EPOCHSECONDS
strftime -s year %Y $now
strftime -s month %m $now
strftime -rs s %Y,%m,%d,%H $year,$month,1,12
output=()
while
  for field (a d m) strftime -s $field %-$field $s
  ((month == m))
do
  output+=($a $((d)))
  ((s += 86400))
done
print -C $(($#output / 2)) $output

Apenas com bash (4.2 ou superior) (somente builtins), mas assumindo que as abreviaturas do dia da semana têm 3 caracteres ou menos e são todas feitas de caracteres de byte único somente em sua localidade (não funcionará corretamente em muitos locais ao lado dos ingleses).

#! /bin/bash -
printf -v now '%(%s)T' -1

printf -v d '%(%-d)T' "$now"
printf -v h '%(%-H)T' "$now"
printf -v month '%(%-m)T' "$now"

s=$((now +(12-h)*3600 - (d-1) * 86400))

l1= l2=

while
  for field in a d m; do printf -v "$field" "%(%-$field)T" "$s"; done
  ((month == m))
do
  printf -v l1 '%s%-3s ' "$l1" "$a"
  printf -v l2 '%s%-3s ' "$l2" "$d"
  ((s += 86400))
done
printf '%s\n' "$l1" "$l2"

    

Answer 3

Você também pode extrair as linhas correspondentes diretamente da saída cal , da seguinte forma:

>cal|sed -n '2p;/_/p'
Su Mo Tu We Th Fr Sa  
 5  6  7  8  9 10 11

(mas note que cal usará as abreviaturas de dois dias da semana, pelo menos no meu sistema)

    

Answer 4

$ cal | perl -0ne '
   if(/(.*)(Su.*?)\n(\h*)( 1.*?)\s*$/s){
      $s= length($3); 
      $b=$2 x 5; 
      $n= $4 =~ s/[^\d ]//gr; 
      print substr($b,$s,length($n)),"\n$n\n" }'

We Th Fr Sa  Su Mo Tu We Th Fr Sa  Su Mo Tu We Th Fr Sa  Su Mo Tu We Th Fr Sa  Su Mo Tu
 1  2  3  4   5  6  7  8  9 10 11  12 13 14 15 16 17 18  19 20 21 22 23 24 25  26 27 28

Explicação: a saída de cal é dividida pela expressão regular (.*)(Su.*?)\n(\h*)( 1.*?)

 Febr 2017  \nSu Mo Tu We Th Fr Sa  \n          1 2 3 4 \n 5 6 7 8 9 10 11 ...
($1         )($2                   )  ($3     )($4                         ... )

• $2 é usado para construir a barra das semanas ( $b = $2 x 5 )
• $4 é usado para construir a lista dos dias, após remover \n e realçar caracteres ( $n= $4 =~ s/[^\d ]//gr )
• o comprimento de $3 é usado para remover os dias do último mês fora da barra das semanas ( substr($b,$s,length($n)) )