Mega Code Archive

 

Categories / Perl / Language Basics

 

Print $_ = 0 $_

while (<>) {     print $_ >= 0 ? $_ : -$_ }