Perl的替代符

Question

我有一個像

1,2,3,{4,5,6,7,8},9,10,100 

我想更換{}領域之間的分隔符CSV文本。文本應該是這樣的：

1,2,3,{4|5|6|7|8},9,10,100 

我試圖perl -0777 -pe 's/\{.*?,\}/|/g'

但沒有任何反應。我該怎麼做呢？

Answer 1

你可以試試這個：

$st = "1,2,3,{4,5,6,7,8},9,10,100"; 
if ($st=~/\{(.*)\}/) { 
    $tr = $1; 
    $tr =~ s/,/|/g; 
    $st =~ s/\{*\}/{$tr}/; 
    print "$st \n" 
} 

輸出：

1,2,3,{4,5,6,7,8{4|5|6|7|8},9,10,100 

Answer 2

，你問這個就行了。它取代了後跟是不括號{}字符序列的所有逗號，然後一個右括號

use strict; 
use warnings; 
use 5.010; 

my $s = '1,2,3,{4,5,6,7,8},9,10,100'; 

$s =~ s/,(?=[^{}]*\})/|/g; 

say $s; 

輸出

1,2,3,{4|5|6|7|8},9,10,100 

Answer 3

您可以使用下面的正則表達式與$1$2|替換字符串：

(\{\s*|(?<!^)\G)(\d+),(?=[,0-9]*\}) 

輸出：

1,2,3,{4|5|6|7|8},9,10,100 

Sample code：

#!/usr/bin/perl 

$txt = "1,2,3,{4,5,6,7,8},9,10,100"; 
$txt =~ s/(\{\s*|(?<!^)\G)(\d+),(?=[,0-9]*\})/$1$2|/g; 
print $txt; 

Answer 4

下面是Perl的5.14和更高的命令行版本。

perl -pe 's/([{][\d,]+[}])/$1 =~ s~,~|~gr/ge' 

的/e意味着它評估所述替換爲Perl表達式，而不是標準的正則表達式表達。這意味着它正在取第一個捕獲值（$1）並執行替換並返回（/r），以避免嘗試修改只讀值（$1）時發生的錯誤。