perl脚本里面调用csh脚本

21002700

求教各位大神：之前一直用shell写脚本，现在学习perl
例如perl/tk写了一个界面，写了一个Button，点击botton后执行一个csh脚本
在perl里面要怎么写呢？如下的方式，或者其它方法
......
$mw->Button(-text => "COMMAND1",-font=>[-size=>15],-activebackground=>'red2',
-activeforeground=>'green2',-background=>'green',
-height=>1,-highlightcolor=>'blue',-highlightbackground => 'black',
-command => sub { command1 } ) ->pack(-side => 'bottom');

MainLoop;

sub command1 {
？？？？？？
}

hztj2005

一直用Window下的perl，没用用过Linux.
当perl执行外部程序是用system函数。看看这个网页是否对你有帮助：
https://cn.perlmaven.com/running-external-programs-from-perl

21002700

回复 2# hztj2005

谢谢！