perl - 如何在 shell 脚本中处理 Perl 数组元素？

Question

例如:

在 Perl 中:

@array = (1,2,3);

system ("/tmp/a.sh @array" ); 

在我的 shell 脚本中，如何在 shell 脚本中处理这个数组？如何处理 shell 脚本以接收参数，以及如何在 shell 脚本中使用该数组变量？

Answer 1

这个:

my @array = (1,2,3);   
system ("/tmp/a.sh @array" );

相当于shell命令:

/tmp/a.sh 1 2 3

您只需打印出传递给系统的内容即可看到这一点:

print "/tmp/a.sh @array";

a.sh 应该像处理任何其他 shell 参数集一样处理它们。

为了安全起见，您应该绕过 shell 并直接将数组作为参数传递:

system "/tmp/a.sh", @array;

这样做会将 @array 的每个元素作为单独的参数而不是空格分隔的字符串传递。如果 @array 中的值包含空格，这一点很重要，例如:

my @array = ("Hello, world", "This is one argument");
system "./count_args.sh @array";
system "./count_args.sh", @array;

其中 count_args.sh 是:

#!/bin/sh

echo "$# arguments"

您会看到第一个参数有 6 个参数，第二个参数有 2 个。

有关在 shell 程序中处理参数的简短教程可以在 here 中找到。 .

无论如何，为什么要用 Perl 编写一个程序，而用 shell 编写一个程序呢？使用两种语言会增加复杂性，而且 shell 没有调试器。它们都用 Perl 编写。更好的是，将其编写为 Perl 程序中的函数。