Perl正则表达式匹配

Question

我有一个字符串作为$text=",passage,null,a,a,a,d"，我想要一个可以替代$text变量中的第二个字段的正则exp。

Answer 1

天真的方法，没有正则表达式：

use strict; 
use warnings; 

my $text = ",passage,null,a,a,a,d"; 
my @terms = split(/,/, $text, -1); 
$terms[2] = 'toto'; 
$text = join ',', @terms; 

功课，你可以重写，作为一个班轮