在 perl 中将属性右截断为长度为 40 的字符串

Right truncate of attribute to string of length 40 in perl

我想在 Perl 中使用正则表达式将属性值右截断为长度为 40 的字符串。

我尝试不使用正则表达式来做到这一点,只是 substr() 但它不起作用。

$attribute = substr ($attribute , -1 ,40);

“右截断”等于使用 substr() 通常的方式:

$attribute = substr($attribute,0,40)