Re^4: Matching range of text with another string in between

It is the end of the day for me but I'll definitely take a look on Monday. I also may owe you all an apology as I left text out of my sample data, and I edited it so that it is now accurate. There is text that comes before the "00003" string, but I don't know how heavily that impacts the code that you gave me.

I have made progress and I will post the updated code on Monday. I tend to like to sleep on things before asking for another round of help. I sincerely appreciate your help so far, and I apologize that it has been a bit frustrating.

Comment on Re^4: Matching range of text with another string in between

Replies are listed 'Best First'.
Re^5: Matching range of text with another string in between by periodicalcoder (Novice) on Apr 25, 2016 at 23:56 UTC
I downloaded "Free Hex Editor Neo" and I saw that the lines seem to end (or start?) with two dots ".." whose hex values are "0d 0a". These are not visible when the file is opened normally. I don't know if this helps. Here is two full lines of actual text from the file which denotes the end of one section and the beginning of the next. It was probably unnecessary but I replaced the dollar figures with nines: `CASCO999999.99~ LX2~` [download] A line with the "00003" string.: `SVCHC:00003999.99999.91~` [download] At the moment I have the following code in a file named test_script.pl, which gets me the first 14 lines and the regex one-liner match gets me the last three: `use warnings; use strict; #Note that this script throws errors when pull file paths are defined. #Must be run from the path that the input/output files exist. open my $fhi, '<', 'cr835.txt' or die "$!"; open my $fho, '>', 'cr_output.txt' or die "$!"; #Prints the first 14 lines to the output file while(<$fhi>) { 1 .. 14 ? print : last; } close $fhi; close $fho; system( q(perl -nle "print if /SE\Q\E3841/ .. /IEA\Q*\E/" "cr835.txt" +) );` [download] I hope that the difficulty we have had wasn't caused by my leaving something important out of my initial post.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Matching range of text with another string in between
by periodicalcoder (Novice) on Apr 25, 2016 at 23:56 UTC

I downloaded "Free Hex Editor Neo" and I saw that the lines seem to end (or start?) with two dots ".." whose hex values are "0d 0a". These are not visible when the file is opened normally. I don't know if this helps.

Here is two full lines of actual text from the file which denotes the end of one section and the beginning of the next. It was probably unnecessary but I replaced the dollar figures with nines:

CAS*CO*999*999.99~
LX*2~
[download]

A line with the "00003" string.:

SVC*HC:00003*999.99*999.9**1~
[download]

At the moment I have the following code in a file named test_script.pl, which gets me the first 14 lines and the regex one-liner match gets me the last three:

use warnings;
use strict;

#Note that this script throws errors when pull file paths are defined.
#Must be run from the path that the input/output files exist.

open my $fhi, '<', 'cr835.txt' or die "$!";
open my $fho, '>', 'cr_output.txt' or die "$!";

#Prints the first 14 lines to the output file
while(<$fhi>) {
  1 .. 14 ? print : last;
}

close $fhi;
close $fho;

system( q(perl -nle "print if /SE\Q*\E3841/ .. /IEA\Q*\E/" "cr835.txt"
+) );
[download]

I hope that the difficulty we have had wasn't caused by my leaving something important out of my initial post.

[reply]
[d/l]
[select]