[Riha] (sans objet)

[Socrate]

Bonjour tous le monde

Le message est parti tout seul incomplet, sorry. Voici le texte complet.

J'ai écrit un script perl pour faire un filtre apache 2 avec la directive:
ExtFilterDefine affpub1 mode=output
cmd=/var/www/hebergemoi/cgi-bin/affpub.pl pour afficher automatiquement
quelque chose en haut de chaque page.
Voici le script:

#!/usr/bin/perl -w
use mod_perl qw(all);

$ARGV[0]="";
open(SAVE, ">$ARGV[0]"); # || die "can't open $ARGV[0]: $?";
open(OUT, ">outfile");

print"<table width=\"800\" border=\"0\" align=\"center\" cellspacing=\"0\"
cellpadding=\"0\">
  <tr>
    <td align=\"center\">
     hello world
    </td>
  </tr>
</table>";

while (<STDIN>)
{       print SAVE $_;
        print $_;
        print OUT $_;
}

J'obtiend l'erreur suivante:
print() on closed filehandle SAVE at
/var/www/hebergemoi/cgi-bin/affpub1.pl line 10, <STDIN> line a chaque
ligne print

Si l'un d'entre vous a une idée ?
pierre-louis
hebergemoi.homelinux.org