ActivePerl 5.6.0 Build 613
on Windows 98 SE
Thanks to all the sugesstions.
However, as written it will still not accept input after first file copy (Option 31)
if option 00 is the very first option the menu will terminate as planned.
if option 31 is the very first option the file will be copied
the menu will reappear
but no further input from the keyboard will be accepted.
Dos Window just hangs there waiting ???
If I press control-c at this point the dos window closes and goes away.
the revised code which I have tried to simplify as much as possible is as follows:
All Help, Comments, Code Examples, Thoughts Greatly Appreciated.
THANKS IN ADVANCE
BTW Toby your comment r u using 'command.com' vs 'cmd.exe'?
Not sure what you are asking??
CODE:
$| = 1; # UNBUFFER THE CONSOLE
while () {
scrprt();
my $result = <STDIN>;
chomp $result;
exit 0 if $result == 0;
if ($result == 31) {
}
}
sub scrprt {
}
Mike Reilley
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]