Hello, maybe someone can shed some light on a problem
I'm having. I'm trying to split a file into pieces
like the one listed below. What I key it on is
H110704567.CRD and it changes for each account. The
only thing that is consistent is the placement and it
begins with "H" followed by 10 digits and a 3 letter
extension.
I'm using the code below and no matter how I put it I
can never get the H110704567.CRD included in the
split. I tried parens as well too. When I finally get
it working there will be a loop that prints out all of
the elements.
Any help will be greatly appreciated!
open (FILE, "rn410rpt.txt");
while (<FILE>) {
local $/ = undef;
@chunks = split(/H\d{10}\.[A-Z]/, <FILE>);
print $chunks[0];
H110704567.CRD
1MISC-CREDITS
101 1107077467 Company 12-01-03 1
stuff
more stuff
MISC 138,412,674.24 19GT
__________________________________
Do you Yahoo!?
Yahoo! Search - Find what you’re looking for faster
http://search.yahoo.com
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
