importing data from first program

[J. Alejandro Ceballos Z.]

I have 2 perl programs

The first one is using strict, are two variables have a value, but in a procedure it calls a second program, and I want to load the value of the previous variables, but I can't. See example

-- program 1:

#!/usr/perl
# program1.pl
use strict;
require ("program2.pl");
my ($a,$b) = (1,2);
sub proc1
{ &proc2; }

-- program 2:

#!/usr/perl
# program2.pl
local (*a) = $main::{"a"};
local ($b) = *main::{b};
# no one of them works
sub proc2
{ print "$a , $b"; }
# no data is printed



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]