Mega Code Archive

 

Categories / Perl / Language Basics

 

The strict Pragma

#!/bin/perl use strict "refs"; $animal="dog"; $dog="Tom"; print "${$animal}\n"; eval "\$$animal='Tom';"; print "${$animal}?\n";