Mega Code Archive

 

Categories / Perl / Language Basics

 

%INC values

#!/usr/bin/perl use strict; print "\%INC contains: \n"; foreach (keys %INC) {     print " $INC{$_}\n"; } require File::Copy; do '/home/perl/include.pl'; print "\n\%INC now contains: \n"; foreach (keys %INC) {     print " $INC{$_}\n"; }