Perl 我找不到错误。地球缓存之谜

我对这个代码感到困惑。这是地理缓存难题的一部分。我尽可能地读了它。但我自己从未使用过java。
我希望有人能帮我改正它

use strict; 
$a = (32,69,34,46,5,19,4) my $a = 39;
printf("%s%d\a%s%0.1f\b%0.0f%s\t" chr(78) 061 chr($a[2]-2) 0xa+0x1b/1-2*5 0b110101111101001000/0x3e8 chr($a));
printf("%s%#.3d%s%s%d%s%0.0f'\n" chr($a[1]) 013 chr($a[0]) chr($a[0]+16) 0x05 chr($a[3]-$a+$a[6]*$a[4]+$a[5])) 0xF07A8/0b1111101000);

非常感谢你的帮助

---

LockeandWalf

更正后的脚本是：

use strict;
my @a = (32,69,34,46,5,19,4);
my $a = 39;
printf("%s%d\a%s%0.1f\b%0.0f%s\t", chr(78), 061, chr($a[2]-2), 0xa+0x1b/1-2*5, 0b110101111101001000/0x3e8, chr($a));
printf("%s%#.3d%s%s%d%s%0.0f'\n", chr($a[1]), 013, chr($a[0]), chr($a[0]+16), 0x05, chr($a[3]-$a+$a[6]*$a[4]+$a[5]), 0xF07A8/0b1111101000);

输出：

N49 27.221'     E011 05.985'

错误列表：

$a

当它是数组时声明为标量，应该是

@a

print语句中缺少逗号

第二个print语句中额外的右括号（最后一个语句之前的右括号）

---

这不是Java，而是Perl。谢谢你们两位。更正的脚本是什么？你能分享一下吗？提前谢谢。Lock和wolf无需将标量

$a

重命名为

$b

。数组

@a

和标量

$a

可以共存。