Simple Menu

[Mike Reilley]

Sorry I meant to include the fact that I am running
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) { 
        print "Copying Files\n\n";
                #$cmd = "xcopy32.exe ";
                $cmd = "xcopy ";
        $cmd = $cmd."\"c:\\webstaff3\\aliases\" ";
        $cmd = $cmd."\"c:\\last weeks updates\\aliases\" /y " ;
        print "CMD == $cmd\n";
        $output = `$cmd`;
        print "output == $output\n";
                           }

         }

        
sub scrprt {
        #system "$ENV{COMSPEC} /C CLS\n";
        print "                    \n";
        print "                    \n";
        print " 00 .. Terminate Menu \n";
        #print "                    \n";
        #print "                    \n";
        print " 31 .. Copy Web files to Last Weeks\n";
        print " \n";
        print " \n";
        print " ";
}
        

It has recently  come to my attention that some people consider my use of uppercase letters in email as obnoxious, I would like to apologize but in light of having lost 6 fingers and the use of a seventh that leaves me with just a thumb and pinky on my left hand and only a thumb on my right hand. Therefore nothing is meant or implied by my haphazard capitalization.


Mike Reilley
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]