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');