Nuovo Problema con le tk ^^

Topic Sul Perl.

Moderator: dree

Nuovo Problema con le tk ^^

Postby DevilAuron on Tue Oct 02, 2007 5:25 pm

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è? :roll:
Grazie a chi mi risponde
DevilAuron
Newbies
 
Posts: 18
Joined: Thu Sep 13, 2007 11:16 pm

Nuovo Problema con le tk ^^

Sponsor

Sponsor


Postby DevilAuron on Wed Oct 10, 2007 2:21 pm

Nessuno?
DevilAuron
Newbies
 
Posts: 18
Joined: Thu Sep 13, 2007 11:16 pm

Re: Nuovo Problema con le tk ^^

Postby dree on Wed Oct 10, 2007 3:43 pm

DevilAuron wrote:
Code: Select all

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


Non mi funziona :?
mi salva il file ma senza contenuto..
Perchè? :roll:
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.
dree
Newbies
 
Posts: 16
Joined: Sun Feb 18, 2007 4:24 pm
Location: Friûl

Postby bled on Wed Oct 10, 2007 5:38 pm

anche io ho un prob simile...
bled
Newbies
 
Posts: 40
Joined: Tue Jul 31, 2007 1:29 pm

Postby dree on Wed Oct 10, 2007 8:05 pm

bled wrote:anche io ho un prob simile...


Postate uno script funzionante, minimale, così da poter testare sul serio.
dree
Newbies
 
Posts: 16
Joined: Sun Feb 18, 2007 4:24 pm
Location: Friûl

Postby DevilAuron on Wed Oct 10, 2007 9:40 pm

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;
DevilAuron
Newbies
 
Posts: 18
Joined: Thu Sep 13, 2007 11:16 pm

Postby dree on Wed Oct 10, 2007 9:50 pm

DevilAuron wrote:
Code: Select all
open ( FILE , ">lol.txt" );
print FILE $lol;


dopo questo ho aggiunto

Code: Select all
close FILE;


e funziona.
dree
Newbies
 
Posts: 16
Joined: Sun Feb 18, 2007 4:24 pm
Location: Friûl

Postby dree on Wed Oct 10, 2007 9:56 pm

Se continua a non andare, metti

Code: Select all
open ( FILE , ">lol.txt" ) or die "$!";


e vedi se è un problema della open[/code]
dree
Newbies
 
Posts: 16
Joined: Sun Feb 18, 2007 4:24 pm
Location: Friûl

Postby bled on Thu Oct 11, 2007 12:23 am

io ho un prob differente
mo apro un altro topic asd
bled
Newbies
 
Posts: 40
Joined: Tue Jul 31, 2007 1:29 pm


Return to Perl

Who is online

Users browsing this forum: No registered users and 1 guest

cron