使用bash/perl批量替换多文件字符串时的异常原因及解决

我有三个文件，内容如下：

1.txt             2.txt           3.txt
    ------------------------------------------
    1.txt             2.txt           3.txt
    text sample       text sample     text sample
    sample text       sample text     sample text

我尝试用一条bash命令结合perl代码，将所有文件中的sample替换为changed，但遇到了问题：

第一次尝试命令 #

$ perl -pe 's/sample/changed/' < 1.txt 2.txt 3.txt > 1a.txt 2a.txt 3a.txt

执行结果 #

1a.txt            2a.txt          3a.txt
    ------------------------------------------
    2.txt               NOT             NOT
    text changed      CREATED         CREATED
    changed text
    3.txt
    text changed
    changed text

报错信息 #

Can't open 2a.txt: No such file or directory, <> line 6.
Can't open 3a.txt: No such file or directory, <> line 6.

第二次修改命令 #

$ perl -pe 's/sample/changed/' < 1.txt 2.txt 3.txt > 1a.txt > 2a.txt > 3a.txt

执行结果 #

1a.txt            2a.txt          3a.txt
    ------------------------------------------
    EMPTY             EMPTY           2.txt
     FILE              FILE           text changed
                                      changed text
                                      3.txt
                                      text changed
                                      changed text

期望结果 #

1a.txt            2a.txt          3a.txt
    ------------------------------------------
    1.txt             2.txt           3.txt
    text changed      text changed    text changed
    changed text      changed text    changed text

我的疑问：

1. 我对bash和perl的工作机制存在哪些理解误区？
2. 如何写出正确的替换命令？
3. 为何两种情况中1.txt的结果都未写入输出文件？

一、核心理解误区 #

1. bash输入重定向的错误用法：bash中<只能指定单个输入源，< 1.txt 2.txt 3.txt的写法完全不符合规则——bash会把< 1.txt解析为将1.txt绑定到标准输入，而2.txt、3.txt会被当成命令行参数传给perl，而非输入文件。
2. bash输出重定向的逻辑误解：
   • 第一种写法> 1a.txt 2.txt 3.txt：bash将1a.txt作为输出目标，2a.txt、3a.txt被当成命令行参数传给perl，perl尝试打开它们作为输入文件，因此报错“找不到文件”。
   • 第二种写法> 1a.txt > 2a.txt > 3a.txt：bash的多重输出重定向是覆盖式绑定，后续的>会替换之前的输出目标，最终所有输出只会写入最后一个文件（3a.txt），前两个文件仅被创建但无内容。
3. perl -p模式的逻辑混淆：当perl通过命令行接收到文件名参数时，-p模式会优先处理这些文件，完全忽略标准输入的内容。你两次尝试中都传递了2.txt、3.txt作为参数，导致< 1.txt的输入被perl直接忽略，这也是1.txt内容从未出现在输出中的核心原因。

二、正确的替换命令 #

以下是两种可靠的实现方式：

方式1：bash循环逐个处理（最直观易维护） #

for f in 1.txt 2.txt 3.txt; do
    perl -pe 's/sample/changed/' "$f" > "${f%.txt}a.txt"
done

${f%.txt}会去掉文件名的.txt后缀，自动生成1a.txt、2a.txt这类输出文件名。

方式2：perl单命令批量处理 #

利用perl的$ARGV变量获取当前处理的文件名，动态生成输出文件：

perl -pe '
    BEGIN {
        $out = $ARGV;
        $out =~ s/\.txt$/a.txt/;
        open STDOUT, ">", $out or die $!;
    }
    s/sample/changed/
' 1.txt 2.txt 3.txt

BEGIN块会在处理每个文件前执行，重定向标准输出到对应目标文件，再执行替换逻辑。

三、1.txt内容未写入的原因 #

两次尝试中，你都通过< 1.txt将1.txt绑定到标准输入，但同时给perl传递了2.txt、3.txt作为命令行参数。而perl的-p模式规则是：只要命令行存在文件名参数，就优先处理这些文件，完全不读取标准输入。因此1.txt的内容从未被perl处理，自然不会出现在任何输出文件中。

内容的提问来源于stack exchange，提问作者user7711283