使用Perl实现简单的文件查找与替换功能

本示例展示了如何使用Perl编写一个简单的脚本，实现在指定目录下查找文件并替换指定文本的功能。该脚本可用于批量修改文件内容，提高工作效率。

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

# 指定目录和要替换的文本
my $directory = "/path/to/files";
my $search_text = "old_text";
my $replace_text = "new_text";

# 遍历目录下的文件
opendir(my $dh, $directory) or die "无法打开目录: $!";
while (my $file = readdir($dh)) {
    next if $file =~ /^\./;  # 忽略隐藏文件

    # 读取文件内容
    my $file_path = "$directory/$file";
    open my $fh, '<', $file_path or die "无法打开文件: $!";
    my @lines = <$fh>;
    close $fh;

    # 替换文本并写回文件
    open $fh, '>', $file_path or die "无法写入文件: $!";
    foreach my $line (@lines) {
        $line =~ s/$search_text/$replace_text/g;
        print $fh $line;
    }
    close $fh;
}
closedir $dh;

print "替换完成！\n";

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com