Files and Variables

[xaze]

I am having a little problem. I would like to know if there is a way to do the following?

File 1.
....require File2;
....require File3;

....ts_db_connect();
....ts_do_something();
....ts_db_disconnect();

File 2.
....our ($dbh, $sth);

....sub ts_db_connect {
........#...Connect
........return $dbh;
....}

....ts_db_query {
........$sth = $dbh->prepare($Query);
........$sth->execute;
........return $sth;
....}

....sub ts_db_disconnect {
........#...Disconnect
....}

File 3.
....sub ts_do_something {
........ts_db_query(...);
........#...Doing Something
........$sth->finish;
....}

As you can see what I want to know is how do I make it so that $sth is accessible across all files (without having to do use vars qw// at the top of every file, or something similar).

Also, I was wondering if anyone could help me with this:

File 1.
....use configuration;
....use File2;

....print MY_CONSTANT;
....print_it();

configuration.pm
....BEGIN {
........use Exporter();

........our @ISA = qw(Exporter);
........our @EXPORT = qw(MY_CONSTANT);
....}

....use constant MY_CONSTANT => 'value';

....END { }

File 2.
....sub print_it {
........print My_CONSTANT;
....}

Just like above, I would like to know is there an easy way to have MY_CONSTANT accessible from every file that the program uses. If there is not, and I decided to add 'use configuration' in every file would that really be like using X many more files or would it just open up the name space. Phrased Differently: If I were to place 'use configuration' at the top of every file would it require more RAM?

Thanks for any help you can give me.

[eych]

Greetings,

You can always call a variable with a fully qualified package name.

For example, you can have the $sth variable defined in your main script and then call it from any other package that you "require" like this:

$main::sth

Or, alternatively, you can use the same package in all required files. If you will use the same package then all the files will share the same name space and thus a variable defined in one of the files will be also accessible in other files from the same package.

You question about importing configuration variable is basically the same. Perl compiles one file only once, the next time you try to "require" it or "use" it will just "open the name space" like you have written.

Hope that will help.