Help for this page

Select Code to Download


  1. or download this
    $ perl -E " my( $r, $a, @bba ) = ( 0, 1, 2..4,1,2..4 );  $r = $a ~~ @b
+ba; say $r; "
1
  2. or download this
    #!/usr/bin/perl --
use 5.010;
...
SCALAR(0x9b386c) 3 = 6