Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Print $_ 10 $_
while (<>) {
    print $_ < 10 ? $_ : "${\((a .. f)[$_ - 10])}\n";
}