这是 perldoc 的第一个示例
use Curses::UI;
my $cui = new Curses::UI;
my $win = $cui->add('window_id', 'Window');
my $grid =$win->add(
'mygrid', 'Grid'
-rows => 3,
-columns => 5,
);
# set header desc
$grid->set_label("cell$_", "Head $_")
for (1 .. 5);
# add some data
$grid->set_cell_value("row1", "cell$_", "value $_")
for 1 .. 5;
my $val = $grid->get_value("row1", "cell2");
这给了我这个致命的错误
Fatal program error:
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Could not load Curses::UI::0 from Curses/UI/0.pm:
Can't locate Curses/UI/0.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/sha
re/perl/5.10 /usr/local/lib/site_perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 .) at /usr/share/perl5/Curses/UI.pm line 846.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Press any key to exit...
我应该如何解决这个问题?