Joel wrote:
> Here it is. Okay so it isn't tommorow. I shortened it a bit, but its the
> same really.
>
> Joel
One thing you may find handy when you restructure is a way to organize your crises:
Greetings! E:\d_drive\perlStuff>perl -w
sub get_crisis {
my $crisis_tag = shift;
my $crises = {
'airlock open' => \&raise_airlock_open_emergency,
'antimatter volley' => \&raise_positron_emergency
};
return $crises->{$crisis_tag};
}
sub raise_airlock_open_emergency {
my $name = shift;
print "Airlock is open, $name\n";
}
sub raise_positron_emergency {
my $name = shift;
print "They're bombarding us with positrons, $name\n";
}
my $crisis = get_crisis ('airlock open');
&$crisis('Captain');
^Z
Airlock is open, Captain
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
