Re: How to make it work when "use strict;" is on?

It helps us help you better if you show the error message you get.

In your case, you want to make it known to Perl that you want to be using the variable names @potato and $potato as well as @spud and $spud.

This can be done by using:

use vars qw($spud @spud);
[download]

... or, as you're using our already by declaring:

our $spud;
our @spud;
[download]

Comment on Re: How to make it work when "use strict;" is on? Select or Download Code

Replies are listed 'Best First'.
Re^2: How to make it work when "use strict;" is on? by lingoes (Initiate) on Nov 19, 2014 at 13:12 UTC
Thanks for your REP I got these error message: Variable "$potato" is not imported at E:\perl_script\chp3\typeglob.pl +line 8. Possible unintended interpolation of @potato in string at E:\perl_scri +pt\chp3\typeglob.pl line 9. Variable "@potato" is not imported at E:\perl_script\chp3\typeglob.pl +line 9. Global symbol "$potato" requires explicit package name at E:\perl_scri +pt\chp3\typeglob.pl line 8. Global symbol "@potato" requires explicit package name at E:\perl_scri +pt\chp3\typeglob.pl line 9. Execution of E:\perl_script\chp3\typeglob.pl aborted due to compilatio +n errors. [download] when I turned off the "use strict;", it worked well...	[reply] [d/l]
Re^3: How to make it work when "use strict;" is on? by Corion (Patriarch) on Nov 19, 2014 at 13:15 UTC
Whoops - in my reply, I gave you the wrong variable names to declare to Perl. You already declare `$spud` and `@spud`, but if you want to also use `$potato` and `@potato`, you need to also declare theses as global variables. You're using `our`, so you should declare: `our $potato; our @potato;` [download] This will allow the two names to be used.	[reply] [d/l] [select]
Re^4: How to make it work when "use strict;" is on? by lingoes (Initiate) on Nov 19, 2014 at 13:24 UTC
It works, thanks! `#!/usr/bin/perl use warnings; use strict; our $spud="Wow!"; our @spud=qw(idaho russet); our($potato,@potato); potato=spud; print $potato; print "@potato"` [download]	[reply] [d/l]