批处理之家 - Powered by Discuz! Board

标题: [问题求助] 请教一下perl的切片操作应该怎么写 [打印本页]

作者: minase 时间: 2021-4-30 14:30 标题: 请教一下perl的切片操作应该怎么写

读入的变量是INDEX 00 04:00:65，需要转换成04，00，65
最终转换成

04*系数1 + 00*系数2 + 65*系数3
这个代码应该如何写?

作者: 523066680 时间: 2023-3-4 18:19

my ($a, $b, $c) = (split( /[ :]/, "INDEX 00 04:00:65" ))[-3,-2,-1];
$a * $e1 + $b * $e2 + $c * $e3
复制代码

或者用正则捕捉

my ($a, $b, $c) =  ("INDEX 00 04:00:65" =~ /(\d+):(\d+):(\d+)/)
$a * $e1 + $b * $e2 + $c * $e3
复制代码

欢迎光临批处理之家 (http://www.bathome.net/)