Condition avec une intervalle

Version imprimable

Bonjour,

J'ai un bout de script dont je voudrais qu'il affiche un message ou fasse autre chose que si on est entre 7heures et 16heures :
Code:

1 2 3 4 5 6 7 8 #!/usr/bin/perl use strict; use warnings; (my $sec, my $min, my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) = localtime(time) ; if (($hours > 7) && ($hours < 16)) { print "il est $hours heures tout va bien\n"; }
Naturellement ce script ne fonctionne pas. D'appres mes recherche sur internet une interval en Perl se traduit par ceci : ..
Mais je ne sais pas comment l'introduire dans mon script, j'ai essayé ceci :
Code:

1 2 3 4 5 6 7 8 #!/usr/bin/perl use strict; use warnings; (my $sec, my $min, my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) = localtime(time) ; if ($hours = /7.. 16/) { print "il est $hours heures tout va bien\n"; }
Sans succès....
Merci de votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use warnings;
use strict;
 
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
my $message;
if ( ($hour > 7) and ($hour < 16) ) {
  $message = "il est $hour heures tout va bien\n";
} 
else {
  $message = "autre intervalle\n";  
}
print $message;

le double "et commercial" fonctionne si je ne fais pas de faute d’inattention

arrfff....

Encore Merci djibril :ccool:

Mais si je veux entrer une troixieme condition comme ceci :

Code:

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
#!/usr/bin/perl
use strict;
use warnings;
use Proc::ProcessTable;
 
use MIME::Lite;
 
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time) ;
my $message ;
my $tproc = new Proc::ProcessTable;
foreach my $proc ( @{$tproc->table} ){
        my $cmd=$proc->cmndline;
        my $uid=$proc->uid;
        my $pid=$proc->pid;
        my $pctcpu=$proc->pctcpu;
        #print $pctcpu;
        if (($pctcpu >6) and (($hour >7) and ($hour <16 ))) {
                $message = "The processus that you launched with this command:\n$cmd\nneed your attention as it
\'s using $pctcpu\%, meaning you're monopolised the server during the day.\nYou can kill it with this following
 command on the  server:\n\nkill $pid\n";
        } else {
          $message= "tout va bien\n";
}
}
print $message ;

Je suis toujours en condition faux puisque c'est le message :"Tout va bien bien" qui apparaît à la fin script alors que j'ai 2 processus à plus de 6%....

Merci de votre aide...

Le script comme ceci fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl
use strict;
use warnings;
use Proc::ProcessTable;
 
use MIME::Lite;
 
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time) ;
my $message ;
my $tproc = new Proc::ProcessTable;
foreach my $proc ( @{$tproc->table} ){
        my $cmd=$proc->cmndline;
        my $uid=$proc->uid;
        my $pid=$proc->pid;
        my $pctcpu=$proc->pctcpu;
        #print $pctcpu;
         #if (($pctcpu >5) and ($hour <15 )) {
if (($pctcpu >= 6) and  ($hour > 7) and ($hour < 16 )) {
 
                print "The processus that you launched with this command:\n$cmd\nneed your attention as it\'s u
sing $pctcpu\%, meaning you're monopolised the server during the day.\nYou can kill it with this following comm
and on the  server:\n\nkill $pid\n";
        }
}

J'ai changé l'ordre des parenthèse et j'ai enlevé le else car cela ne fonctionne pas avec lui .... .