Think about Loose Coupling | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
Hi Velusamy,
Thanks a lot. But There is some problem in the output... I made a small change in your code <code> ($pre eq "") ? ($col = 0):($col = split/\s+/, $pre); <code> Now its giving proper output. The word repeated in Line 1 and in column 4 The word repeated in Line 3 and in column 2 The word repeated in Line 3 and in column 4 The word repeated in Line 4 and in column 1 The word repeated in Line 4 and in column 5 The word repeated in Line 4 and in column 7 Thanks In reply to Re^2: Can anyone simplify this code
by Anonymous Monk
|
|