Re: trying to populate curses menus from text files

[kcott]

G'day boscaiolo,

Welcome to the monastery.

Unfortunately, as already pointed out, your post is lacking various pieces of information that would help us to help you. In addition to a lack of details about the input data, there's no concrete indication of your expected output or what, if anything, you've already tried and perhaps had difficulties with. Furthermore, you've provided no links to information you've made reference to: I could probably work out where Curses::UI is documented but I shouldn't have to; I've got absolutely no idea what "tutorial" you're referring to — please read "What shortcuts can I use for linking to other information?".

From the information you have provided, I suspect your code would look something like this:

my @list_of_files = qw{File Edit Help};
my $regex_to_match_label = qr{LABEL="([^"]+)};
my @menu;

for my $filename (@list_of_files) {
    open my $fh, '<', $filename or die "Can't read $filename: $!";

    my @submenu;
    push @menu, { -label => $filename, -submenu => \@submenu };

    while (<$fh>) {
        if (/$regex_to_match_label/) {
            my $label = $1;
            push @submenu, 
                { -label => $label, -value => sub { generic_dialog($la
+bel) } };
        }
    }

    close $fh;
}

[boscaiolo]

Ken:

Thanks for your reply. You divined my intention exactly in spite of my rather minimal information! In fact, I do not need the regex match since the text file comprises one item per line (as I omitted to explain), so my $label = $_; is all I need.

Your suggested is lucid and perfect to my needs. I don't know why I find hash and array operations so confusing.