从 Python 到 F# 的字符串替换实用程序转换

Question

我有一个简单的 python 实用程序代码，可以逐行修改字符串。代码如下。

import re

res = ""
with open("tclscript.do","r") as f:
    lines = f.readlines()
    for l in lines:
        l = l.rstrip()
        l = l.replace("{","{{")
        l = l.replace("}","}}")
        l = re.sub(r'#(\d+)', r'{\1}',l)
        l += r'\n'
        res += l
    res = "code="+res

with open("tclscript.txt","w") as f:
    f.write(res)

使用 F# 实现的实用程序会是什么样子？它的 LOC 能比这个 Python 版本更短并且更容易阅读吗？

添加了

python 代码处理 C# 字符串中的 tcl 脚本。 C#字符串中的'{'/'}'修改为'{{'/'}}'，'#'后面的数字修改为'{}'括起来的数字。例如，#1 -> {1}。

添加

这是工作示例

open System.IO
open System.Text.RegularExpressions

let lines = 
  File.ReadAllLines("tclscript.do")
  |> Seq.map (fun line ->
      let newLine = Regex.Replace(line.Replace("{", "{{").Replace("}", "}}"), @"#(\d+)", "{$1}") + @"\n"
      newLine )

let concatenatedLine = Seq.toArray lines |> String.concat ""
File.WriteAllText("tclscript.txt", concatenatedLine)

或者如这个答案。

open System.IO
open System.Text

let lines = 
  let re = System.Text.RegularExpressions.Regex(@"#(\d+)")
  [|for line in File.ReadAllLines("tclscript.do") ->
      re.Replace(line.Replace("{", "{{").Replace("}", "}}").Trim(), "$1", 1) + @"\n"|]

let concatenatedLine = lines |> String.concat ""
File.WriteAllText("tclscript.txt", concatenatedLine)

Answer 1

我不会给你 F# 版本的完整示例，因为我不确定你的 Python 版本中的正则表达式应该做什么。然而，一个好的 F# 解决方案的一般结构如下所示：

let lines = 
  File.ReadAllLines("tclscript.do")
  |> Seq.map (fun line ->
      let newLine = line.Replace("{", "{{").Replace("}", "}}")
      // Implement additional string processing here
      newLine )

File.WriteAllLines("tclscript.txt", lines)

由于您的代码片段是逐行工作的，因此我使用 ReadAllLines 将文件作为行列表读取，然后使用 Seq.map 将函数应用于每一行。可以使用 WriteAllLines 将新的行集合写入文件。

正如评论中提到的，我认为您可以在 Python 中编写几乎相同的内容（即无需显式连接字符串并使用一些高阶函数或理解语法来处理集合）。