Global Variable

[abithajames]

There should be a variable declared in one file say $error in "file1.pl".

I need to change the value of the variable $error in another file say "file2.pl".

This change should get reflected in "file1.pl".

How can I achieve this?

for eg: file1.pl

$error = 10; #Assigning value 10 to $error.

print "before $error \n"; # This will print 10.

system("file2.pl");

print "after $error \n"; # This should print 20. How can I acheive this?

file2.pl

$error = 20;

You valuable suggestions will be of great help. Basically I want the value of a variable to be changed in a file and the changed value should get reflected in the file from which the former file is executed.

Thanks,

Abitha.

[Corion]

That's not how system works. Read it, and understand the concept of separate memory spaces. Maybe you want do or require to load a configuration. Or you want one of the Config modules instead?

[lamp]

The following is the sample code for achieving the above mentioned scenario using require method.
file1.pl


#!/usr/bin/perl -w
use strict;
use warnings;
our $error;

$error = 10;

print "before $error \n";

require 'file2.pl';  # you can use 'do' also

print "after $error \n";

file2.pl


#!/usr/bin/perl -w
use strict;

our $error = 20;

output


before 10
after 20

[oko1]

Ignoring, for the moment, your misuse of "system" (please do follow Corion's advice - it's dead on target), you could do it this way (a.k.a. "crude but effective"):

#!/usr/bin/perl -w
use strict;
# This is file1

my $error = 10;
print "$error.\n";

#!/usr/bin/perl -w
use strict;
# This is file2

print "Before: ";
# Run the first script
do "file1";

my $new_error_value = 20;

@ARGV = "file1";
{
    local $^I = ""; # Enable in-place editing
    while (<>){
        s/(\$error\s*=\s*)\d+/$1$new_error_value/;
        print;
    }
}

print "After: ";
# Run the first script
do "file1";

Or, if you really insist on using "system":

#!/usr/bin/perl -w
use strict;
# This is file2

print "Before: ";
# Run the first script
do "file1";

system "/usr/bin/perl", qw{-i -wpe s/(\$error\s*=\s*)\d+/${1}20/ file1
+};

print "After: ";
# Run the first script
do "file1";

Update: Tweaked regex to remove unnecessary parens (just because I'm picky like that. ;)