Help for this page

Select Code to Download


  1. or download this
    X:\>perl -MO=Deparse -e"use constant L=>1,2,3; print @a[L]"
use constant ('L', 1, 2, 3);
print @a[1..3];
-e syntax OK
  2. or download this
    D:\>perl -MO=Deparse -e"use constant L=>1,2,3; print @a[L]"
use constant ('L', 1, 2, 3);
print @a[L()];