本帖最后由 523066680 于 2016-10-25 11:00 编辑
这是小学生 还是 小学教师!?
还有,这届伸手党的表达能力令人担忧啊!
应该是按 "班级名.txt"里面的班级每个套
成绩表 人数统计 男生 女生 学生班群 教师群 运动员 三好生 书友会- 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班
复制代码
|