Help for this page

Select Code to Download


  1. or download this
    D:\Development>perl -MO=Deparse -e "my $x=$_ for 1..10;"
foreach $_ (1 .. 10) {
    my $x = $_;
}
-e syntax OK
  2. or download this
    D:\Development>perl -MO=Deparse -e "my $x=1 if 0; my $y=1 if 1;"
'???';
my $y = 1;
-e syntax OK
  3. or download this
    use Data::Dump::Streamer;
use Data::Dumper;
...
$VAR2 = undef;
$VAR3 = undef;
$VAR4 = undef;