Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
  my_print();          
  print " (Perl Style:\$i==$i)",\$i,"\n";
}

Select or download this

6, SCALAR(0x8fa4e38)
 (Perl Style:$i==x), SCALAR(0x8f86760), 

6, SCALAR(0x8fa4e38)
 (Perl Style:$i==y), SCALAR(0x8fa4da8),