UC知道perl 正则表达式的问题
来源：百度知道 编辑：UC知道 时间：2024/05/28 00:05:16
my $dest_line='2008-01-21 10:39:15|110|74,54,48,37,23,20,5,|14'
我想匹配出my $fren='74,54,48,37,23,20,5,';
我想匹配出my $fren='74,54,48,37,23,20,5,';
my $dest_line='2008-01-21 10:39:15|110|74,54,48,37,23,20,5,|14'
my $fren;
if ($dest_line=~/^[^|]+\|[^|]+\|([^|]+)\|/){
my $fren=$1;
}
/\|[^\]+\|(?!\|)/
大概思路就是找倒数第二个‘|’与最后一个‘|’之间的文字
/(\d\d,)+/
这个没问题可以匹配出来