I have a sed script (all-caps-to-mixed.sed) that apparently worked some
years ago but isn't working today. I'd appreciate learning how to fix it.

The script:
#!/usr/bin/sed
#
# usage: sed -rf all-caps-to-mixed.sed < inputfile > outputfile
# Change from all uppercase words to mixed case.
#
s/([A-Z])([A-Z]*)/\1\L\2/g

Here're some test lines; I included different string formats:

'1983-074','AQ Permitting','CR','MID-OREGON CRUSHING CO., INC.','','Notice of 
Civil Penalty Assessment','','8/26/1983','4500'
'1984-001','WQ Permitting','WR','VANDERVELDE, ROY','','Notice of Civil Penalty 
Assessment',' WQ','5/23/1984','2500'
'1987-027','WQ Permitting','WQ','MERIT USA, INC. (BRIGGS/INDUSTRIAL OIL/FUEL 
PROCE)','','Notice of Civil Penalty Assessment',' WQ','5/28/1987','3500'
'1988-017','Open Burning','SWR','JONES, BILLY AND LADAKE, ROBERT','','Notice of 
Civil Penalty Assessment','','2/18/1988','500'
'1988-031','Asbestos','NWR','LABENSKE, BILL R. JR.','','Notice of Civil Penalty 
Assessment','','6/12/1988','0'
'1989-041','','SW','THOMAS, DONN, AKA/DONN BEAM; SCHULTZ, 
RICHARD;,ANN','','Notice of Civil Penalty Assessment','','2/23/1989','0'

While some uppercase strings should be that way, e.g. USA, those are easily
repaied with emacs search-and-replace. It's the longer strings in
multi-thousand line files that I want to modify.

TIA,

Rich




_______________________________________________
PLUG: https://pdxlinux.org
PLUG mailing list
[email protected]
http://lists.pdxlinux.org/mailman/listinfo/plug

Reply via email to