Help for this page

Select Code to Download


  1. or download this
    use strict; use warnings; 
my $a=''; # entered by holding down cntrl pressing _ (shift+-) 
...
my $b="\x1f"; 
if ($a eq $b) {print '$a eq $b'."\n";} 
exit;
  2. or download this
    ord:31
hex:1f
$a eq $b
  3. or download this
    #use strict; use warnings; 
my $a=''; # entered by holding down cntrl pressing _ (shift+-) 
...
if ($a eq $b) {print '$a eq $b'."\n";} 
my $bb=\x1f; 
print $bb."\n";
  4. or download this
    ord:31
hex:1f
$a eq $b
SCALAR(0xa3e67c)