编写一个Perl程序，现在D盘中存着一个excel表格，把名册内比自己四级成绩少（或者多）的同学的学号、姓名、性别、班级输出到result.txt文件中。 注意：输出的结果里不是输出所有的列。perl语言代码

在Perl中，我们可以使用`Excel::Writer::XLSX`模块来读取Excel文件，并使用文件操作来创建和写入结果文件。这里是一个简单的示例代码，假设你的Excel表格名为`score.xlsx`，并且第一行是表头，数据从第二行开始：

#!/usr/bin/perl
use strict;
use warnings;
use Excel::Writer::XLSX;

# 定义源文件路径和目标文件路径
my $source_file = 'D:/score.xlsx';
my $output_file = 'result.txt';

# 创建一个Excel reader
my $workbook = Excel::Writer::XLSX->new($source_file) or die "Could not open workbook: $!";

# 获取工作表名称（如果有多个工作表）
my $worksheet = $workbook->get_sheet(0); # 假设只有一个工作表

# 获取总行数（不包括表头）
my $total_rows = $worksheet- 1;

# 初始化结果数组
my @results;

# 从第二行开始遍历
for (my $row = 1; $row <= $total_rows; $row++) {
    my ($student_id, $name, $gender, $class, $grade) = (
        $worksheet->get_cell($row, 0)->value,
        $worksheet->get_cell($row, 1)->value,
        $worksheet->get_cell($row, 2)->value,
        $worksheet->get_cell($row, 3)->value,
        $worksheet->get_cell($row, 4)->value,
    );

    # 假设成绩在第五列
    if ($grade > your_current_grade || $grade < your_min_grade) { # 请替换your_current_grade和your_min_grade为你的四级成绩
        push @results, [$student_id, $name, $gender, $class];
    }
}

# 关闭Excel文件
$workbook->close();

# 打开结果文件，写入内容并关闭
open(my $fh, '>', $output_file) or die "Could not open file '$output_file' for writing: $!";
print $fh join("\t", ('学号', '姓名', '性别', '班级')) . "\n"; # 写表头
foreach my $result (@results) {
    print $fh join("\t", @$result) . "\n";
}
close $fh;

# 结果输出说明
print "