如何用Perl脚本匹配URL日志文件中的特定模式并替换指定值为SSSS

针对你30万行的URL日志文件，下面的Perl脚本可以高效匹配并替换指定位置的字段：

#!/usr/bin/perl
use strict;
use warnings;

# 逐行处理输入（支持文件或标准输入）
while (<>) {
    # 替换/code/后到下一个/或行尾的内容为SSSS
    s/\/code\/[^\/]+/\/code\/SSSS/g;
    # 替换/catalogue/后到下一个/或行尾的内容为SSSS
    s/\/catalogue\/[^\/]+/\/catalogue\/SSSS/g;
    # 输出处理后的行
    print;
}

脚本说明 #

• use strict; 和 use warnings;：强制代码规范，提前发现潜在语法或逻辑问题
• while (<>)：自动处理命令行指定的文件，或读取标准输入内容，逐行处理的方式不会因大文件占用过多内存
• 正则表达式 \/code\/[^\/]+：精准匹配/code/后所有非斜杠字符（直到下一个/或行结束），确保只替换目标字段
• g修饰符：保证一行中若存在多个匹配（URL场景极少出现，但做冗余兼容）都会被替换

使用方法 #

1. 将脚本保存为replace_url_fields.pl
2. 赋予执行权限：chmod +x replace_url_fields.pl
3. 处理日志文件：./replace_url_fields.pl input.log > output.log

如果需要直接修改原文件（建议先备份），可使用Perl原地编辑功能：

perl -i.bak replace_url_fields.pl input.log

-i.bak会先生成原文件的备份（后缀为.bak），再修改原文件内容。

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