Re: POST method and STDIN.

Fï¿½lix Hauri Mon, 28 Jan 2002 06:21:53 -0800

On Mon, 28 Jan 2002, Marc SCHAEFER wrote:

> Une solution mauvaise serait de faire:
> 
>    open(SCRIPT_2, "|script_2") or die("...");
> 
>    print SCRIPT_2 "les donnï¿½es que vous avez dï¿½jï¿½ consommï¿½es";
>    while (<STDIN>) {
>       print SCRIPT_2 $_;
>    }
> 
>    close(SCRIPT_2) or die("...");
> 
Pourquoi mauvaise? Il y a pire:


    use IPC::Open2;

    open2(\*RD,\*WR,'uudecode|rdjpgcom -v|grep \\ is\\ ') or die("...");

    print WR join("\n",@uuencjpeg);
    close WR;
    $_=<RD>;
    if (/is\ ([0-9]*)w\ \*\ ([0-9]*)h,/) {
        $dw=$1;
        $dh=$2;
        }
    close RD;

Explication: @uuencjpeg est un tableau contenant une image uuencodï¿½e.
ï¿½ la sortie: $dw et $dw contiennent respecitvement la largeur et la
hauteur de l'image.


It's more than one way...
--
 Fï¿½lix Hauri  -  <[EMAIL PROTECTED]>  -  http://www.f-hauri.ch

--
http://www-internal.alphanet.ch/linux-leman/ avant de poser
une question. Ouais, pour se dï¿½sabonner aussi.

Re: POST method and STDIN.

Répondre à