global var

tultalk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: global var by stevieb (Canon) on Apr 05, 2017 at 20:05 UTC
I don't know exactly what the problem is, but stopped as soon as I saw this: `@EXPORT = qw( $LoggedOn_user_id $VERSION = '0.0.1'; }` [download] There is all manner of wrong with that. Add `use strict;` and `use warnings;` to that code. you can't have a `;` in the middle of a quote-words (qw), unless you truly mean it to be there. `qw()` literally means "quote each item as a word" you have no `our` before `@EXPORT` you don't have a semi-colon after the instantiation of the `@EXPORT` array you open the `qw` with a parens, but close with a brace you can't interpolate variables in `qw()` if this isn't your real code, please do post it. Lastly, use `@EXPORT_OK` instead of `@EXPORT` wherever possible, so you don't pollute other namespaces needlessly.	[reply] [d/l] [select]
Re^2: global var by tultalk (Monk) on Apr 05, 2017 at 20:51 UTC
Hi: Did not want to post tooooo much. package manageusers; use strict; use diagnostics -verbose; use warnings; use CGI; #use Carp::Always; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); use CGI qw(:standard escapeHTML); use CGI qw/:standard/; use Data::Dumper; use Digest::MD5 qw(md5_hex); #use DB_File; # persistent hash database use CGI::Session; use CGI::Cookie; #use vars qw($session_cookie1 $session_cookie2 $login_timeout); #use vars qw($session); use Mail::Sendmail; use Time::HiRes qw(usleep); use Time::Local; BEGIN { use vars qw($VERSION @ISA @EXPORT); use DBI; # $ENV{DBI_TRACE}=1; # $ENV{PERL_DBI_DEBUG}=1; require Exporter; @ISA = qw(Exporter); # exported functions @EXPORT = qw( &OpenConnection &OpenSession &ProcessLoginRequest &ProcessLostDataRequest &LoginUser &decodeEncryptedPassName &UpdateUserData &GetUserLostData &LogoutUser &GetUserSessionCookie &CheckForAuthorizedUser &Expires $attempts $adminaccess $LoggedOn_user_id &Now &CheckValidLoginChar &CheckValidEmailChar &print_md5_javascript); $VERSION = '0.0.1'; } [download] A good read How to Import In other files which wish to use your module there are three basic ways for them to load your module and import its symbols: use YourModule; This imports all the symbols from YourModule's @EXPORT into the namespace of the use statement. use YourModule (); This causes perl to load your module but does not import any symbols. use YourModule qw(...); This imports only the symbols listed by the caller into their namespace. All listed symbols must be in your @EXPORT or @EXPORT_OK , else an error occurs. The advanced export features of Exporter are accessed like this, but with list entries that are syntactically distinct from symbol names. I assume you recommend @EXPORT_OK and YourModule qw(...); Having clarified the code, is there anything you can see that would prevent my grabbing $userid_1 correctly? Now in reading this: When using Exporter with the standard strict and warnings pragmas, the our keyword is needed to declare the package variables @EXPORT_OK , @EXPORT , @ISA , etc. So now my function calls that used to work: Undefined subroutine &main::ProcessLoginRequest called at manage_users.cgi line 86. So now I have to change all these calls to $manageusers::ProcessLoginRequest. Is that correct? Or change use manageusers; to use manageusers qw(myimportlist); I guess posting too much is better than posting too little.	[reply] [d/l]
Re^3: global var by stevieb (Canon) on Apr 05, 2017 at 21:01 UTC
See GotToBTru's post to create a proper example, but from your code, I see this: `# exported functions` [download] That makes me think you copy/pasted something off of the Internet, and with the lines that follow that comment, it appears it closely resembles perl4 code (or someone coding perl5 that hasn't migrated to the perl5 mindset yet. This was nearly two decades ago!). I feel that you need some new resources to read, research and reflect upon. Is this a project that you were forced into and are trying to adjust by chance?	[reply] [d/l]
Re^4: global var by tultalk (Monk) on Apr 05, 2017 at 21:18 UTC
Re^4: global var by tultalk (Monk) on Apr 05, 2017 at 21:43 UTC
Re^5: global var by shmem (Chancellor) on Apr 05, 2017 at 22:22 UTC
Some notes below your chosen depth have not been shown here
Re^5: global var by stevieb (Canon) on Apr 05, 2017 at 22:01 UTC
Some notes below your chosen depth have not been shown here
Re^3: global var by Marshall (Canon) on Apr 06, 2017 at 13:27 UTC
To clarify (I hope) a few things about "use xxx;" `use xxx; #imports all of the symbols in @EXPORT use xxx (); #imports none of the symbols in @EXPORT #this empty list is the same as: (updated) #BEGIN { require Module } use xxx qw(OpenConnection $LoggedOn_user_id); # imports # all of the symbols in @EXPORT AND subroutine OpenConnection # AND the scalar $LoggedOn_user_id from @EXPORT_OK` [download] Update: Another attempt at explaining "use". Case 1: A plain `use xxx;` #imports all of the symbols in @EXPORT. Case2: `use xxx qw(OpenConnection $LoggedOn_user_id);` #imports only the function OpenConnection and the scalar $LoggedOn_user_id. Once a list (the parens) after the "use" shows up, this has the effect of making @EXPORT the same as @EXPORT_OK. In other words, the symbols in @EXPORT are not imported by default and must be explicitly imported like the symbols in @EXPORT_OK. Any combination of symbols in @EXPORT or @EXPORT_OK can go in this list after the "use". Case 3: (consequence of case 2), `use xxx ();` There is an empty list of stuff to import and nothing is imported - the automatic importing of the @EXPORT list is "Overridden". When you import a symbol, you can use the "short" name, e.g. `print $LoggedOn_user_id;`. If we "used" the manageusers module, but did not import $LoggedOn_user_id, that variable can still be accessed with the fully qualified name, `print $manageusers::LoggedOn_user_id;` So if you use the fully qualified name, the variable or sub name does not need to be exported (provided that you have used the module to get it loaded). Only "our" variables can be exported or accessed from another module. A "my" lexical variable cannot be. "our" puts the symbol into the package's symbol table - that means among other things that the fully qualified name is going to work. Such an operation makes no sense for a lexical scope "my" variable. File: manageusers.pm `#!/usr/bin/perl use warnings; use strict; package manageusers; BEGIN { use vars qw($VERSION @ISA @EXPORT); use DBI; # $ENV{DBI_TRACE}=1; # $ENV{PERL_DBI_DEBUG}=1; require Exporter; @ISA = qw(Exporter); # exported functions our @EXPORT_OK = qw( $attempts $adminaccess $LoggedOn_user_id Now CheckValidLoginChar CheckValidEmailChar print_md5_javascript); $VERSION = '0.0.1'; } our $LoggedOn_user_id=33; our $attempts = 99; 1;` [download] File: testManageUsers.pl `#!/usr/bin/perl use strict; use warnings; use manageusers qw($LoggedOn_user_id); print "$LoggedOn_user_id\n"; #prints 33 print "$manageusers::attempts \n"; #prints 99 #Note that $attempts is NOT <strike>exported</strike> imported, but still #can be accessed by the fully qualified name!` [download] I hope this helps. Its really early in the morning here, but I think I did this right. Run my code and then pare further questions down to just the basics and variables involved. Corrected "use xx ();" comment. A bit twitchy with the CTL-V this morning. Also changed commend about $attempts in the mail program. Thanks shmem.	[reply] [d/l] [select]
Re^4: global var by haukex (Archbishop) on Apr 06, 2017 at 14:08 UTC
Re^5: global var by tultalk (Monk) on Apr 06, 2017 at 21:11 UTC
Some notes below your chosen depth have not been shown here
Re^4: global var by tultalk (Monk) on Apr 06, 2017 at 14:31 UTC
Re^5: global var by poj (Abbot) on Apr 06, 2017 at 15:19 UTC
Re^5: global var by Marshall (Canon) on Apr 06, 2017 at 14:54 UTC
Re^4: global var by tultalk (Monk) on Apr 06, 2017 at 17:22 UTC
Re^5: global var by Marshall (Canon) on Apr 08, 2017 at 03:14 UTC
Some notes below your chosen depth have not been shown here
Re^5: global var by poj (Abbot) on Apr 06, 2017 at 18:01 UTC
Some notes below your chosen depth have not been shown here
Re^3: global var by GotToBTru (Prior) on Apr 05, 2017 at 20:55 UTC
Short, Self-Contained, Correct Example But God demonstrates His own love toward us, in that while we were yet sinners, Christ died for us. Romans 5:8 (NASB)	[reply]


No such thing as a small change
	PerlMonks