How to export a list of url strings as a json file?

Question

I want to export a list of url's as a JSON file.

For instance:

Export[NotebookDirectory[] <> "file.json", {"https://www.google.com/", "https://www.google.com/"}, "JSON"] 

Unfortunately mathematica adds back slashes to the file.

[
"https:\/\/www.google.com\/",
"https:\/\/www.google.com\/"
]

Question:

how to export a list of url's to a JSON file?

Answer 1

If I understand the (more or less) official standard description correctly, a / is allowed to be escaped with \ as Export does, but does not have to be escaped. Thus the JSON that Export generates is valid and should be read back as the original string (without the escape character) by any correctly implemented JSON import code.

So if you are just longing for valid JSON, then there is nothing to do. If for any reason you want to get rid of the escape characters, that can be done like in your own answer and the result will still be valid JSON.

Answer 2

adapting @Kuba's solution to a similar question.

jsonExport[file_, listOfURLs_]:=FileTemplateApply[#, #2[[1]], file] & @@ Reap@ExportString[URL /@ listOfURLs, "RawJSON", "ConversionFunction" -> Function[Sow[First@#]; "``"]]

.

jsonExport[NotebookDirectory[] <> "file.json", {"https://www.google.com/", "https://www.google.com/"}] // Import

{"https://www.google.com/", "https://www.google.com/"}