我在文件 image1.hd 中有一行文本
axial rotation:=0.880157
我要号码。使用核心 perl 我这样做
open FILE, "<", "$Z_DIR/image1.hd" or die $!;
while (<FILE>){
if (/axial rotation:=(\S+)/)
{
$axial_rot = $1;
}
}
close FILE;
它返回 =0.880157 的所需输出
我更喜欢一个衬里,因为我会做与其他一些文件类似的事情。早些时候我了解了模块 File::Slurp 并尝试了以下内容,并积极看待断言背后
my $axial_rot = read_file("$Z_DIR/image1.hd") =~ /(?<=axial rotation:=)\S+/
这将返回 1 - 无论正则表达式如何。如何更改后一个正则表达式以实现所需的输出