Sending an enter to a system call

[countercycle]

I'm trying to start a system command, then simulate an enter key being pressed (activestate 5.6.1). I've come up with this code, but it doesn't quite work.

open(MORE,"|more readme"
print MORE "\n";
close(MORE);

Can anybody help?

 

[raklet]

Your best bet is to use the module Win32::GuiTest. It has a function called SendKeys that lets you send keystrokes to the acitve windows as if typed at the keyboard.

example code:

use Win32::GuiTest;

Win32::GuiTest(SendKeys {ENTER});

You can read the docs at:

http://search.cpan.org/dist/Win32-GuiTest/GuiTest.pm

 

[TheGenius22]

If you dont want to use an extra module, you can send an enter key this way.

print chr 13

which prints the enter key.

ex:

my $enter = chr 13;
open(MORE,"|more readme"
print $enter;
close(MORE);

 

[countercycle]

Thanks. That seemed to work.