Discussion :

[irouni]

Bonjour,

Je suis débutant en Perle et on m'a demandé de faire des modifications sur des scripts spécifiques.

J'essaie de comprendre presque tout àfin de faire des modifications intelligentes

Pourriez vous me dire ce qu'il fait ce bout de code ligne par ligne?

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
use strict;
use warnings;
 
use Time::Local 'timelocal_nocheck';
 
my $et_cachedtime="";
my $et_lasttime="";
my($machine,$date,$f1);
 
 
sub epochtime ($) {
        my $time=shift;
        unless($time eq $et_cachedtime) {
                # Le timestamp ne se fait qu'a la minute
                $time=~m{^(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2})};
                $et_lasttime=timelocal_nocheck(0,$5,$4,$3,$2-1,$1);
                $et_cachedtime=$time;
        }
        return $et_lasttime;
}
 
sub printdata {
        my $cat=shift;
        if(defined $cat) {
                my $value=shift || 1;
                # $date=~s|^(\d{2})-(\d{2})-(\d{2});(\d{2}):(\d{2})|20${3}/$2/$1 $4:$5|;
                print epochtime($date).";$date;$machine;$cat;$value\n";
        }
}

Merci d'avance

[Jasmine80]

Ce sont 2 sous programmes qui manipulent des dates, regarde le module suivant afin de mieux comprendre :

Time::Local - efficiently compute time from local and GMT time

Tu peux aussi regarder la FAQ du forum et ses codes sources

Code :

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

print epochtime($date)

Ici tu affiches le résultat renvoyé par ton sous-programme 'epochtime' auquel tu as passé l'argument $date.

[irouni]

Merci Jasmine pour ta réponse!
Je vais jeter un coup d'oeil sur ce module.
Mais c'est surtout le 2èm sous programme que j'ai du mal à comprendre avec par exemple " shift || 1" mais aussi cette ligne : ?

Code :

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

print epochtime($date).";$date;$machine;$cat;$value\n";

[Jasmine80]

Code :

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

1
2
sub epochtime ($) {
        my $time=shift;

perldoc shift

shift te permet de récupérer la valeur $_[0] qui est la première valeur de l'array @_ qui contient la liste des éléments passés au sous-programme, dans ce cas-ci, un seul élément.

Code :

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

my $value=shift || 1;

Je ne comprends pas l'utilité de cette ligne.
le signe || est le ou et donc si la partie gauche est fausse ($value = shift) on passe à la partie droite (1) donc le programme continue dans tous les cas. C'est ainsi que j'interprèterais ce passage, mais je ne suis pas certaine de ce que j'écris.

[irouni]

Ok merci bcp Jasmine

[Jasmine80]

Documentation perldoc sur les opérateurs

Binary "||" performs a short-circuit logical OR operation. That is, if the left operand is true, the right operand is not even evaluated. Scalar or list context propagates down to the right operand if it is evaluated.

Note that "|" and "^" have lower priority than relational operators, so for example the brackets are essential in a test like

Code :

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

1
2
3
4
sub printdata {
        my $cat=shift;
        if(defined $cat) {
                my $value=shift || 1;

on récupère le premier argument passé au sous-programme dans $cat et si celui-ci est défini, on essaie de placer le second argument dans $value.

Je ne sais pas ce que celui qui a écrit ce code veut faire mais peut-être manque-t-il des parenthèses

Code :

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

my $value = (shift || 1);

ce qui ferait que sans second argument $value serait mis à 1 par défaut.

[Philou67430]

Je ne sais pas ce que celui qui a écrit ce code veut faire mais peut-être manque-t-il des parenthèses

Code :

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

my $value = (shift || 1);

ce qui ferait que sans second argument $value serait mis à 1 par défaut.

Attention, si le deuxième argument est présent, mais nul ou vide (chaine vide), $value sera également initialisée à 1.

Pour vérifier l'absence réelle du paramètre, il faudrait écrire :

Code :

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

1
2
my $value = shift;
$value = 1 if !defined $value;

ou à partir de perl 5.10, utiliser l'opérateur // :

Code :

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

my $value = shift // 1;