CSV文件-如何在Perl中使用正则表达式限制字段长度

我想你可以使用这样的正则表达式:

/(^|;)(([^;]{1,10})([^;]*))/g

有替代品 $3 .

[Regex Demo]

是否需要作为正则表达式执行?我想我会在你的 split 线路和使用 substr .

my @fields = 
  map { length > 10 ? substr($_, 0, 10) : $_ }
  split(/;/,$line);

这对我来说更容易维护。

这不应该这么复杂。使用Perl和
仅删除超过10个字符的内容。不需要像{1,10}这样的范围。

快速插入整个文件,对整个文件进行替换。
让生活更轻松。

$csv_str =~ s/(?m)(?:^|;)[^;\n]{10}\K[^;\n]+//g;

 (?m)           # Multi-line mode
 (?: ^ | ; )    # BOL (beginning of line) or semi-colon
 [^;\n]{10}     # 10 chars, not semi-colon nor linebreak
 \K             # Clear the match buffer of all previous data
 [^;\n]+        # This is to be gotten rid of...
                # 1 or more not semi-colon nor linebreak
                # On to the next match

比赛:

 **  Grp 0 -  ( pos 21 , len 1 ) 
d  

-----------------------

 **  Grp 0 -  ( pos 44 , len 37 ) 
y long field which I need to truncate  

-----------------------

 **  Grp 0 -  ( pos 92 , len 37 ) 
 long field which I need to truncate"