如何检查文件大小并将该结果添加到Perl中的Excel电子表格中？

cpan install Spreadsheet::ParseExcel
cpan install Spreadsheet::ParseExcel::SaveParser

#!/usr/bin/perl

use strict;
use warnings;

use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;

# 指定要检查的文件路径
my $file_path = 'path/to/your/file.xls';

# 检查文件大小
my $file_size = -s $file_path;

# 将文件大小转换为人类可读的格式
my $human_readable_size = human_readable_size($file_size);

# 打开Excel电子表格并将文件大小添加到指定的单元格
my $parser   = Spreadsheet::ParseExcel::SaveParser->new();
my $workbook = $parser->Parse($file_path);

my $worksheet = $workbook->worksheet(0);
$worksheet->AddCell(0, 0, $human_readable_size);

$workbook->SaveAs($file_path);

# 定义一个函数，将文件大小转换为人类可读的格式
sub human_readable_size {
    my $size = shift;
    my @units = qw(B KB MB GB TB);
    my $i = 0;

    while ($size >= 1024) {
        $size /= 1024;
        $i++;
    }

    return sprintf("%.2f %s", $size, $units[$i]);
}