ķĻÖÅŌ ĢÕŽŪÅ ŌĮĖ?<br>my @params1 = ( 11, 12, 13, 14, 15 );<br>my @params2 = ( 21, 22, 23, 24, 25 );<br>my @params3 = ( 31, 32, 33, 34, 35 );<br><br>my %params = (<br>šššššššššššššš params1 => \@params1,<br>šššššššššššššš params2 => \@params2,<br>
šššššššššššššš params3 => \@params3,<br>);<br>for (qw/params1 params2 params3/)<br>{<br>ššš if ( exists $params{$_} )<br>ššš {<br>ššššššš say Dumper $params{$_};<br>ššš }<br>}<br><br>éĢÉ ÄĮÖÅ ŌĮĖ:<br><br>my %params = (<br>
šššššššššššššš params1 => [ 11, 12, 13, 14, 15 ],<br>šššššššššššššš params2 => [ 21, 22, 23, 24, 25 ],<br>šššššššššššššš params3 => [ 31, 32, 33, 34, 35 ],<br>);<br>for (qw/params1 params2 params3/)<br>{<br>ššš if ( exists $params{$_} )<br>
ššš {<br>ššššššš say Dumper $params{$_};<br>ššš }<br>}<br><br>P.S. ķĻÖĪĻ ÓÄÅĢĮŌŲ É × ŌĻŽĪĻÓŌÉ ŌĻ, Ļ Ž£Ķ ŌŁ ÓŠŅĮŪÉ×ĮĢ, ĪĻ ÜŌĻĒĻ ÄÅĢĮŌŲ ĪÅ ÓŌĻÉŌ.<br>