arrays - Perl 中的切片数组

Question

我知道有更简单的方法可以做到这一点，但我必须演示删除系统调用的前七行（top -bn1）并使用数组切片将结果写入文件。我目前在删除七行的语法方面遇到问题，我不确定如何将其写入文件。

my @top_command = `top -bn1`;

@top_command = @top_command(7..@top_command); 

print @top_command, $file_name;

Answer 1

1. 数组索引由方括号 ( []) 组成，而不是圆括号。
2. 您可以获得名为@arraywith的数组的最高索引$#array。
3. 我什至无法告诉您在第三行中要做什么，但您可能想查找splice操作员。

这应该足以完成你的任务。

Answer 2

open(my $fh, '>', $qfn)
   or die("Can't create \"$qfn\": $!\n");

print $fh @top_command[7..$#top_command];