need perl help...perl module problem

john83reuben · 03-21-2008, 04:19 AM

Guys, I am new to perl. I have a problem here.
This is my 1st script called Twiddle.pm

Code:

package Twiddle;

sub swap {
my $username = "john";    
}

1;

this is my second script

Code:

#!/usr/bin/perl
use strict;
use Twiddle;

print Twiddle::swap("my($username)");
print "\n";

when i execute, error comes. This is the error

Global symbol "$username" requires explicit package name at ./firstmodule.pl line 5.
Execution of ./firstmodule.pl aborted due to compilation errors.

how to solve this problem..

druuna · 03-21-2008, 07:07 AM

Hi,

I don't think this print Twiddle::swap("my($username)"); is correct/will work.

The following will work:

my $username;
print Twiddle::swap($username);

Hope this helps.

chrism01 · 03-22-2008, 09:08 PM

Actually, you'd need to return $username from the pkg sub for the call to print it, otherwise it's just initialising it (in the sub).
You don't need to mention it in the .pl file, unless you are going to pass a new value in from there, in which case I'd declare/assign to it before calling the pkg sub, not inline, that's horrrible.