how to use a variable in multiple perl scripts

[jaigs_27]

1) I am using a variable of another scripts in my script, following is my code :-

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

require "./test.cgi";

for my $reslt (@values) {
if ( $rslt eq "red" ) { next; }
print "Value find";
&test_fucn;

}


@values is from another script

but I am getting following error with use sctrict
Global symbol "@values" requires explicit package name at
compilation errors.

else

Name "main::values" used only once: possible typo at
syntax OK


Any other better way ???

[wje_lf]

Try putting this near the top:

our @values;

... and, just to be safe, try putting the same statement near the top of the file you're requiring.

[jaigs_27]

I have another query

I want to call a function/subroutibe test_fucn from test.cgi for that I am doing following

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

require "./test.cgi";

for my $reslt (@values) {
if ( $rslt eq "red" ) { next; }
print "Value find";
&test_fucn;

}


But problem - It is giving me whole printable output from test.cgi which is not a part of test_fucn.

any suggestions, so that I can use only subroutine ?

[wje_lf]

Whoa, whoa, WHOA! Did my suggestion work for you?

[jaigs_27]

Ya now I am not getting those errors msg?

Thanks

Now I am looking for some other issue

I think require can not work in that case do u have any other suggestions?

[wje_lf]

You should go to that other thread. But you probably know that already. This is like letters getting crossed in the mail. :)