Forum programmazione

$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");

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

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;

close FILE;

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