Passing Variables to a .pm file 1

[skosterow]

The easiest way for me to exaplain this one is to give you guys and gals the script:

# Main File
#!/usr/bin/perl
use CGI qwstandard escapeHTML);
use strict;
unshift(@INC, "subrutines/"
require subrutines;
<-- Unrelevant Script parts -->
$student_name = &quot;Scott&quot;;
&SUBRUTINES::EXAM_NAME ($student_name);
print &quot;Main Name: $student_name&quot;;
exit;
<-- Unrelevant Script parts -->


# subrutines.pm
sub EXAM_NAME {
package SUBRUTINES;
print &quot;Sub Name: $student_name&quot;;
}

1; Return true value

< END OF SCRIPTS >

Okay heres the delema, $student_name WILL NOT PRINT from the EXAM_NAME subrutine. This is the output:

Sub Name: Main Name: Scott

HELP HELP

I gave tried a few variations of sending the variable such as: &SUBRUTINES::EXAM_NAME (&quot;$student_name&quot;, $student_name);
and none seem to work.

Please help....

Scott

 

[raider2001]

Try the following:

sub EXAM_NAME {
    my $student_name = @_;
    package SUBRUTINES;
    print "Sub Name: $student_name";
  }

1; Return true value