I have a lot of scripts written in perl here and have been using PHP a lot now. I am
wondering if PHPs regexps are powerful or not. I will show a small section of this
code below that I clean up witht he perl scripts. It cleans it almost right up but
take a look :) And YES there is actually information we use in this file :)
Jeff
*******************************************BATCHJobBATCH_384,SubmittedbyPRDMANOPERonNodeKWRB*******************************************%SET-W-NOTSET,errormodifyingKWRB$DKA0:-CLI-E-IVDEVTYPE,invaliddevicetype-specifyamailboxdevice$log*o=="logoff/full"needtohavecapabilities$tologout$iff$mode().eqs."INTERACTIVE"thenprdmenu$logout/full$hellosystemKWRtakes0Hellosystem,haveaniceday$setverify$znewdate$6sep01$heading$@clasNumb:1000@sort:BABYBEDDI@firs:6sep01L9BC11758KWRN2N1V4$Diag1135247V2<sti><namPOS><sv10><fu1><bns><bc>*cbe,99<ec1><bc>*pe<ec1><eol><ava90><m1560><sha28><ewi67><bc>*tfNEWSGO<ec1><fs81><vbn271><ps200><bc>*BF<ec1><fs83><vbn273><sfv1><bc>*ps6<ec1><ps120><bc>*ss6.5<ec1><ss130><bc>*la104%<ec1><bc>*cpe<ec1><bc>*cse<ec1><bc>*ih6.<ec1><bc>*bo<ec1><ens>BABY,<mha>BEDDING<bc>*bb<ec1><bns><bc>*cpd<ec1><bc>*tfNEWSGO<ec1><fs81><vbn271><sfv0><bc>*ps6.<ec1><ss120><bc>*ss6.5<ec1><ss130><bc>*la104%<ec1><bc>*fe<ec1><ens><mha>for<mha>crib.<mha>In<bns>-<ens><eol><ava124><sha58><aha120><ewi67>cludes<mha>matching<mha>Crib<mha>Mo<bns>-<ens><eol><ava124><sha26><aha120><ri312><ewi67>bile.<mha>$20.<mha>578-6231.<mha><bns><bc>*dih<ec1><bc>*pe<ec1><eol><ava60><ri12><ewi67><bc>*lcd<ec1><bc>*add<ec1><bc>*ic<ec1><bc>*IR.6<ec1><bc>*rs.5<ec1><bc>*la3.<ec1><bc>*rab<ec1><hpr0><rul10,1548><aha1548><bc>*ru<ec1><bc>*fe<ec1><ens><ava30><eol>
$@clasNumb:1000@sort:BABYBEDDI@firs:6sep01L9BA46614KWRN2N3C7$Diag1117244V2<sti><namPOS><sv10><fu1><bns><bc>*cbe,99<ec1><bc>*pe<ec1><eol><bc>*tfNEWSGO<ec1><fs81><vbn271><ps200><bc>*BF<ec1><fs83><vbn273><sfv1><bc>*ps6<ec1><ps120><bc>*ss6.5<ec1><ss130><bc>*la104%<ec1><bc>*cpe<ec1><bc>*cse<ec1><bc>*ih6.<ec1><bc>*bo<ec1><ens><bc>*com<ec1><bc><bn><nop>Memo:sameplaced...e-mail....dee<10><ec1><eol><ava90><m1560><sha25><ewi67>BABY<mha>BEDDING.<bc>*bb<ec1><bns><bc>*cpd<ec1><bc>*tfNEWSGO<ec1><fs81><vbn271><sfv0><bc>*ps6.<ec1><ss120><bc>*ss6.5<ec1><ss130><bc>*la104%<ec1><bc>*fe<ec1><ens><aha26>Noah's<mha>Ark<eol><ava124><sha51><aha120><ewi67>from<mha>Sears,<mha>A1<mha>condition.<eol><ava124><sha26><aha120><ri326><ewi67>$50<mha>firm.<mha>743-9923.<mha><bns><bc>*dih<ec1><bc>*pe<ec1><eol><ava60><ri12><ewi67><bc>*lcd<ec1><bc>*add<ec1><bc>*ic<ec1><bc>*IR.6<ec1><bc>*rs.5<ec1><bc>*la3.<ec1><bc>*rab<ec1><hpr0><rul10,1548><aha1548><bc>*ru<ec1><bc>*fe<ec1><ens><ava30><eol>
$@clasNumb:1000@sort:BABYBREAS@firs:6sep01L9BB31124KWRN1B1B5$Diag1131124V1<sti><namPOS><sv10><fu1><bns><bc>*cbe,99<ec1><bc>*pe<ec1><eol><bc>*tfNEWSGO<ec1><fs81><vbn271><ps200><bc>*BF<ec1><fs83><vbn273><sfv1><bc>*ps6<ec1><ps120><bc>*ss6.5<ec1><ss130><bc>*la104%<ec1><bc>*cpe<ec1><bc>*cse<ec1><bc>*ih6.<ec1><bc>*bo<ec1><ens><bc>*com<ec1><bc><bn><nop>Memo:same....faxed.....dee<10><ec1><eol><csa0><ava90><m1560><sha199><ewi67>BABY<mha>BREAST<bc>*bb<ec1><bns><bc>*cpd<ec1><bc>*tfNEWSGO<ec1><fs81><vbn271><sfv0><bc>*ps6.<ec1><ss120><bc>*ss6.5<ec1><ss130><bc>*la104%<ec1><bc>*fe<ec1><ens><mha>pump.<csa0><eol><ava124><sha23><aha120><ewi67>Gerber.<mha>Like<mha>new.<mha>$35.<mha>Call<eol><ava124><aha120><ri852><ewi67>653-3355.<bns><bc>*dih<ec1><bc>*pe<ec1><eol><ava60><ri12><ewi67><bc>*lcd<ec1><bc>*add<ec1><bc>*ic<ec1><bc>*IR.6<ec1><bc>*rs.5<ec1><bc>*la3.<ec1><bc>*rab<ec1><hpr0><rul10,1548><aha1548><bc>*ru<ec1><bc>*fe<ec1><ens><ava30><eol>
