[PERL] Execution d'un commande Qx qui met du temps a s'effectuer et l'afficher au fur a mesure ! HTML

Version imprimable

30/09/2009, 09h14
ExploZe

[PERL] Execution d'un commande Qx qui met du temps a s'effectuer et l'afficher au fur a mesure ! HTML

Bonjour,

Alors oui tout est dans le titre !
Je veux si par exemple je fait :

qx(ls -l & sleep 2s & ls -l)

Et quand j'execute ma page web, que ça afficher ls -l.
Que le sablier de chargement continue pendant et 2sec et afficher la suite c'est a dire ls -l de nouveau.

Mais pas tout d'un coup une fois la commande terminé.
Biensur s'il faut utiliser d'autre méthode que qx je prend !! C'est simplement la fonction d'exécution system qui m'intéresse

Voila,
Merci beaucoup
30/09/2009, 09h44
djibril

L'affichage progressif dans une page web n'est pas un problème Perl, mais d'OS.
Sous Windows, t'aura beau chercher, mais tous tes print s'afficheront d'une traite alors que sous Linux, tu peux avoir un affichage progressif, ne me demande pas l'explication :aie: je ne m'en rappelle plus.
30/09/2009, 09h47
ExploZe

Je suis sous Os X et mon serv sous linux !

Donc j'ai tout ski faut !
Si vous auriez un exemple tout bête de code qui le fait je suis preneur

Testez le script suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use warnings;
use strict;
use Carp;
 
use CGI;
$| = 1;
 
my $cgi = new CGI;
print $cgi->header();
print <<"CGI";
  cgi-bin OK<br><br>
 
  Affichage progressif<br><br>
 
CGI
 
sleep 1;
for (1..10) {
print "- $_/10<br>\n";
sleep 1;
}
print $cgi->end_html();

Et essayez votre script en mettant

Code:

$| = 1;

30/09/2009, 10h12
ExploZe

Re,

Alors Le script fonctionne bien si je l'execute dans le terminal avec perl
Mais si j'affiche la page web et bien tout s'affiche d'un coup :S
(Sa mouline et ça affiche l'intégralité seulement et pas coup par coup)

Avec $| = 1; ou non

C'est la mon souci d'ailleur :D
30/09/2009, 10h20
djibril

Désolé, mais je n'ai pas de solutions :roll:. Tester des navigateurs différents, mais à mon avis, c'est une question d'OS.
J'avais déjà eu ce genre de soucis il y a quelques années et j'avais fait des tests sous debian, XP, win2000, MAc etc, et le comportement varié en fonction des OS.

Je vois,

Mais je doit dire que je suis sur que cela fonctionne sous le serveur car webmin le fait tres bien !

Seulement je n'arrive pas a choper le façon de le faire !
C'est peux être une configuration au niveau d'apache.

Sinon pour webmin :
http://www.fsa-blast.org/Webmin/ApiW...d_header_subte

et ça
http://www.fsa-blast.org/Webmin/ApiW...nd_handle_comm

Code:

1
2
3
4
5
6
7
8
sub ui_print_unbuffered_header
{
&load_theme_library();
return &theme_ui_print_unbuffered_header(@_) if (defined(&theme_ui_print_unbuffered_header));
$| = 1;
$theme_no_table = 1;
&ui_print_header(@_);
}

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
26
27
28
29
sub open_execute_command
{
my ($fh, $cmd, $mode, $safe) = @_;
$fh = &callers_package($fh);
my $realcmd = &translate_command($cmd);
if (&is_readonly_mode() && !$safe) {
	# Don't actually run it
	print STDERR "vetoing command $cmd\n";
	$? = 0;
	if ($mode == 0) {
		return open($fh, ">$null_file");
		}
	else {
		return open($fh, $null_file);
		}
	}
# Really run it
&webmin_debug_log('CMD', "cmd=$realcmd mode=$mode")
	if ($gconfig{'debug_what_cmd'});
if ($mode == 0) {
	return open($fh, "| $cmd");
	}
elsif ($mode == 1) {
	return open($fh, "$cmd 2>$null_file |");
	}
elsif ($mode == 2) {
	return open($fh, "$cmd 2>&1 |");
	}
}

30/09/2009, 10h45
djibril

Ouais, bah ,je ne sais pas et n'ai pas le temps de chercher. Pour le moment, sous ma Debian, je n'ai pas de soucis.
30/09/2009, 11h21
50Nio

Les bouts de code que tu as mis ouvrent un filehandle, ce qu'il faudrait c'est ensuite trouver dans webmin des utilisations de ce filehandle retourné par la fonction open_execute_command.
C'est à ce niveau que tu trouveras peut-être une utilisation particulière du filehandle pour un affichage "temps réel".

J'ai le code de webmin ici, mais je ne l'ai pas déployé sur un serveur, si tu as le nom du module et de la page qui est lancée qui fait un affichage "temps réel", poste le, je regarderais le code correspondant.
30/09/2009, 11h23
ExploZe

Merci :D

Alors, pour le code en question effectivement je vais regarder.

Sinon pour webmin ce code s'exécute si tu install un nouveau module.
tu va dans les modules non installer et tu auras un lien a cliquer pour lancer l'installation.

voili voilu :D

EDIT : Tout ce trouve dans le dossier software de webmin exemple apt-lib.pl