Discussion :

[armada]

Hello les pros...

G besoin de vous..
J'aimerais savoir comment faire pour envoyer des signaux avec alarm(), mais avec un temps inférieur à 1 seconde.
J'ai essayé ce que j'ai pu avec la fonction select, mais sans succes.. (Pardon, je suis sous Windows..)


Merci d'avance...

[Jedai]

Le mieux, c'est d'utiliser le module (qui est fourni avec la 5.8 d'ActiveState en standard, et probablement avec la 5.8 officielle) Time::HiRes, ce module t'offrira une fonction ualarm() qui permet de spécifier des temps en microsecondes. (Encore faut-il que ton système le permette, mais je pense que c'est le cas de Windows)

[armada]

Ca ne fonctionne pas, voici le message qu'il me met :


Your vendor has not defined Time::HiRes macro ualarm, used at logAlert.pl

[Jedai]

Oui, en effet, j'ai le même problème, peux tu me dire à quel usage tu destinais ce ualarm ? Peut-être pourrait t'on utiliser autre chose à la place. :

(usleep marche très bien sur mon système par contre)

[armada]

usleep marche tres bien aussi...

Je pensais me servir de la fonction ularam pour créer une barre de progression à la façon du post précédent. Je désirais changer la rapidité de cette barre en changeant la fréquence d'envoi des alarmes..


Merci

[Jedai]

Oui, c'est vrai qu'elle est très bien cette barre de progression
Tu pourrais peut-être essayer de créer un thread (ou fork() ? mais c'est encore plus aléatoire je pense) pour la barre de progression ? En utilisant usleep dedans, tu pourrais ainsi avoir une progression plus rapide (mais peut-être irrégulière...). (Tu peux aussi fouiller dans les modules dévolus à la console sur le CPAN, par exemple ncurses et ses copains, peut-être offrent-t-ils des solutions toutes faites).

[Jedai]

Bon... Aaaarggg....
Dur, dur...
J'ai commencé par essayer pendant presque 2 h d'utiliser la structure des Threads tel que présentée dans l'ouvrage de référence 'Programmation en Perl', j'ai failli m'arracher les cheveux....
Effectivement, cette interface a maintenant été supplanté par l'interface des ithreads dans la 5.8 (Programmation en Perl traite la 5.6), ce que j'ai pu constater dès que je me suis reporté aux pages de manuel....
Et là, bien sûr, ça a marché du premier coup.....

Enfin donc ça donne un truc comme ça :

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
@echo off
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
#!perl
use Time::HiRes 'usleep';
use threads 'yield';
use threads::shared;
 
$| = 1; #indispensable pour l'affichage de la barre
 
{
    my $barre;
    my $fin : shared;
 
    sub lance_progression {
        $fin = 0;
        $barre = threads->create(\&barre);
    }
 
    sub barre {
        my $pos = 0;
        until($fin) {
            print (("-" x $pos) . "o" . ("-" x (19 - $pos)));
            $pos++; $pos %= 20;
            usleep 50000;
            print ((chr 8) x 20);
            yield;
        }
        return;
    }
 
    sub fin_progression {
        $fin = 1;
        $barre->join;
    }
}
 
sub data {
    my $result;
    for(1..1000000){
        $result = $_ + 2;
        yield;
    }
    print "\a";
    return $result;
}
 
lance_progression;
 
my $result = data;
 
fin_progression;
 
print "\n$result\n";
 
lance_progression;
 
$result = data;
 
fin_progression;
 
print "\n$result\n";
 
 
__END__
:endofperl

J'espère que ça pourra t'aider, au moins, le principe est là, et ça marche !

[Jedai]

Voilà une version un peu améliorée puisqu'elle supprime la barre de progression à la fin (par ailleurs j'en ai profité pour supprimer les parties du code précédent destiné à permettre de le lancer comme un '.bat') :

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
#!/usr/bin/perl
use Time::HiRes 'usleep';
use threads 'yield';
use threads::shared;
 
$| = 1; #indispensable pour l'affichage de la barre
 
{
    my $barre;
    my $fin : shared;
 
    sub lance_progression {
        $fin = 0;
        $barre = threads->create(\&barre);
    }
 
    sub barre {
        my $pos = 0;
        until($fin) {
            print (("-" x $pos) . "o" . ("-" x (19 - $pos)));
            $pos++; $pos %= 20;
            usleep 50000;
            print ((chr 8) x 20);
            yield;
        }
        print( ' ' x 20);
        print((chr 8) x 20);
        return;
    }
 
    sub fin_progression {
        $fin = 1;
        $barre->join;
    }
}
 
sub data {
    my $result;
    for(1..1000000){
        $result = $_ + 2;
        yield;
    }
    print "\a";
    return $result;
}
 
lance_progression;
 
my $result = data;
 
fin_progression;
 
print "$result\n";
 
lance_progression;
 
$result = data;
 
fin_progression;
 
print "$result\n";

Voilà, ça nous fait un code un peu plus propre

[armada]

UN GRAND MERCI..
C'est parfait....