Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Print $_ = 0 $_
while (<>) {
    print $_ >= 0 ? $_ : -$_
}