perl ou shell - convertir date en semaine Fermé

Question

Bonjour,


Je recherche un module PERL qui me permettra de connaitre le numéro de semaine lorsque j'indique deux dates d'une même semaine.

Par exemple je lance un script pour la semaine du 08/11/2009 au 14/11/2009 et je souhaite récupèrer : semaine 45.

Est ce que vous en connaissez un ?

Merci.

lami20j · Answer

Salut,

Avec la commande date 
lami20j@debian-acer:~$ date '+%W' --date="2009/12/30"
52
lami20j@debian-acer:~$ date '+%W' --date="2009/11/10"
45

Sinon tu as le module WeekOfYear

wafa_o · Answer

Salut lami20j, 

Merci, la commande date me convient. Par contre, comment se fait il que pour :

date '+%W' --date="2009/11/10"
le résultat soit 45 alors qu'il s'agit de la semaine 46 ?

lami20j · Answer

Re,

Par exemple je lance un script pour la semaine du 08/11/2009 au 14/11/2009 et je souhaite récupèrer : semaine 45. 

Tu le croyais aussi que c'est 45 ;-)))

C'est peut être puisque pour 01 janvier c'est la semaine zéro

~$ date '+%W' --date="2009/01/01"
00

Alors il faut ajouter 1
lami20j@debian-acer:~$ echo $(( $(date '+%W' --date="2009/11/10") + 1))
46
lami20j@debian-acer:~$ ^C
lami20j@debian-acer:~$ echo $(( $(date '+%W' --date="2009/01/01") + 1))
1

wafa_o · Answer

Super ! Ca fonctionne.
Bonne journée

jipicy · Answer

Salut,

Ou :

date '+%V' --date="2009/11/10"
;-))

wafa_o · Answer

Effectivement, j'ai utilisé '+%V'  au lieu de '+%W' ... +1

wafa_o · Answer

Bonjour,

A ce sujet, j'ai une autre question svp.
Ce que je souhaite avoir en sortie 
01 TEST

(01 est le numéro de semaine)


Voilà mon code :
print FILE`date '+%V' --date="2010/01/04`;
print FILE "TEST
"; 

Le problème c'est que j'ai un saut de ligne entre la semaine et TEST. J'obtiens :
01
TEST


Comment résoudre la problème ?

lami20j · Answer

Salut,

$ cat date.pl
#!/usr/bin/perl
use strict;use warnings;
open FILE, ">plop" or die "E/S plop : $!
";
chomp(my $date=qx#date '+%V' --date="2010/01/04"#);
print FILE "$date TEST
";
__END__
$ perl date.pl
$ cat plop
01 TEST

wafa_o · Answer

Merci, juste une question pour ma compréhension, à quoi correspond qx ?

lami20j · Answer

Salut,

qx// est la même chose que les apostrophes inverses `` que je n'ai pas pus taper dans ma console ;-)
C'est un opérateur pour capturer le résultat d'une commande système.

Voir dans man perlop
qx/CHAINE/ 

`CHAINE`

Une chaîne qui est (éventuellement) interpolée puis exécutée comme une commande système par /bin/sh ou équivalent. Les jokers, tubes (pipes) et redirections sont pris en compte. L'ensemble de la sortie standard de la commande est renvoyé ; la sortie d'erreur n'est pas affectée. Dans un contexte scalaire, le résultat est retourné comme une seule chaîne (potentiellement multi-lignes) ou undef si la commande échoue. Dans un contexte de liste, le résultat est une liste de lignes (selon la définition des lignes donnée par $/ ou $INPUT_RECORD_SEPARATOR) ou la liste vide si la commande échoue. --
106485010510997108

Perl ou shell - convertir date en semaine

10 réponses

Discussions similaires