Mega Code Archive

 

Categories / Perl / Language Basics

 

Print $_ 10 $_

while (<>) {     print $_ < 10 ? $_ : "${\((a .. f)[$_ - 10])}\n"; }