Ok ca marche mais maintenant j'ai un autre problême...
Voici mon code très simplifié :
Citation :
use Tk;
sub Go
{
$valid = "http://www.site.com";
system("start ".$valid);
}
$fenetre = new MainWindow(-title=>'test');
$bouton = $fenetre->Button(-text=>'go', -command=>\&Go)->pack();
MainLoop();
|
Lorsque je clique sur le bouton 'Go' il reste enfoncé et rien ne se passe.
Lorsque je ferme l'application j'ai un message d'erreur et mon explorateur s'ouvre sur la page donnée.
ps : désolé pour ces questions peut-être basique mais j'ai commencé le Perl hier soir...