Help for this page

Select Code to Download


  1. or download this
    my @a = x() | (4,5,6);
  2. or download this
    my @a = scalar(x()) | scalar(4,5,6);
  3. or download this
        my @a = scalar(x()) | scalar(4,5,6);
=== my @a = scalar(x()) | scalar(5,6);
=== my @a = scalar(x()) | scalar(6);
=== my @a = scalar(x()) | 6;
  4. or download this
    >perl -MO=Deparse -e"my @a = x() | (4,5,6);"
my(@a) = x() | ('???', '???', 6);