如何在Perl/Tk菜单栏的级联菜单中禁用单个菜单项？

现有一段Perl/Tk代码创建了名为"User Selection"的菜单，包含四个菜单项："Save"、"Save As"、"Load"和"Load From"：

my $userselectedmenuitems = [
                      [ 'command' , 'Save', -command => \&saveUserSelection ],
                      [ 'command' , 'Save As', -command => \&saveUserSelectionAs ],
                      [ 'command' , 'Load', -command => \&loadSelectionsFromDefaultXMLFile ],
                      [ 'command' , 'Load From', -command => \&loadSelectionsFromUserSpecifiedXMLFile ]
];
my $userselectedmenu = $menubar->cascade (
                             -label => 'User Selection',
                             -tearoff => 0,
                             -menuitems => $userselectedmenuitems,
                      ) ;

使用$userselectedmenu->configure(-state => 'disable');可以禁用整个菜单，但仅想禁用其中的"Save"项时，尝试调用entryconfigure方法：

$userselectedmenu->entryconfigure('Save', -state => 'disable');

却触发报错：

Can't locate object method "entryconfigure" via package "Tk::Menu::Cascade" at [line number]

报错原因是$userselectedmenu属于Tk::Menu::Cascade级联菜单对象，而非普通Menu对象，它本身没有entryconfigure方法。要操作级联菜单内的子菜单项，需先获取对应的子菜单对象，再执行配置操作，有两种可行方式：

方式1：创建时单独保存菜单项引用 #

在定义菜单项数组时，单独保存"Save"项的引用，后续直接操作该引用修改状态：

# 单独定义Save菜单项并保存引用
my $save_item = ['command', 'Save', -command => \&saveUserSelection];
my $userselectedmenuitems = [
    $save_item,
    [ 'command' , 'Save As', -command => \&saveUserSelectionAs ],
    [ 'command' , 'Load', -command => \&loadSelectionsFromDefaultXMLFile ],
    [ 'command' , 'Load From', -command => \&loadSelectionsFromUserSpecifiedXMLFile ]
];
my $userselectedmenu = $menubar->cascade (
    -label => 'User Selection',
    -tearoff => 0,
    -menuitems => $userselectedmenuitems,
) ;

# 禁用Save项
$save_item->configure(-state => 'disable');

方式2：通过级联菜单获取子菜单对象 #

级联菜单可通过menu方法获取对应的子Menu对象，之后用索引或标签定位菜单项并修改：

# 获取级联菜单对应的子Menu对象
my $sub_menu = $userselectedmenu->menu;

# 方式2.1：通过索引禁用（索引从0开始，Save是第0项）
$sub_menu->entryconfigure(0, -state => 'disable');

# 方式2.2：通过菜单项标签禁用（标签为菜单项的-label值）
$sub_menu->entryconfigure('Save', -state => 'disable');

内容的提问来源于stack exchange，提问作者Nathan Goedeke