|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Albert N. MICHEEV 2:5049/80 13 Jan 2001 13:42:59
To : Alexander Manzuk
Subject : èìåíîâàííûå ïàpàìåòpû ôyíêöèé
--------------------------------------------------------------------------------
Ïpèâåò Alexander!
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Îòâå÷àÿ íà ïèñüìî Alexander Manzuk ê All îò <12 ßíâ 01>:
AM> Ïîäñêàæèòå ïëèç, êàê påàëèçîâàòü èìåíîâàííûå ïàpàìåòpû ôyíêöèé!
ìîæíî áûëî è íå êpè÷àòü, èòàê íîpìàëüíî ñëûøíî
sub proc_params( \%$@ )
{
my( $params, $default, $param ) = (shift, shift);
while( $_ = shift )
{
$$params{$param = $1} = undef, next if m/^-(\w+)$/;
$$params{defined $param ? $param : $default} = $_;
$param = undef;
}
}
sub my_foo
{
my %params;
proc_params %params, 'filename', @_;
}
--- ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
* Origin: Ìû èç Ñîâåòñêîãî Ñîþçà, ïpèáûëè ïî êyëüòypíîìy îáìåíy. (2:5049/80)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
|
èìåíîâàííûå ïàpàìåòpû ôyíêöèé 
