scrittura su file

[mcgyver75]

Scusate, ho il seguente pezzo di codice:

$FileFinale = $query->param('fileUtente');
$string = "PIPPO";
print $query->submit(-name => 'ok',
-value => 'OK',
-style => 'width:60px;');

if ($query->param('ok')){
print "vai a vedere $FileFinale";
open(FILE, "< $FileFinale")|| die "Impossibile aprire il file\n\n";
print FILE "Quello che volete.\n";
# Chiude il file
close FILE;
}

print $query->endform;

dove $FileFinale è C:\Documents and Settings\Danilo\Documenti\abozzo2.doc

Vorrei scrivere qualcosa su questo file, ma il codice che ho usato non credo vada bene!
Dove sbaglio?

[C232]

invece di || metti or

[shishii]

non c'entra nulla, in questo caso or o || sono equivalenti.

I problemi sono altri

Primo se vuoi scrivere su un file devi usare > o >>, cioè:

open(FILE, ">$FileFinale") || die "Impossibile aprire il file\n\n";

se vuoi sovrascrivere il file

open(FILE, ">>$FileFinale")|| die "Impossibile aprire il file\n\n";

se vuoi scrivere in append.

Devi comunque accertarti che quel file sia scrivibile dal web server, se come penso stai usando lo script in funzione CGI.