如何让Perl/Bash脚本仅读取文件而不做任何修改？

针对你的需求，我整理了几个实用的方案，既能防止脚本意外修改文件，又不会破坏文件的元数据（ctime、mtime这些关键信息）：

1. Bash 脚本内的轻量防护：拦截修改命令 #

你已经在用set -o noclobber防止覆盖文件，但它管不了追加、sed -i或perl -pi这类原地修改操作。可以在脚本开头添加自定义函数，直接拦截这些危险命令：

#!/bin/bash
set -o errexit
set -o noclobber

# 拦截会原地修改文件的sed命令
sed() {
  if [[ "$1" == "-i" ]]; then
    echo "ERROR: 禁止使用sed -i 原地修改文件" >&2
    return 1
  fi
  # 调用真实的sed命令（只允许读操作）
  command sed "$@"
}

# 拦截会原地修改文件的perl命令
perl() {
  # 匹配 perl -pi 或 perl -p -i 这类参数组合
  if [[ "$1" == "-pi" || ( "$1" == "-p" && "$2" == "-i" ) ]]; then
    echo "ERROR: 禁止使用perl -pi 原地修改文件" >&2
    return 1
  fi
  # 调用真实的perl命令（只允许读操作）
  command perl "$@"
}

# 后续脚本逻辑：只做读取操作
for file in /path/to/your/files/*; do
  # 示例：读取文件内容，不做修改
  grep "target_pattern" "$file"
done

这个方案不需要特殊权限，能直接在脚本里生效，防止误触修改命令。另外set -o errexit可以让脚本在出错时立即退出，减少意外影响范围。

2. Perl 脚本内的强制只读设置 #

在Perl脚本里，要彻底杜绝修改文件的可能，核心是禁止使用-i原地修改选项，同时强制所有文件以只读模式打开：

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

# 遍历目标文件
foreach my $file (@ARGV) {
  # 强制以只读模式打开文件，写错成'>'会直接报错
  open my $fh, '<', $file or die "无法读取文件 $file: $!";
  
  # 读取并处理内容，但绝不写回原文件
  while (my $line = <$fh>) {
    # 示例：处理内容（比如替换字符串），但只输出到终端或新文件
    $line =~ s/D/W/g;
    print $line; # 如果需要保存结果，输出到新文件，比如 print OUTFILE $line;
  }
  close $fh;
}

如果你的脚本需要输出处理后的结果，一定要写入新文件，绝对不要碰原文件的句柄。

3. 终极方案：文件系统级只读挂载（需要管理员权限） #

如果需要最彻底的防护，确保任何程序都无法修改文件（包括误操作的系统命令），可以临时把目标目录挂载为只读。这种方式不会改变文件的任何元数据（连atime都可以通过额外参数禁用）：

# 1. 先查看目标目录的当前挂载信息（确认挂载点）
mount | grep /path/to/your/target/dir

# 2. 临时挂载为只读（加上noatime可以禁止更新访问时间）
sudo mount -o remount,ro,noatime /path/to/your/target/dir

# 3. 运行你的脚本（此时所有文件都只能读，无法修改）
./your_script.sh

# 4. 完成后恢复为可读写挂载
sudo mount -o remount,rw /path/to/your/target/dir

这个方案是最可靠的，因为是从文件系统层面锁死了修改权限，完全不用担心脚本或其他程序误改文件。

4. 无权限替代方案：复制到临时目录操作 #

如果没有管理员权限，又想彻底隔离原文件，可以把所有目标文件复制到临时目录，在临时目录里操作，原文件完全不受影响：

#!/bin/bash
# 创建临时目录，自动清理（脚本退出时删除）
TMP_DIR=$(mktemp -d)
trap 'rm -rf "$TMP_DIR"' EXIT

# 复制原文件到临时目录，保留所有元数据（权限、时间戳等）
cp -rp /path/to/your/files/* "$TMP_DIR"

# 切换到临时目录执行脚本逻辑
cd "$TMP_DIR"
for file in *; do
  # 这里可以放心操作，修改的都是临时文件
  grep "pattern" "$file"
done

cp -rp会完整保留原文件的所有元数据，临时目录的操作完全不会影响原文件，适合批量处理场景。

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