linux - 内部调用 Linux 命令并将输出保存到文件的 Perl 脚本？

Question

我正在尝试编写一个 Perl 脚本，该脚本在内部调用“ls”并将输出保存到文件中。在屏幕上分页显示文件，允许用户按一个键转到下一页？

有什么想法吗？ 谢谢

到目前为止我有这个:

#!/usr/bin/perl
$command = system("ls /bin/usr/account\ users/");

Answer 1

将命令的输出保存到 $command 想要

my $command = `ps aux`;

或者，也许更好，

my @command = `ps aux`;

后者会将命令输出的每一行存储为列表的单独元素。之后，您可以根据需要使用 $command 或 @command —— 显示其内容、将其内容写入文件、显示和写入，无论您喜欢什么。

要写入文件，

my $filename = "MY_FILENAME";
# ...
open FILE, '>>', $filename;
print FILE @command;
close FILE;

如果您希望覆盖文件而不是追加到文件中，则可以使用 '>' 而不是 '>>'。您可以使用任何单词来代替 FILE，尽管在​​任何情况下将此类单词全部大写都是常规做法。