Hello Everyone, I am very new to Perl and have been learning it for the last few months now, but I have a scenario here that is a little out of my skill level and seeking help from the Pros on here. I have a report that I was given and need to reformat the report into a cleaner file to import into my system. I haven't a clue how to start to write this code which is why I didn't include one. I know I will need something like a MATCH or FIND, maybe a CHOMP and so one. What I want to do is combine the lines into the matching account. I have included a copy of my INPUT file and the format of my expected OUPUT file. Any help and explanation of the code would be great! Thank you in advance.
input
H123456,20151209,THIS IS A TEST
H123456,20151209,TO COMBINE ALL
H123456,20151209,MY MATCHING LINES
H123456,20151209,INTO THE FIRST LINE
H123456,20151209,THAT MATCHES.
H654321,20151209,MATCH LINES FOR THIS
H654321,20151209,ACCT INTO THE
H654321,20151209,TOP LINE OF THE ACCT
H432165,20151209,SINGLE LINE FOR THIS ONE
expected output
H123456,20151209,THIS IS A TEST TO COMBINE ALL MY MATCHING LINES INTO
+THE FIRST LINE THAT MATCHES.
H654321,20151209,MATCH LINES FOR THIS ACCT INTO THE TOP LINE OF THE AC
+CT.
H432165,20151209,SINGLE LINE FOR THIS ONE
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.