Search:

Is it working the way you want?

Do you have any other questions?

You could add this to make debugging easier.

use Getopt::Std;
getopts('d', \%opts);
$debug = 0;
foreach (keys %opts) {

I am not sure why you are using 10**?? For your
max and min values.



print "First number:\n";
my $dig1 = <>;
chomp($dig1);
print "Second number:\n";
my $dig2 = <>;

The last one did not work for an odd number of digits.
This one works well. I think it is pretty cool.



#! /usr/bin/perl -w

use strict;
my ($A, $B, $P, $Max, $i );

This should look better. I didn't know there was a code button.
I am new at askmehelpdesk.com



#! /usr/bin/perl -w

use strict;
my ($A, $B, $P, $Max, $i );

substr EXPR,OFFSET,LENGTH

1. my $s = "The black cat climbed the green tree";
2. my $color = substr $s, 4, 5; # black
3. my $middle = substr $s, 4, -11; # black cat climbed the
4....

Try this. This is a more efficient way to do it.
If you want to see all the palindromes, then comment out this line:
next if ($P <= $max) ;

#! /usr/bin/perl -w

use strict;
my ($L, $A, $B,...

My wiring through the capacitor was wrong. Dayton changed their wiring, and I had
Wired it the way the previous motor was wired. Thank you Grainger Tech. Support.

I am planning to take my AC Condenser Fan back to Grainger because it start
Rotating on direction one time it starts and it may start the other direction
The next time. The motor is a 1/3 hp...

First off, instead of starting with 100 x 100, I would start with 999 x 999 and work my way down.

for ($A = 999 ; $A >= 100 ; $A--)

Secondly, I think the third argument of your substr command...