Perl批量添加Copyright版权信息

2023-12-29 12:47:06

先决条件

在编写脚本之前，我们需要确保已安装 Perl。Perl 是一种开源编程语言，可在大多数平台上运行。如果尚未安装，请前往 Perl 官方网站进行安装。

编写 Perl 脚本

创建脚本文件： 打开文本编辑器，创建一个新文件，将其命名为 add_copyright.pl。
添加版权声明： 在文件中添加以下代码，定义要添加到文件中的版权声明。

my $copyright = "Copyright (c) 2023 Your Name";

获取文件列表： 使用 glob() 函数获取当前目录下所有 txt 文件的列表。

my @files = glob("*.txt");

遍历文件： 使用 foreach 循环遍历 @files 数组中的每个文件。

foreach my $file (@files) {
    # 打开文件并读取内容
    open(my $fh, '<+', $file) or die "Could not open file $file: $!";
    my $content = do { local $/; <$fh> };
    close($fh);
    
    # 替换内容以添加版权声明
    $content =~ s/^(.*)$/$copyright\n$1/;
    
    # 重新打开文件并写入新内容
    open($fh, '>', $file) or die "Could not open file $file: $!";
    print $fh $content;
    close($fh);
}

使用脚本

保存脚本： 将编写好的脚本保存在方便的位置。
打开命令行： 打开命令行窗口，导航到脚本所在目录。
执行脚本： 执行以下命令运行脚本：

perl add_copyright.pl

示例

#!/usr/bin/perl

use strict;
use warnings;

my $copyright = "Copyright (c) 2023 Your Name";

my @files = glob("*.txt");

foreach my $file (@files) {
    open(my $fh, '<+', $file) or die "Could not open file $file: $!";
    my $content = do { local $/; <$fh> };
    close($fh);

    $content =~ s/^(.*)$/$copyright\n$1/;

    open($fh, '>', $file) or die "Could not open file $file: $!";
    print $fh $content;
    close($fh);
}