Question

我有一个输入文本文件 input.txt ，如图所示

a,2,3*b,4,5*c,7,3*

我必须按如下方式打印数字

a,2,3
b,4,5
c,7,3

Answer 1

为什么你认为正则表达式有帮助？这样做更容易

tr '*' '\n' <input.txt

如果您需要Perl解决方案，

perl -pe 'y/*/\n/' input.txt

Answer 2

您可以使用以下正则表达式

/[^*]/

Answer 3

您的输入的记录以*分隔？我们可以将输入记录分隔符 $/设置为该值！

local $/ = "*";
while (<>) {
  chomp;
  print $_, "\n";
}

单行示例：

$ printf 'a,2,3*b,4,5*c,7,3*' | perl -lpe'BEGIN{$/="*"}'
a,2,3
b,4,5
c,7,3

（-l auto - chomp s输入，并将输出分隔符附加到输出。-p遍历输入的所有记录，执行代码并打印值$_。我们不会自行处理这些行，只需将记录分隔符从*更改为\n。）

只要原始数据不包含换行符，这种方法就可以正常工作：这些都是未经修改的。 s/\n//g替换将在很大程度上解决这个问题。

Answer 4

您可以使用拆分：

 my $string = "a,2,3*b,4,5*c,7,3*";

 my @substr = split(/\*/, $string);

{
  local $, = "\n";
  print @substr;
}

输出：

a,2,3
b,4,5
c,7,3

Answer 5

你也可以试试这个：

 my $data = "a,2,3*b,4,5*c,7,3*";
 my $data2 = substr($data, 0, LengthOfSampleInputStringHere - 1);
 my @values = split('*',$data2);

 # Print and verify (Optional)
 foreach my $val (@values) 
 {
    print "${val}\n";
 }

修改

您也可以使用此正则表达式：

/([^\*]+)/

Answer 6

$string =~ s/\*/\n/g;应该在线为您完成所有替换

Perl：解析*分隔文件

6 个答案: