Discussion :

[Konrad Florczak]

Bonjour je dois m'amuser à faire des backups de fichiers à partir d'un server ftp.
Pas de problemes sur le coté Net::FTP.

Mon souci vient de la récupération du localtime que je dois fractionner et jouer avec.

J'ai téléchargé ce script sur le net mais ca a pas l'air de vouloir fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sub get_todays_date
{
       # /* Get The Current Date (Open As A new Thread) */
       open(DT, "date +\%D |");
 
               # /* Store The Date In Variable $rawdate, and remove any new line characters */
               chomp($rawdate = <DT>);
 
       # /* Close The "Date" Process */
       close(DT);
 
       # /* Rip Apart The Raw Date Into Respective Parts */
       ($month, $day, $year) = split(/\//, $rawdate);
 
       # /* Format The Parts Of The Date Into Our Desired Format */
       $good_date = "20$year-$month-$day";
 
       # /* Return The Formated Date Back To Our Main Program From This Sub */
       return $good_date;
}

auriez-vous d'autres scripts déjà fait ?

J'aurais de la gestion du type jour d'avant . Donc le 01 octobre je risque d'avoir un souci...
Merci pour vos réponses

[Jedai]

Ce script est absolument nul, vu qu'il utilise des outils externes pour faire des choses disponibles directement à partir de Perl, en plus personnellement ce genre de ligne ne m'inspire pas confiance :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
       # /* Format The Parts Of The Date Into Our Desired Format */
       $good_date = "20$year-$month-$day";

(Et si tu as une date dans les 1900 ?...)

Donc soit tu apprends à utiliser les fonctions de Perl : time, localtime, gmtime, timelocal et compagnie et tu fais preuve d'astuce pour gérer les "jour d'avant" (par exemple soustraire 3600*24 au timestamp correspondant...), soit tu utilises une solution complète pratique et confortable du type DateTime .

--
Jedaï

[Arioch]

Bonsoir Konrad, fais pas attention à Jedai, il est du genre grognon

Le script ci-dessous est un script Perl que j'utilise à des fins personnelles/professionnelles et qui récupère la date actuel au format AAAAMMJJ.

A la fin, tu verras une section t'intéressant : je retire 1 au jour (et au mois selon le cas !) pour récupérer la date de la veille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
31
 
# on récupère juste l'année, le mois et le jour (le reste est inutilisé ici ou undef)
my (undef, undef, undef, $Mjour, $Mois, $Annee, undef, undef, undef) = localtime(time);
 
# quelques bidouilles sur les valeurs récupérées
$Annee += 1900;
$Mois += 1;
$Mois = 1 if ($Mois == 13);
 
# hash stockant les derniers jours d'un mois (clé = mois, value = dernier jour)
# Attention aux années bisextiles !!!
my %Hash = qw(1 31 2 28 3 31 4 30 5 31 6 30 7 31 8 31 9 30 10 31 11 30 12 31);
 
# on récupère le jour précédent (la veille en fait, si je me souviens bien ;o)  )
# attention au mois de janvier !
if ($Mois == 1 && $Mjour == 1) {
        $Mjour = 31;
        $Mois = 12;
        $Annee -= 1;
} elsif ($Mjour == 1) {
        $Mois -= 1;
        $Mjour = $Hash{$Mois};
} else {
        $Mjour -= 1;
}
 
# ici, on rajoute un 0 devant le jour et/ou le mois pour faire apparaître la valeur sur 2 caractères
$Mjour = '0' . $Mjour if ($Mjour < 10);
$Mois = '0' . $Mois if ($Mois < 10);
 
print "hier, nous étions le $Mjour/$Mois de l'année $Annee\n";

[2Eurocents]

fais pas attention à Jedai, il est du genre grognon

Quand bien même ... Il a entièrement raison sur le fond.

[rcageot]

perso j'utilise depuis des années ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
############################################################################
# Current and Yesterday's date management
#------------------------------
# Current Date
#------------------------------
($Seconde_now,$Minute_now,$Hour_now,
       $Day_now,$Month_now,$Year_now,
       $Weekday_now,$Yearday_now,$isdst_now) = localtime(time);
$Day_now          = sprintf("%.02d",$Day_now);
$Month_now        = $Month_now +1;
$Month_now        = sprintf("%.02d",$Month_now);
$Yearday_now      = $Yearday_now + 1;
$Year_now         = $Year_now + 1900;
$Seconde_now      = sprintf("%.02d",$Seconde_now);
$Minute_now       = sprintf("%.02d",$Minute_now);
$Hour_now         = sprintf("%.02d",$Hour_now);
$Weekday_now      = sprintf("%.02d",$Weekday_now);
$Week_Number_now  = int( ( $Yearday_now + 1 - $Weekday_now ) / 7 );
if ($Weekday_now < 6) {
	$Week_Number_now += 1;
}
 
#------------------------------
# Yesterday's Date
#------------------------------
$yesterday = time() - ( 24 * 60 * 60 );  
($Seconde,$Minute,$Hour,
       $Day,$Month,$Year,
       $Weekday,$Yearday,$isdst) = localtime($yesterday);
$Month            = $Month +1;
$Day              = sprintf("%.02d",$Day);
$Month            = sprintf("%.02d",$Month);
$Yearday          = $Yearday + 1;
$Year             = $Year + 1900;
$Seconde          = sprintf("%.02d",$Seconde);
$Minute           = sprintf("%.02d",$Minute);
$Hour             = sprintf("%.02d",$Hour);
$Weekday          = sprintf("%.02d",$Weekday);
$Week_Number      = int( ( $Yearday + 1 - $Weekday ) / 7 );
# Add 1 if today isn't Saturday
if ($Weekday < 6) {
	$Week_Number += 1;
}
$Week_Number = sprintf("%.02d",$Week_Number);

si ça peut aider !

[Arioch]

Quand bien même ... Il a entièrement raison sur le fond.

Pour avoir suivi le 1er post tout récent de Konrad dans notre rubrique préférée, je crois surtout qu'on l'a plongé tout de go dans un travail à faire en Perl et qu'il est pressé par le temps.

Dans ces conditions, il est facile de s'adonner à de basses vilainies comme de récupérer un script sur le net, pensant qu'il fera exactement ce que l'on souhaite

[2Eurocents]

Pour avoir suivi le 1er post tout récent de Konrad dans notre rubrique préférée, je crois surtout qu'on l'a plongé tout de go dans un travail à faire en Perl et qu'il est pressé par le temps.

Oui, j'ai remarqué et suivi aussi ...

Et pour avoir subi ce genre de situation, je sais que ce n'est pas le meilleur moyen de découvrir et d'apprécier un nouveau langage.

Dans ces conditions, il est facile de s'adonner à de basses vilainies comme de récupérer un script sur le net, pensant qu'il fera exactement ce que l'on souhaite

Tout à fait ... et il est facile de négliger la vraie solution qui consiste à s'appuyer sur les modules - testés, approuvés et éprouvés - tels que celui proposé par Jedaï.

Même les "trucs" à base d'addition/soustraction sur le timestamp ont l'avantage de la simplicité ...

Maintenant, en Perl, il y a toujours plus d'une façon de le faire ... même si on en donne plusieurs à Konrad, je crois qu'il saura - une fois la tête sortie du guidon - se faire sa propre idée et adopter, pour le futur, les solutions les plus fiables.