/usr/share/doc/libpcre-ocaml-dev/examples/subst/subst.ml is in libpcre-ocaml-dev 7.2.3-2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | open Pcre
let parse_args () =
let quick = ref false
and first = ref false
and ignore_case = ref false
and offset = ref 0
and pat = ref None
and substr = ref None in
let q = "-q", Arg.Set quick,
"Quick replacement. Interpretes substitution as plain text."
and f = "-f", Arg.Set first, "Replace first occurrence in line only."
and i = "-i", Arg.Set ignore_case, "Ignore case."
and ofs = "-ofs", Arg.Int (fun n -> offset := n),
"Start matching at column n."
and usage =
"Usage: subst [-q] [-f] [-i] [-ofs offset] pattern substitution\n\n\
Reads lines from standard input and replaces occurrences of\n\
the PERL-style regular expression \"pattern\" with \"substitution\",\n\
printing the result to standard output.\n\
In default mode the contents of \"substitution\" will be interpreted\n\
similarly to its equivalent in PERL.\n"
and anon_arg arg =
match !pat, !substr with
| None, _ -> pat := Some arg
| _, None -> substr := Some arg
| _ -> raise (Arg.Bad "too many arguments!") in
let args = [q; f; i; ofs] in
Arg.parse args anon_arg usage;
let flags = if !ignore_case then [`CASELESS] else [] in
let rex, sstr =
match !pat, !substr with
| Some rex, Some sstr -> regexp ~flags rex, sstr
| _ -> prerr_endline (Sys.argv.(0) ^ ": not enough arguments!");
Arg.usage args usage; exit 1 in
match !quick, !first with
| false, false -> fun s -> replace ~rex ~pos:!offset ~templ:sstr s
| true, false -> fun s -> qreplace ~rex ~pos:!offset ~templ:sstr s
| false, true -> fun s -> replace_first ~rex ~pos:!offset ~templ:sstr s
| true, true -> fun s -> qreplace_first ~rex ~pos:!offset ~templ:sstr s
let _ =
let substitute = parse_args () in
foreach_line (fun line ->
try print_endline (substitute line)
with Invalid_argument _ -> print_endline line)
|