[Posted and a courtesy copy sent.]

Not enough more complicated to make it necessary to tweak more than two
lines in my code.

How can that be the output?  Column C is not stuck at L; column E is not
stuck at H.

Below is the revised program.  The two commented lines are the previous
versions.  The new version would have worked with the previous data
format also.  TMTOWTDI.

You should be able to make such modifications yourself in the future.

#!/usr/local/bin/perl -w
use strict;

while (<DATA>) {

    print "column $_->[0] stuck at $keys[0]\n"
__END__
 A B C D E F G I J;
 10XLHXXL1;
 11XLHLXL1;
 10LXXLXL1;
 01LHHHXL1;

--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.*-*-*.com/

Hi,

Please some one help me on this, it is somewhat complicate for me.
You ( Tad and Larry ) were help me on simliar problem yesterday.
However,
this time the input is more complicated.

Here is the sample of input files:

 A B C D E F G I J;
 10XLHXXL1;
 11XLHLXL1;
 10LXXLXL1;
 01LHHHXL1;

the output should be:

"column C stuck at L"
"column E stuck at H"
"column G stuck at X"
"column I stuck at L"
"column J stuck at 1"

I really appreciated your help.

--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---