Help for this page

Select Code to Download


  1. or download this
    'string'
"another string"
q(yet another)
qq<or like this>
  2. or download this
    12
1_2
0b1100
0x0c
  3. or download this
    #!/usr/bin/perl
use warnings;
...
my @arr = qw( 10 10 20 0x47 1 30 45 45 );
my @converted = map /^0x/ && oct || $_, @arr;
say for @converted;
  4. or download this
    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,