system("linux_command")与Perl库函数

Question

在Perl中,可以使用Perl内置或使用system()调用shell命令来实现某个目标.问题是,对于我作为Perl初学者,有时很难找到与Linux命令相当的Perl.
以此为例:

cat file1 file2 | sort -u > file3

我真的只想使用Perl函数来制作更多的Perlish,但我不能轻易找到如何在这种情况下避免使用system().

所以我想知道,使用Perl库函数比使用system()调用有什么好处吗？哪种方式更好？

Answer 1

通常,使用库函数的优点是,当出现问题时,您可以提供有意义的错误消息.

对于短期脚本或者当开发资源非常宝贵时,使用系统可能是有意义的.

Answer 2

local $^I;
local @ARGV = qw(file1 file2);
open my $fh, ">", "file3" or die $!;
my %s;

# print {$fh} (LIST) # or using foreach:
print $fh $_ for
  sort
  grep !$s{$_}++,
  <>;

主要优点是可移植性,没有系统依赖性.

更明确的版本,

use List::MoreUtils qw(uniq);
local $^I;
local @ARGV = qw(file1 file2);
open my $fh, ">", "file3" or die $!;

for my $line (sort uniq readline()) {
  print $fh $line;
}