'require' isn't quite exactly an '#include'. The included file has its own scope which is causing your error. Fortunately, that's not too hard to work around.

Perl has very good support for reusable code. All you have to do is take a little time to figure out how to properly format it. These (along with hmerrill's recommendations]) ought to get you started.

• Coping with Scoping
• Lexical Scoping like a Fox

## effects of 'no strict' limited to the anonymous blocko
{
  no strict;
  require "./inc.pl";
}
[download]

_________
broquaint

1- I understand from your answer that there is no equivalent of a "simple" include
2- I have tried do declare
package main;
in both main.pl and inc.pl. It would oblige me to declare $main::Sousprogramme for all the variables of my main.pl. I have done that but I get more errors in a
$main::cursor = ($main::dbh)->prepare("Select...");

Database handle destroyed without explicit disconnect at /var/www/tools/crm/main.pl line 16.
Wed Apr 30 15:59:34 2003 error Can't call method "prepare" on an undefined value at /var/www/tools/crm/main.pl line 44.
This becomes complicated when I was looking for a "simple" include....

I understand from your answer that there is no equivalent of a "simple" include

There is, and it's require. Your requirements are more complex however, precluding one from any simple answer.

Firstly package main is only necessary to explicitly declare that you are in main's namespace, which all code is by default. So unless you have other package declarations it will be unncessary in your code.

Secondly, $main::dbh has not beeen assigned anywhere (or was defined somewhere, and undefined at a later point) which is why you get that second error message. Note that lexical variables are not the same as package variables, so if you have declared my $dbh in inc.pl then it will be undefined in main.pl (and does not exist as $main::dbh which is a package variable).

As for the first error message I imagine it is due to the fact you have declared $dbh as a lexical variable in inc.pl and it is falling out of scope which will call it's DESTROY method (destructor) and thereby trigger said error message as there has been no explicit disconnect.
HTH

_________
broquaint

The perl way to do this is to isolate the common code in a module that exports symbols into the user's namespace. Look into Exporter and its various clones for packages that will assist you in setting this up.

90% of every Perl application is already written. ⇒

dragonchild

If you declare $SousMaintenance within prov.pl, like so:

#!/usr/bin/perl
# prov.pl
use strict;
use warnings;
use vars qw( $SousMaintenance );

require './inc.pl';

print $SousMaintenance,"\n";
[download]

with an inc.pl like:

$SousMaintenance = 'value one';
1;
[download]

the problem goes away. Another idea for you is to include a package declaration within inc.pl so that you create a namespace (seperate from main::) like so:

# inc.pl
package myInc;
$SousMaintenance = 'value one';
[download]

Then call it like this within prov.pl:

print $myInc::SousMaintenance,"\n";
[download]