glob pack : glob « File « Perl

1. Perl
2. File
3. glob

glob pack

     
#!/usr/bin/perl

use warnings;
use strict;

sub define_global {
    use vars qw($package_variable); #scope NOT limited
    $package_variable = "defined in subroutine";
}

print $package_variable; 
define_global;
print $package_variable; 

   
    
    
    
    
  

Related examples in the same category