怎么将文件加入到ARGV中

Question

如何将图片最下面的几个文件里的内容加入到ARGV中呢，并且成功运行这个内容，不懂ARGV怎么使用

Answer 1

以下回复参考：皆我百晓生、券券喵儿等免费微信小程序作答:

在 Perl 中，ARGV 是一个特殊的数组，用于保存从命令行传递给脚本的参数。如果您想要将一些文件路径从命令行参数传递给脚本并在脚本中使用它们，那么您可以像以下方式操作。假设您有三个文件 File1.txt、File2.txt 和 File3.txt，并且您想要将它们的内容合并到一个新的文件中，您可以按照以下步骤操作：

假设您的脚本名称为 merge_files.pl，在脚本中，您可以按照您给出的示例使用 $ARGV 数组来获取这些文件路径。这里是您应该如何做的：

步骤 1: 确保您已经正确设置了脚本的文件路径和名称。例如，假设您的脚本名为 merge_files.pl 并且位于当前目录中。

步骤 2: 在命令行中运行脚本并传递文件路径作为参数。例如：

./merge_files.pl File1.txt File2.txt File3.txt output.txt

步骤 3: 在 Perl 脚本中，使用 $ARGV 数组来获取这些文件路径。您的代码应该类似于这样：

#!/usr/bin/perl
use strict;
use warnings;

# 检查参数数量是否正确
if (scalar(@ARGV) != 3) {
    die "Usage: ./merge_files.pl File1.txt File2.txt File3.txt";
}

open (F, "<$ARGV[0]") or die "Cannot open $ARGV[0]: $!";
open (G, "<$ARGV[1]") or die "Cannot open $ARGV[1]: $!";
open (H, ">$ARGV[2]") or die "Cannot create $ARGV[2]: $!";

# 读取并合并文件内容
while (my $line1 = <F> && my $line2 = <G>) {
    print H "$line1$line2";  # 注意这里应该是两个变量之间直接连接，不需要引号包围其中一个变量。否则会导致字符串拼接错误。
}

close (F); close (G); close (H);

这个脚本做了以下几件事：

• 检查是否传递了正确的参数数量（在这里是三个文件和一个输出文件）。如果没有，它会显示一个错误消息并退出。
• 使用 open 函数打开这些文件，并且检查是否成功打开。如果打开失败，它会显示一个错误消息并退出。如果成功打开，它会合并这些文件的内容到第三个文件中。这里使用了 while 循环来逐行读取每个文件的内容，并将它们写入到输出文件中。最后关闭所有打开的文件句柄。注意在连接 $line1 和 $line2 时不需要引号包围其中一个变量，否则会导致字符串拼接错误。