html - How to access variable of other perl program in my perl program

Question

I have three different Perl programs. I want to access the value of a variable present in the first program in the other two Perl programs.

My first Perl program look like the following:

#!/usr/bin/perl
print "Content-Type: text/html; charset=utf-8

";

use CGI;
use Cwd;
use utf8;
$q=new CGI;
$a=$q->param('file');
#chomp($a);
my $ftpname="$a";

This program takes value from a text of HTML program. I need the value of the $ftpname variable in my other to Perl programs. How can I do that?

Answer 1

There can be more than one way to solve your problem.

1. You can save the value of $a in a text file and then read that text file in your other two programs.
2. You can create a module that contains functions to act upon the value of $a. Then you can call the proper moduleName::functionName with $a as argument. A simple tutorial to get you started would be here.
3. If you want to share variables anyway, you can have a module that acts as some sort of header file with the variable declarations (using the our keyword and/or exporting), and then this module is used in all of your other perl scripts and the variable is visible everywhere. See this answer. For more help on variable scope, you may read this reference: Coping with Scoping