Mega Code Archive

 

Categories / Perl / Language Basics

 

The code executes a line of code you type as long as that line doesnt start with a #

while (<>) {eval if !/^#/} #The script executes it like this: #How does this script look with the $_ back in?  while ($_ = <>) {eval $_ if !($_ =~ /^#/)}