in reply to There has to be an easier way...

Did you try split? 
    my($clliA, $clliZ) = (split /\|/)[14,15];

[download]
You may need to adjust those indices a bit, because I didn't know whether you meant columns 15 and 16 (starting from 1), or what.

Replies are listed 'Best First'.
RE: Re: There has to be an easier way...
by bxjoh (Initiate) on Aug 16, 2000 at 01:12 UTC
    I know that the split would work but I split the line later. At this point in the program I am just trying to pull Those 2 fields from the line so that I can pass those fields and the line into my sub-routine. I am trying to do it without having to split the line a bunch of times. Thx though
[reply]
      Not only does split not damage your data, it is much more efficient then a reg-ex. And if you tell it exactly which elements you are looking for, it gets even more efficient.

      Trust the monks, re-read the man page for split and use it.

[reply]
      oops well your way is quite a bit faster..... Thx man
[reply]

In Section Seekers of Perl Wisdom