William Pursell
2020-02-03 22:47
最好用awk完成这种事情。就像是：
awk 'prev ~ /^[0-9]/ && /^[0-9]/ { prev = "prepended text " prev}
NR>1 {print prev}
{prev=$0}
END {print prev}' input
实际上，这可能是“中”的“最佳做法” perl，但这几天似乎不合时宜：
perl -0777 -pe '1 while s/(?<=^)(\d.*\n\d)/prepended text $1/cm' input
热门帖子
相关问题
热门github
1
2
3
5
6
7
8
11
13
14
15
Mamba is a new state space model architecture showing promising performance on information-dense data such as language modeling, where previous subquadratic models fall short of Transformers. It is based on the line of progress on structured state space models, with an efficient hardware-aware design and implementation in the spirit of FlashAttention.
(翻译：Mamba 是一种新的状态空间模型架构，在信息密集型数据（例如语言建模）上显示出良好的性能，而之前的二次模型在 Transformers 方面存在不足。它基于结构化状态空间模型的进展，并本着FlashAttention的精神进行高效的硬件感知设计和实现。)
您的Perl程序不处理
printf "123\n456\n"（前两行中的数字）或printf "abc\n123\n456\n789\n"（连续两行以上的数字）的输出第一个很容易处理：
perl -0777 -pe 's/(^[0-9].*\n[0-9])/prepended text $1/g'awk似乎工作得很好。我已经在我的文件上对其进行了测试，但是还没有发现问题。谢谢