Re: Global symbol requires explicit package..

Try to change your code this way:

my $sys = $^O;
my $lim;
if ($sys eq "linux") { 
     $lim="clear";
} else {
     $lim="cls";
}
# ...
[download]

You actually don't really need the $sys variable, you could compare dirfectly $^O, but it does not matter.

Comment on Re: Global symbol requires explicit package.. Download Code

Replies are listed 'Best First'.
Re^2: Global symbol requires explicit package.. by tobyink (Canon) on Jan 22, 2014 at 10:12 UTC
Indeed; the whole thing could be written as: `my $lim = ($sys eq 'linux') ? 'clear' : 'cls';` [download] `use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name`	[reply] [d/l]
Re^3: Global symbol requires explicit package.. by choroba (Cardinal) on Jan 22, 2014 at 10:23 UTC
As noted by Tux in Re^2: Global symbol requires explicit package... I also like the hash switch solution if there are more possibilities than one: `my $lim = { linux => 'clear', BASIC => 'clrscr', }->{$^O} \|\| 'cls';` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]