[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [linux-team] Perl
> print "content-type: image/gif\n\n";
Le RFC dit: \r\n\r\n, pas \n\n
Faut bien faire vivre les bêtes caisses windoze...
> Où l'argument est le nom du fichier qui contient les données a
> calculer. Le problème est le suivant : Lorsque j'execute la commande
> gnuplot, il n'ecrit pas le header content-type: image/gif, mais le
> résultat est l'image gif.
> Et evidemment si je n'éxecute pas la commande system, ca passe. On
> dirait qu'il écrase le header.
> Quelqu'un a-t-il une idée de pourquoi ?
Ajoute un peu
$|=1;
avant le 1er print...
Ca va désactiver la bufferisation de STDOUT. C'est probablement ça...
BTW, c'est affreux ton script... 1ère fois que tu fais du Perl ? ;)
Pq tu n'ouvres pas un pipe vers gnuplot ?
#!/usr/bin/perl -w
use strict;
$|=1;
print "Content-type: image/gif\r\n\r\n");
open(P, "| gnuplot") or die "gnuplot: not found";
print P "\nplot ....."; # envoyer les commandes à GNUplot
print <P>; # envoyer le résultat de GNUplot sur STDOUT
close(P);
voilà... plus besoin de system() via un fichier temporaire, etc...
-o) Pascal Bleser | UNIX *is* user friendly.
/\\ C++/UNIX Development | It's just selective about
_\_v ATOS Payment Systems | who its friends are...
pbleser@atos-group.com---------------------------------
---------
This message was sent by Majordomo 1.94.3. Please report problems to
manu@rtfm.be. If you want to be deleted from the list, send a mail to
majordomo@rtfm.be with "unsubscribe linux-team" in the body.