Programming Forums > Script Programming > Perl

kruptof · Jun 30th, 2008, 11:58 AM

I am trying to experiment with using typglobs using the following code:

#!/indigoperl/bin/perl
#use warnings;
#use strict;
our ($spud,@spud);
$spud = "I am a scalar";
@spud = qw(I am an array);
sub spud
{
	print "I am a sub routine;";
}
*potato = *spud;

print $potato;

The code above works fine as expected, but when I enable the strict pragma, it doesn't compile and dies with the error:

Quote:

Variable "$potato" is not imported at refs.pl line 13.
Global symbol "$potato" requires explicit package name at refs.pl line 13.
Execution of refs.pl aborted due to compilation errors.

This is probably because i havent declared the lexical variable $potato, so my question is can typeglobs be used with the strict pragma enabled and if so how?

KevinADC · Jul 10th, 2008, 3:41 AM

Sure they can but you still have to declare your variables.

(Toggle Plain Text)

#!/indigoperl/bin/perl
use warnings;
use strict;
our ($spud,@spud,$potato);
$spud = "I am a scalar";
@spud = qw(I am an array);
sub spud
{
	print "I am a sub routine;";
}
*potato = *spud;

print $potato;

Jul 10th, 2008, 3:41 AM	#2
KevinADC Newbie Join Date: Jul 2008 Posts: 7 Rep Power: 0	Re: use strict and typeglobs Sure they can but you still have to declare your variables. (Toggle Plain Text) #!/indigoperl/bin/perl use warnings; use strict; our ($spud,@spud,$potato); $spud = "I am a scalar"; @spud = qw(I am an array); sub spud { print "I am a sub routine;"; } potato = spud; print $potato; #!/indigoperl/bin/perl use warnings; use strict; our ($spud,@spud,$potato); $spud = "I am a scalar"; @spud = qw(I am an array); sub spud { print "I am a sub routine;"; } potato = spud; print $potato;

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Script Programming > Perl

use strict and typeglobs