http://www.perlmonks.org?node_id=1013434

Mark.Allan has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks

I am not asking for anyone to write any code here but I am looking for good advice where to start with my issue.

I have a flat file and what I need to do is read the contents of that file (which is simple enough) but the part I cant work out is I need to join the contents of the file into one complete string between pointers in a file.

Example is an extract from the test file

# 20130115 175816.654330 modify 0;mc_ueid='mc.hq_i_aix_01.10f59802.0'; mc_modhist=[hq_i_aix_01]; repeat_count=1; END # 20130115 175817.304403 modify 0;mc_ueid='mc.hq_i_aix_01.10d41bfd.2'; mc_modhist=[hq_i_aix_01]; repeat_count=14555; END # 20130115 175817.615425 modify 0;mc_ueid='mc.hq_i_aix_01.10c99dfe.1'; mc_modhist=[hq_i_aix_01]; repeat_count=14605; END # 20130115 175818.571722 modify 0;mc_ueid='mc.hq_i_aix_01.10f58d1f.0'; mc_modhist=[hq_i_aix_01]; repeat_count=10; END

I need to start at the # of each entry and finish at the END and remove the carriage returns and join the contents of the data into one complete string keeping the ";" separators. I need to do this for each occurrence of data which falls between # and END. I hope I've explained it ok

Any help would be much appreciated"