Re: [Curses::UI]jak pobrać etykietę z menu

Article View: pl.comp.lang.perl

Article #52266

#52266

From: piecia aka dracorp
Date: Mon, 18 Jul 2011 11:16

23 lines
1522 bytes

Pomogło oderwanie się całkowicie od tego problemu i przypomnieniu sobie o 
istnieniu domknięć.
Jakby kogoś interesowało, fragment ale zawsze coś:
#v+
sub generatemenuplaylist {
	my ( $menuplaylist, $page ) = @_;
	my $sub_callback = sub {
		print "Zrób coś z $page";
	};
	push @$menuplaylist, { -label => $_, -value => $sub_callback };
}
my @menuplaylist;
foreach(keys %{$Playlist}){
	if(/_/){
		next;
	}
	generatemenuplaylist(\@menuplaylist,$_);
}
#v-

-- 
piecia aka dracorp
pisz na: piotr kropka rogoza at wp kropka eu

Technical Details

Message-ID: <pan.2011.07.18.11.16.51@dracorp.one.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!.POSTED!not-for-mail

References: <pan.2011.07.06.15.19.28@dracorp.one.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!.POSTED!not-for-mail
From: piecia aka dracorp <imie.nazwisko@wp.eu>
Newsgroups: pl.comp.lang.perl
Subject: Re: [Curses::UI]jak pobrać etykietę z menu
Date: Mon, 18 Jul 2011 11:16:33 +0000 (UTC)
Organization: http://onet.pl
Lines: 23
Message-ID: <pan.2011.07.18.11.16.51@dracorp.one.pl>
References: <pan.2011.07.06.15.19.28@dracorp.one.pl>
NNTP-Posting-Host: 62.108.180.232
Mime-Version: 1.0
X-Trace: news.onet.pl 1310987793 18270 62.108.180.232 (18 Jul 2011 11:16:33 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Mon, 18 Jul 2011 11:16:33 +0000 (UTC)
User-Agent: Pan/0.135 (Tomorrow I'll Wake Up and Scald Myself with Tea; GIT 30dc37b master)
X-face: &O(G<?G0x[)D}ri@2r:nnqjWG"C%v#'ES"T|m>Gaw3JWL>[XKRh^(75y8=DvLC1QXn9Vtc= !QWAS}|{A97ADU]x0*KE-Z>sKRlHMqyJ7c!=^wW,f#RXJ%e_@(U2YaNV10ucCf
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message