Perl Help With Text Manipulation

11-27-2007	#1 (permalink)
crazyperl Just Joined! Join Date: Nov 2007 Posts: 4	Perl Help With Text Manipulation Hello everyone. I am trying to use perl or whatever programming lanaguage to do the following: Read a text file that has something like this in it: ISA00 00 33Test ZZ1234567SBRP18ABC* 200739933 19523222M~ I would like it to read the file and look for "SBR" and grab the ABC and place ABC after the "M~" with REF23 in front of it. So it should look like this: ISA00 00 33Test ZZ1234567SBRP18ABC* 200739933 19523222M~REF23ABC In the file it will have multiple loop. If anyone can help out, I would greatly appreciate it. Thank you for looking.
	Looking for Linux Hosting? Click Here

11-27-2007	#2 (permalink)
radoulov Just Joined! Join Date: Sep 2007 Posts: 96	If sed is acceptable: Code: sed 's/SBR\[^]\[^]\$[^]$./&REF23\1/' filename Last edited by radoulov; 11-27-2007 at 07:51 PM.. Reason: -1 character :)

11-27-2007	#3 (permalink)
apoorv_khurasia Linux Enthusiast Join Date: Feb 2005 Location: Laurasia Posts: 624	Perl: Code: while (<>) { if ($_ =~ m/SBR/) { $_ =~ s/^(.)(ABC)(.M~)/$1$3REF23$2/; print $_, "\nFor testing only\n"; } } __________________ "There is no sixth rule"* --Rob Pike Registered Linux User: 400426 home page Last edited by apoorv_khurasia; 11-27-2007 at 08:26 PM.. Reason: REF123 --> REF23

11-28-2007

#4 (permalink)

ghostdog74

Linux User

Join Date: Aug 2006

Posts: 418

Quote:

Originally Posted by apoorv_khurasia

Perl:

Code:

while (<>)
{
     if ($_ =~ m/SBR/)
     {
          $_ =~ s/^(.*)(ABC)(.*M~)/$1$3REF*23$2/;
          print $_, "\nFor testing only\n";
     }
}

if thats the case, this would suffice

Code:

...
 if ($_ =~ m/SBR/)
{
  print $_ . "REF*23*ABC" ;
}
...

don't think "ABC" is constant.

11-28-2007

#5 (permalink)

apoorv_khurasia

Linux Enthusiast

Join Date: Feb 2005

Location: Laurasia

Posts: 624

Quote:

Originally Posted by ghostdog74

if thats the case, this would suffice

Code:

...
 if ($_ =~ m/SBR/)
{
  print $_ . "REF*23*ABC" ;
}
...

Hmm....thats cool! Thanks.

__________________
"There is no sixth rule"

--Rob Pike

Registered Linux User: 400426 home page

11-28-2007	#6 (permalink)
crazyperl Just Joined! Join Date: Nov 2007 Posts: 4	Thank you everyone for the response. It is much appreciated. Yes ABC is not constant. Let me clarify a little bit more: ISA00 00 33Test ZZ1234567SBRP18ABC* 200739933 DMGD8XXXXXXXXM~ to ISA00 00 33Test ZZ1234567SBRP18ABC* 200739933 DMGD8XXXXXXXXM~REF23ABC This is just one of many lines in the text. I guess I would need a loop. For ever SBR that it finds, it copies ABC (which is not constant), it places it after "DMGD8XXXXXXXX*M~" (XXXXXXX is always changing) After it does so, it creates a new file or replaces the file with the changes. I hope I'm clear on that. Once again, thank you very much for the help.

11-28-2007	#7 (permalink)
Franklin52 Linux Enthusiast Join Date: Aug 2006 Posts: 598	Assuming the lines have an asterix as fieldseperator with the fields in the same order: Code: awk 'BEGIN {FS=""} { if($10=="SBR") { print $0 "REF23*" $13 } else { print $0 } }' file Regards

11-28-2007	#8 (permalink)
crazyperl Just Joined! Join Date: Nov 2007 Posts: 4	* = Element : = Subelement ~ = segment so no the * is not a field seperator. Thanks.

11-28-2007	#9 (permalink)
crazyperl Just Joined! Join Date: Nov 2007 Posts: 4	here is a record from the file: ISA00 00 33TEST ZZ201736437 0710021720U004010000015340T:~GSHC837201 7364372007100217201X004010X098A1~ST8370001~ BHT0019002007100217262220071002172622CH~REF* 87004010X098A1~NM1412TEST2****46TEST~PERIC JOHN DOEEMTEST@TEST.COM~NM1402ccn***46TEST3~HL* 1*201~NM1852SOUTHWEST AMBULANCE***XX1538116652~N3PO BOX 12345~N4PHOENIXAZ123456789~REFEI159656~HL21 221~SBRP001B12****ZZ~NM1IL1TESTTEST TEST**MI123456789~N31212 TEST~N4CASA GRANDEAZ85222~DMGD819490926M~Insert In hereNM1PR2ELDORADO BPO SERVI****PI260837~HL32230~PAT01~NM1QC1TE STTEST TEST**MI361429326~DMGD819580107F~CLM1234567 81755.52*41::1NAYN~REFF826556566hm0006.ti f~REFD9ECI001B1220703825800~HIBK:2931BF:311~HC P1035.18~NM1772SOUTHWEST AMBULANCE~N3UNKNOWN~N4Casa GrandeAZ99999~LX1~SV1HC:A0428940.13UN141** 1~DTP472RD820070801-20070801~LX2~SV1HC:A0425777.63UN49411~DTP 472RD820070801-20070801~LX3~SV1HC:A03820.02UN141*1~DTP472 RD820070801-20070801~HCP100.02~LX4~SV1HC:A03821.18UN14 1*1~DTP472RD820070801-20070801~HCP101.18~LX5~SV1HC:A03820.16UN14 1*1~DTP472RD820070801-20070801~HCP100.16~LX6~SV1HC:A03824.54UN14 1*1~DTP472RD820070801-20070801~HCP104.54~LX7~SV1HC:A03820.03UN14 1*1~DTP472RD820070801-20070801~HCP100.03~LX8~SV1HC:A038229.71UN1 41*1~DTP472RD820070801-20070801~HCP1027.13~LX9~SV1HC:A03821.4UN44 1*1~DTP472RD820070801-20070801~HCP101.4~LX10~SV1HC:A03820.72UN44 1*1~DTP472RD820070801-20070801~HCP100.72~SE690001~GE11~IEA100000 1534~

Are you a Linux Guru who is willing to share your in-depth Linux knowledge? Try our new Article submission system.