Erreur de fonction système Perl/Tk?

Question

Je fais une "calculatrice tout-en-un" (je suppose). Voici mon code (je sais que je n'ai pas tous les sous-programmes définis, je travaille toujours sur ce que vous pouvez voir):

use 5.12.4; 
use warnings; 
use Tk; 

##### Create MainWindow ##### 
my $button_menu = new MainWindow; 
############################# 

##### MainWindow Buttons##### 
my $calculator_button = $button_menu->Button(-text=>"Calculator", 
             -width=>10, 
             -relief=> 'raised', 
             -command=>\&open_calculator)->pack(); 

my $formulas_button = $button_menu->Button(-text=>"Formulas", 
            -width=>10, 
            -relief=> 'raised', 
            -command=>\&open_formulas)->pack(); 


sub open_calculator{ 
    system(qq{start "C:\\Windows\\system32\\calc.exe"}); 
} 

MainLoop; 

Pourquoi la fonction du système pas ouvrir la calculatrice de Windows?

Merci!

Answer 1

Essayez ceci:

system(qq{start calc}); 

Answer 2

system('start C:\Windows\system32\calc.exe');