Discussion :

[dubis]

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 :

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

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 :

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

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

[djibril]

Code :

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

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;

[dubis]

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

arrfff....

Encore Merci djibril

Mais si je veux entrer une troixieme condition comme 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
#!/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...

[dubis]

Le script comme ceci fonctionne :

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
#!/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 .... .