Perl 中的切片数组答案

【问题标题】：Slice arrays in PerlPerl 中的切片数组
【发布时间】：2013-04-20 07:22:34
【问题描述】：

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

my @top_command = `top -bn1`;

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

print @top_command, $file_name;

【问题讨论】：

【解决方案1】：

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

【讨论】：

我试图将 `@top_command` 的剩余内容打印到我的第三行代码的文件中。
@JohnnyDiamond08，它将把@top_command 的内容以及文件名打印到您的屏幕上。查找 print 并在 perldoc 中打开以了解如何操作。 perldoc.perl.org

【解决方案2】：

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

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

【讨论】：