正则表达式自动增量替换

发布于 2024-11-13 11:27:59 字数 205 浏览 6 评论 0原文

正则表达式中是否有一个字符串可以指示它自动递增它的替换，无论它们是数字还是字母。

谢谢您

例如，

，我的字符串应该是数字 1, 2, 3, 4, 5 但它们目前编号为 1, 1, 1, 1, 1我如何将这 5 个单独的相似字符串中的数字替换为 1, 2, 3, 4, 5

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

明媚如初 2024-11-20 11:27:59

我不熟悉 TextWrangler 的语法；但是，它使用 pcre 因此，只要您有办法为递增变量分配初始值（在本例中，我使用 $ii)...下面的脚本将任何出现的“pizza-x”替换为“pizza-0”、“pizza-1”...

@foo = ('pizza', 'pizza-a', 'pizza-b', 'pizza-c');
$ii = 0;
foreach (@foo) {
    $_ =~ s/(pizza-)[a-z]/"$1".$ii++/e;
    print "$_\n";
}

结果...

[mpenning@mpenning-t60 Desktop]$ perl foo.pl 
pizza
pizza-0
pizza-1
pizza-2

魔法来自 s///e;< /code> 和 $ii++;确保将非递增字符串括在引号中并与句点连接。

或者，只需使用 perl -pi -e '$ii = 0; 进行自动增量修改即可。 s/something/"here".$ii++/e ` 直接在文本文件上（当然，首先制作备份副本）。

I'm not familiar with the syntax of TextWrangler; however, it uses pcre so this should be what you want as long as you have a way to assign an initial value to your incrementing variable (in this case, I use $ii)... the script below replaces any occurrence of "pizza-x" with "pizza-0", "pizza-1"...

@foo = ('pizza', 'pizza-a', 'pizza-b', 'pizza-c');
$ii = 0;
foreach (@foo) {
    $_ =~ s/(pizza-)[a-z]/"$1".$ii++/e;
    print "$_\n";
}

Results...

[mpenning@mpenning-t60 Desktop]$ perl foo.pl 
pizza
pizza-0
pizza-1
pizza-2

The magic comes from s///e; and $ii++; be sure you enclose the non-incrementing string in quotes and concatenate with a period.

Alternatively, just do your auto-increment mangling with perl -pi -e '$ii = 0; s/something/"here".$ii++/e ` directly on the text file (make a backup copy first, of course).

回复收藏 0 原文

~没有更多了~