求助：关于system函数

scooyy

我在windows下编写了一个程序，需要调用windows中的color命令，由于要循环让用户输入数据，直到输入一个值退出，因此我把system函数放在了for循环里，代码架构如下：
for(;
{
  ......
  $colored=<STDIN>;
  system("color $colored";
  .......
  last if ($colored eq "exit";
}
编写、调试没出现问题，我用的ActivePerl 5.8.8.822版本的解释器，但通过IndigoStar Perl2Exe v8.82编译后，名为color.ext，发现执行时会不断地生成color.exe进程，导致程序无法正常运行，后将pl源程序，copy到其它路径下，执行也发现该问题，请问各位高手，这种情况下是否该用system函数?要实现功能该如何解决？谢谢

放驴娃

Perl5 已经流行这么长时间了，因此最好别把 Perl 当 shell 用，而是把 Perl 当 C 用。
http://search.cpan.org/~jdb/libwin32-0.28/Console/Console.pm

scooyy

嗯，多谢兄弟帮助:wink:

lokchungk

為什麼不直接用反括號.