Perl Cd Bookshelf [Electronic resources] نسخه متنی

31.21. use vars

use vars qw($frobbed @munge %seen);

This pragma, once used to declare a global variable, is now somewhat
deprecated in favor of the our modifier. The previous declaration
is better accomplished using:

our($frobbed, @munge, %seen);

our $frobbed = "F";
our @munge = "A" .. $frobbed;
our %seen = ();