如何用Perl按连续序号创建并存储data(n).txt文件？

要实现自动创建连续序号的dataXXXX.txt文件，需要先遍历目录中已有的文件、找到最大序号，再生成新的文件名。以下是修正后的Perl代码：

#!/usr/bin/perl

# 1. 获取目录下所有符合dataXXXX.txt格式的文件
my @existing_files = glob("data*.txt");

# 2. 提取所有文件的序号，找到最大值
my $max_sequence = 0;
foreach my $file (@existing_files) {
    # 匹配文件名中的4位数字序号
    if ($file =~ /data(\d{4})\.txt/) {
        my $current_num = $1 + 0; # 转换为数字类型比较
        $max_sequence = $current_num if $current_num > $max_sequence;
    }
}

# 3. 生成新的序号和文件名（格式化为4位数字）
my $new_sequence = sprintf("%04d", $max_sequence + 1);
my $new_filename = "data$new_sequence.txt";

# 4. 创建新文件并写入内容
open(my $fh, '>', $new_filename) or die "无法创建文件 $new_filename: $!";
print $fh "this is a test\n";
close($fh);

print "已成功创建文件: $new_filename\n";

关键说明： #

• glob("data*.txt")：快速匹配目录中所有以data开头、.txt结尾的文件。
• 正则匹配/data(\d{4})\.txt/：精准提取文件名中的4位数字序号，确保只处理符合格式的文件。
• sprintf("%04d", ...)：将新序号格式化为4位带前导零的字符串，保证文件名统一为data000X.txt的格式。
• 词法文件句柄my $fh：替代老式的全局文件句柄（如原代码的DATEI），更安全且符合现代Perl编程规范。
• open(..., '>', $new_filename)：使用写入模式创建新文件，逻辑上通过最大序号+1保证了文件名唯一，不会出现意外覆盖。

原代码问题分析： #

• 文件名硬编码为data0001.txt，无法自动生成新序号的文件。
• 使用>>追加模式而非>写入模式，会往已有文件末尾添加内容，而非创建新文件（你描述的“覆盖内容”可能是之前误用过>模式导致的）。

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