如何在使用Perl来修改文本文件，要求在文件中出现字符('或,'时在中间插入一个N，即将其改为(N'或,N'

发布网友发布时间：2022-07-14 14:51

共4个回答

热心网友时间：2023-10-19 22:14

给一个比较完美的方案:
#!perl -w
use strict;
#AUTHOR: niejieqiang

　　while (<>) {
　　s/('.*?')/&rm($1)/ge;
　　print;
　　}

　　sub rm {
　　my $str = $_[0];
　　$str=~s/^/N/;
　　return $str;
　　}

热心网友时间：2023-10-19 22:15

# 先读最整个文件内容到 $doc 中

$doc =~ s/('([^\,)]))/N'$2/g;
print $doc;

热心网友时间：2023-10-19 22:15

零宽断言比单纯的s///通用

热心网友时间：2023-10-19 22:16

s/('[^']+')/N$1/g;

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

如何在使用Perl来修改文本文件，要求在文件中出现字符(&#39;或,&#39;时在中间插入一个N，即将其改为(N&#39;或,N&#39;

如何在使用Perl来修改文本文件，要求在文件中出现字符('或,'时在中间插入一个N，即将其改为(N'或,N'