Help for this page

Select Code to Download


  1. or download this
    print for @a[@indices] or 1..11
  2. or download this
    print for grep($a[$_], @indices) ? @a[@indices] : 1..11;
    print for grep(defined $a[$_], @indices) ? @a[@indices] : 1..11;
    ...
    print for !grep(!defined $a[$_], @indices) ? @a[@indices] : 1..11;
    print for !grep(!exists $a[$_], @indices) ? @a[@indices] : 1..11;
    # update: actually use slices after ?