system("perl -e\"system 'start cmd';\" /c perl \"$filename\"");
[download]

Based on your example, you want to run another perl script from within your perl program, and have it present its output in a separate cli window, then this maybe what you are looking for.

my $filename = 'some perl script (potentially with spaces).pl';

system qq[ start cmd /k perl "$filename" ];
[download]

Using qq// for the outer set of quotes removes the need to escape the inner ones needed around the filename whilst still allowing $filename to be interpolated. See Quote-like operators for more info.

Using /k will ensure that the window remains and the script output is visible after the command has ended.

---

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
Hooray!

Worked great, thank you!

All you need to do to run a command with options is to join them in one long string. eg.

my $process = join (" ",$execution_path, $options);
system ($process);
[download]

However, this won't work with the command prompt as you can't pass further instructions to a command line without a special option switch (/K). I don't really understand why you need to open another DOS Box to run something, as the system() command will wait for the process to terminate before continuing. Nevertheless, with the /K option, your script should open a new DOS box to run the script.

my $execution_path = "cmd.exe";
my $options = "/K C:\\Perl\\Perl.exe myscript.pl";

my $process = join (" ",$execution_path, $options);
system ($process);
[download]

However, if you can't get what you want out of system(), then check out Win32::Process, this has numerous facilities for creating and manipulating processes, you can even suspend or kill processes at a PID level. As for the TK question, I'm afriad that I haven't even started looking at TK yet.


Seems BrowserUK got there before me on the /K thing though....