Quick question. I want to pass a variable to a non-oo module that I created. But I how do I get the module to contain the value of the variable that was created in the 'main' namespace. I think there is something easy that I am not understanding. Example code below.

PROGRAM BEGIN

#!/usr/bin/perl
use HelloWorld;

$var = 'hello world';

printStatement;
exit;
[download]

PROGRAM END

MODULE BEGIN

#!/usr/bin/perl

package HelloWorld;
require Exporter;

our @ISA       = qw(Exporter);
our @EXPORT    = qw(printStatement);

our $VERSION   = 1.00;

sub printStatement { print $var; }

1;
[download]

MODULE END

THINGS I'VE TRIED BEGIN

• I've tried passing in $var to printStatement, printStatement($var) in the program
• I've tried using the 'main' namespace in the module print $main::var;
• I've tried passing a reference the $var in the module printStatement (\$var);

THINGS I'VE TRIED END

Executive summary: how do I define a variable in my program and have a module use that variable definition (in a non-oo module).

Jeff

edited: Wed Oct 16 15:59:10 2002 by jeffa - formatting fixes

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.