use Encode;
use utf8;
binmode(STDOUT, ":encoding(gbk)");

my @title = qw/成绩表 人数统计 男生 女生 学生班群 教师群 运动员 三好生 书友会/;
my @show;
for my $classname (<DATA>)
{
    $classname =~ s/\r?\n//;
    @show = map { $classname . $_ } @title;
    print join("_", @show), "\n";
}

__DATA__
一1班
一2班
一3班
一4班
一5班
一6班
一7班
一8班
二1班
二2班
二3班
二4班
二5班
二6班
复制代码

@echo off
setlocal EnableDelayedExpansion
mode 150

set "txt=四3班成绩表_四3班人数统计_四3班男生_四3班女生_四3学生班群_四3班教师群_四3班运动员_四3班三好生_四3班书友会"

for %%a in (
一1班
一2班
一3班
一4班
一5班
一6班
一7班
一8班
二1班
二2班
二3班
二4班
二5班
二6班
) do echo;!txt:四3班=%%a!

pause
复制代码

use utf8;
binmode(STDOUT, ":encoding(gbk)");

my @title = qw/成绩表 人数统计 男生 女生 学生班群 教师群 运动员 三好生 书友会/;
for my $name (qw/
一1班
一2班
一3班
一4班
一5班
一6班
一7班
一8班
二1班
二2班
二3班
二4班
二5班
二6班
/)
{
    print join("_", map { $name . $_ } @title ), "\n";
}
复制代码

@echo off
setlocal enabledelayedexpansion
for /f %%i in ('type "班级名.txt"') do (
    for /f %%j in ('type "原始文件.txt"') do (
        set "LineOld=%%j"
        set LineNew=!LineOld:四3班=%%i!
        >>"新文件_%%i.txt" echo !LineNew!
    )
)
复制代码

@echo off
setlocal enabledelayedexpansion
type nul > "结果.txt"
for /f %%i in ('type "班级名.txt"') do (
    for /f %%j in ('type "原始文件.txt"') do (
        set "LineOld=%%j"
        set LineNew=!LineOld:四3班=%%i!
        >>"结果.txt" echo !LineNew!
    )
)
复制代码