问正则表达式仅替换perl中的第一次出现

EN

冒着提供“解决方案”而不是“使用正则表达式的解决方案”的风险，只需要一个空行上的条件和一个告诉您是否删除了空行的标志。

假设@input的每个元素中有一行，

@output = grep { /\S/ || !$flag++ } @input

将排除不包含非空格字符的第一行(并且只排除第一行)。您可能更喜欢这样的解决方案，因为多行正则表达式需要格外小心才能正确执行。

在perl中设置一个$flag，并验证它是否在循环下的if中设置：

perl -lne 'if((/^\s*$/ && !$flag)){$flag=1;next;}print' file

输出：

data,34.45,5343
intaa,34353.5, 646463 
dedaa, 22542.35, 3564643
eerreg, 3435,335353

rtgegr,343543,34332

假设：

第一行也可以是“空行”

相邻的多个“空行”不会被视为一个空行。只删除第一个空行。

像s/((\n)(\n)|(^\n)())/这样的怎么样？

并将第一个捕获组替换为空。

我对perl语法不是百分之百确定，因为我的perl时代已经一去不复返了。