perl 如何搜索不区分大小写的 excel 工作表

Question

当前脚本：

$ws = $wb->Worksheet("Food_List");

if ( !$ws ) {
    print LOG
        "Error: Required 'Food_List' excel spreadsheet(tab). Review worksheet naming convention";
    exit 1;
}

所以现在我们需要将工作表与 'Food_List' 相匹配。如果我想允许更大的灵活性并允许 'food_list' 或“FOOD_LIST”工作表怎么办？

Answer 1

假设您正在使用 Spreadsheet::ParseExcel:

my $ws;
for my $sheet ( $wb->worksheets() ) {
    if ( $sheet->get_name() =~ m/Food_list/i ) {
        $ws = $sheet;
        last;
    }
}

更新：使用 get_name 并且有效。

perl 如何搜索不区分大小写的 excel 工作表

perl how to search excel worksheet being case insensitive

perl

case-sensitive