Perl/Tk系统函数错误？

Question

我正在制作一个“全合一计算器”（我猜）。这里是我的代码（我知道我没有所有子程序定义做，我仍然在做这个，你可以看到）：

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; 

为什么系统功能未打开Windows计算器？

谢谢！

Answer 1

尝试这种情况：

system(qq{start calc}); 

Answer 2

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