求助：关于system函数

scooyy

UID: 19710
帖子: 95
积分: 218
在线时间: 12 小时

1^# scooyy 发表于 2007-11-01 13:34

求助：关于system函数

我在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函数?要实现功能该如何解决？谢谢

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

2^# 放驴娃发表于 2007-11-01 14:07

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

scooyy

UID: 19710
帖子: 95
积分: 218
在线时间: 12 小时

3^# scooyy 发表于 2007-11-01 16:17

嗯，多谢兄弟帮助

lokchungk

UID: 6618
帖子: 74
积分: 170
在线时间: 7 小时

4^# lokchungk 发表于 2007-11-13 14:56

為什麼不直接用反括號.