Karl-Heinz Kuth wrote:
I have a problem with "use strict":
There are two files. The file "test_template.pl" calls the file "test_modul.pl"
via a variable. I read this file name from an ini-file. But for the example
I wrote it into a variable ($modul).
File: "test_template.pl":
use strict;
my $Simulation = "y";
my $modul = "e:\\temp\\test_modul.pl";
print "Simulation before: $Simulation \n";
require $modul;
print "Simulation after: $Simulation \n";
File: "test_modul.pl"
use strict;
$main::Simulation = "f";
print "Simulation modul: $main::Simulation \n";
If I call "test_template.pl", I will get the following output:
Simulation before: y
Simulation modul: f
Simulation after; y
But I want to get Simuation after : f
How do I have to change the code in the file "test_modul.pl", so that
the value of the variable "$Simulation" is also changed in the
"test_template.pl"?
The 'my' is killing you due to it's special scoping. Try 'our' instead or use 'use vars qw(Simulation);' and drop the my.
-- ,-/- __ _ _ $Bill Luebkert ICQ=162126130 (_/ / ) // // DBE Collectibles Mailto:dbe@;todbe.com / ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/ _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
