Forum programmazione

[DevilAuron]

Code: Select all

$mw->Button(-text=>"Salva",
-background=>"black",
-foreground=>"red",
-activebackground=>"black",
-activeforeground=>"white",
-command=>sub{
open ( FILE , ">lol.html" );
print FILE $def;
})->pack(-side=>"left", -anchor=>"s");


Non mi funziona
mi salva il file ma senza contenuto..
Perchè?
Grazie a chi mi risponde

[DevilAuron]

Nessuno?

[dree]

Code: Select all


open ( FILE , ">lol.html" );


Non mi funziona
mi salva il file ma senza contenuto..
Perchè?
Grazie a chi mi risponde

verifica che $def sia non vuota e fai

Code: Select all

open ( FILE , ">lol.html" ) or die "$!\n";


per vedere se c'è qualche errore nella open.

[bled]

anche io ho un prob simile...

[dree]

anche io ho un prob simile...

Postate uno script funzionante, minimale, così da poter testare sul serio.

[DevilAuron]

Code: Select all

use Tk;

$mw=MainWindow->new(-background=>"black");
$mw->Entry(-textvariable=>\$lol)
->pack(-anchor=>"n");
$mw->Button(-text=>"Salva",
-background=>"black",
-foreground=>"red",
-activebackground=>"black",
-activeforeground=>"white",
-command=>sub{
open ( FILE , ">lol.txt" );
print FILE $lol;
})->pack(-side=>"left", -anchor=>"s");
MainLoop;

[dree]

Code: Select all

open ( FILE , ">lol.txt" );
print FILE $lol;


dopo questo ho aggiunto

Code: Select all

close FILE;

e funziona.

[dree]

Se continua a non andare, metti

Code: Select all

open ( FILE , ">lol.txt" ) or die "$!";


e vedi se è un problema della open[/code]

[bled]

io ho un prob differente
mo apro un altro topic asd