Running perl scripts from within perl scripts

[mincefish]

I wanted to create a 'main menu' perl script that would pick up all the perl scripts in my scripts directory, and display them for me to choose. Then I would select a number, which would correspond to an element in an array. The array holds the name of all the .pl files in the directory. The idea would be to launch the chosen perl file.
I used:

$prog = $files[$input];
exec "perl C:/Perl/Scripts/$prog";

where

$file

is the array,

$input

is the number the user inputted, and

$prog

is the name of the file. As you can tell, I'm using perl on Windows.

However, when I do this, it appears to launch the script, but when I have to do any user input (which most of the scripts require), I get the following message:

The name specified is not recognized as an
internal or external command, operable program or batch file.

It seems as though the perl file isn't recognising my input, or maybe even the perl script isn't being run. Very confused.

Any help will be gratefully received!!

 

[raider2001]

Looks like a path problem. I believe you are getting the error message because 'perl' is not in your path. One thing to try is using the full path to perl (e.g. C:/perl/bin/perl).

 

[mincefish]

Thats weird, cos that's where I launch all my scripts from, but then at the top, I have

#!c:\perl\bin\perl

If I change the line to

exec "perl C:/Perl/bin/perl/$prog";

then I get a message saying it can't open perlscript [x], no such file or directory. Does this mean I need to save all my files in that directory? Or is there a way round it?

Thanks for your help, Raider2001

 

[raider2001]

Assuming perl.exe is in the "C:/Perl/bin" directory, change the line to:

exec "C:/Perl/bin/perl C:/Perl/Scripts/$prog";

FYI, the line at the top '#!c:\perl\bin\perl' doesn't help Windows find perl.

 

[tsdragon]

Instead of using exec you can use do. It will execute the perl file within your menu program. Better, do will search the perl include path for the file, so you may not need to worry about the path part of the file names. Check out the documentation for the do command in the perlfunc manpage. Tracy Dryden
tracy@bydisn.com

http://www.bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.

 

[mincefish]

Thank you, thank you!!!;-)