如果存在，如何删除数组元素末尾的逗号？

Question

我有一个 array23，其中包含一个文件的字符串，每个字符串都在一行中。有些字符串有一个“，”，最后没有空格。如果存在，我想删除字符串末尾的逗号。我尝试了以下代码，但无法正常工作

#!/usr/bin/perl
use strict;
use warnings;


open my $abcd , '>','perl_script_3_out_1.txt' or die $!;

foreach( @array23 )
 {
   if ((substr $_,0,-1) =~ ",")
   { 
    s/","//g;
   }
 }
  print $abcd  "$_";                                                                                                                                 

close($abcd);

Answer 1

您的程序不会按原样打印任何内容，因为您的打印语句（位于循环之外）引用了仅存在于循环中的 default variable $_。

您还在 "," 上执行正则表达式 - 这不是您想要的（, 在每个字符串的末尾）。

您应该始终在每个脚本的开头添加 use strict 和 use warnings 以捕获此类内容

我会使用这样的东西：

这只会删除出现在每行末尾的,。

use strict;
use warnings;

for my $element (@array){
     $element =~ s/,$//g;
     print "$element\n";
}