On 4/15/10 Thu Apr 15, 2010 9:21 AM, "Harry Putnam" <rea...@newsguy.com> scribbled:
> r...@i.frys.com writes: > >> Here's an example I gave in a similar question in another >> forum. > > Thanks... > > I'm sorry to ask more but if someone asked to be shown an > if/elsif/else construct being replaced by a dispatch table, I don't > really see how that answered there question. It didn't for me. > > Where is the comparable if/elsif/else construct that is being replaced > by the dispatch table? > > Visualizing how it would go is a little beyond my grasp I guess. Something like this: print "press 1 to get CPU Info \n", "press 2 to get OS version \n", "press 3 to get CPU Load averages\n", "press 4 to get System Load & Uptime\n", "press 5 to get Net Interface info\n", "press 6 to get system disk usage info \n", "press 7 to get IP address info \n"; "press q to Exit\n" chomp(my $selection) = <STDIN>; if( $selection eq '1' ) { getcpuinfo(); }elsif( $selection eq '2' ) { osversion(); }elsif{ $selection eq '3' ) { loadaverages(); }elseif( $selection eq '4' ) { systemload_uptime(); ]elsif( ... }else{ print "Dispatch error\n"; ); -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/