From: Tad McClellan on 14 Nov 2009 20:14 James Egan <jegan473(a)comcast.net> wrote: > On Fri, 13 Nov 2009 20:37:20 -0600, Tad McClellan wrote: > >> nobody <nobody(a)nowhere.com> wrote: >>> I'm trying to process flat files with many thousands of records. In >>> these files several rows comprise the information for a single >>> customer. In the example __DATA__ below, I'm trying to fill the >>> variables with the customer information while the customer number is >>> 06020004293, then for customer number 07020000279, and finally customer >>> number 09020000251. > > > I answered my own question. No you didn't. > See the block below: > > elsif ( $code eq 'B' ) { > $buffer{Daughter2} = substr $_, 14, 17; > > if (!defined $buffer{Daughter}) { > $buffer{Daughter} = substr $_, 14, 17; > } That answers nobody(a)nowhere.com's question. You are not nobody(a)nowhere.com, you are jegan473(a)comcast.net... -- Tad McClellan email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
First
|
Prev
|
Pages: 1 2 3 Prev: How to get a program output into array Next: Syntax for Perl script |