Perl中使用Split函数但保留分隔符的问题

嘿，我完全懂你现在的困扰——用普通的字符串split()确实会把那些分隔符彻底丢掉，而你需要把换行符、空格，还有-+*/();这些符号都保留在分割后的数组里对吧？

之前看到的“把分隔符放()里”的方法其实是对的，但大概率你用的是Python内置的字符串split()方法，而这个方法不支持正则捕获组的玩法。要实现保留分隔符的效果，得用re模块的split()函数才行，它会把正则捕获组里匹配到的分隔符也作为数组元素返回。

具体实现步骤 #

1. 首先导入正则模块re，读取文件内容到字符串；
2. 定义包含所有目标分隔符的正则表达式，把这些分隔符放在捕获组（也就是()里），注意正则里的特殊符号要转义或者正确放置（比如-要放在字符集的开头，避免被当成范围符号）；
3. 用re.split()分割字符串，再过滤掉可能出现的空元素（连续分隔符会产生空字符串）。

示例代码 #

import re

# 读取目标文件内容到字符串
with open("your_file.txt", "r", encoding="utf-8") as file:
    content = file.read()

# 正则表达式：匹配所有需要的分隔符，并用捕获组保留它们
# \n匹配换行符，\s匹配空格，剩下的符号用转义或正确放置在字符集中
delimiter_regex = r'([\n\s\-+*/();])'

# 执行分割，捕获组会让分隔符成为数组的一部分
split_result = re.split(delimiter_regex, content)

# 过滤空字符串（连续分隔符会产生空元素），同时保留换行符
final_result = [item for item in split_result if item.strip() != "" or item == "\n"]

# 输出结果看看
print(final_result)

效果演示 #

假设你的文件内容是：

print(100+200); hello-world / test

分割后的final_result会是：

['print', '(', '100', '+', '200', ')', ';', ' ', 'hello', '-', 'world', ' ', '/', ' ', 'test']

这样就完美保留了你需要的所有分隔符，同时也处理了可能出现的空元素问题～

内容的提问来源于stack exchange，提问作者Tank