在 Perl 中如何将变量的长度减少到 20 个字符？
基本上我有一些很长的变量，只需要前几个字符。
我尝试使用这个正则表达式，但它不起作用。
$var =~ s/(^.{20})?/$1/g;
它对它没有任何作用。
任何帮助将不胜感激。
Basically I have some very long variables and need only the first few characters.
I tried using this regex, but it doesn't work.
$var =~ s/(^.{20})?/$1/g;
It doesn't do anything to it.
Any help would be appreciated.
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（3）
则更简单的：
请注意，如果字符串少于 20 个字符，
会发出嘎嘎声。或使用替换（假设 5.10+）：
或使用解包：
Note that the simpler:
will croak if the string is less than 20 characters.
Or using substitution (assuming 5.10+):
Or using unpack:
删除
$var中位置 20 以外的字符。deletes characters beyond position 20 in
$var.这就是您可能想到的替换：
This is the substitution you probably had in mind: