- or download this
my %directions = ( 1=>'NORTH', 2=>'SOUTH', 3=>'EAST', 4=>'WEST' );
...
$dir = $dir2 + 0;
print_dualvar($dir);
}
- or download this
use strict;
no warnings; # !!!
...
print "House# across the street is ", $house_number+1, "\n";
print "DEBUG: Original house number '$house_number'\n\n";
}
- or download this
$ perl t.pl
House# across the street is 1142
...
House# across the street is 120000000001
DEBUG: Original house number '120000000000'
- or download this
House# across the street is 1142
DEBUG: Original house number '1141 Tennessee Avenue'
House# across the street is 120000000001
DEBUG: Original house number '12E10th Street'