Help for this page

Select Code to Download


  1. or download this
    use constant A => 12;
my %hash = ( (A) => 'twelve' ); # beautiful
  2. or download this
    m=Deparse
diff <(perl -MO=$m -e 'use constant A => 12; my %hash = ( A() => "twel
+ve")') \
     <(perl -MO=$m -e 'use constant A => 12; my %hash = ( (A) => "twel
+ve")')
  3. or download this
    m=Terse
diff <(perl -MO=$m -e 'use constant A => 12; my %hash = ( A() => "twel
+ve")' \
       | perl -pe 's/0x\w+/X/g') \
     <(perl -MO=$m -e 'use constant A => 12; my %hash = ( (A) => "twel
+ve")' \
       | perl -pe 's/0x\w+/X/g')
  4. or download this
    m=Concise
diff <(perl -MO=$m -e 'use constant A => 12; my %hash = ( A() => "twel
+ve")') \
...
< 4           <$> const[IV 12] s*/FOLD ->5
---
> 4           <$> const[IV 12] sP*/FOLD ->5
  5. 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,