CODEWITHSUNDEEP
perl
Majestic Pixel
Majestic Pixel

Reputation: 35

Exiting a secondary Perl script and returning to the main program

I am running a Perl script to control two other scripts. The user of the main program can call the two secondary scripts with the following line.

do 'Task_A.pl';

The script then runs Task_A.pl but I would like to find a way of then exiting Task_A.pl and return to the main program. If possible I would like to return to the function where I last called the secondary script. I am not sure as to what this is called but I appreciate any input for a possible solution.

This is the whole main program, not much to it at the moment.

my $selecion;

#Looping variables.
my $program_loop = 1;

while ($program_loop == 1)
{
    print "Please choose one of the programs listed in the menu.\n";

    #Program menu where the user chooses from the presented options.
    print "[1] - Script A.\n";
    print "[2] - Script B.\n";
    print "[3] - Exit program.\n";

    my $user_input = <>;

    if ($user_input == 1) # <-- Scrip_A.pl
    {
        do 'Task_A.pl';
    }
    elsif ($user_input == 2) # <-- Scrip_B.pl
    {
        do 'Task_B.pl';     
    }
    elsif ($user_input == 3) # <-- Exit Program
    {
        #The user can choose to exit from the menu.
        print "The program will now exit.\n";
        exit;
    }
}

Upvotes: 3

Views: 521

Answers (1)

neuhaus
neuhaus

Reputation: 4114

do does not start another process. If that's what you want, use "system()".

If you want do, then it's probably best to just put everything into a function in the file to be evaluated and call the function at the end of the file.

Use "return" to leave the function and return to next instruction after do.

Upvotes: 3

Related Questions