"Tom Allison" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> #!/usr/bin/perl
> use strict;
> use warnings;
> sub f {
> my $value = shift;
> print $value,"\n";
> }
> sub g {
> my $value = shift;
> print "\t",$value,"\n";
> }
> my $var = shift;
> my
>Well, you can define the subs anywhere and use references:
>
>sub f {
>my $value = shift;
>print "$value\n";
>}
>
>sub g {
>my $value = shift;
>print "\t$value\n";
>}
>
>my %subs = (
>f => \&f,
>g => \&g,
>);
Now THAT looks good.
--
To unsubscribe, e-mail: [E
Tom Allison wrote:
> John W. Krahn wrote:
>>
>> my %subs = (
>> f => sub {
>> my $value = shift;
>> print "$value\n";
>> },
>> g => sub {
>> my $value = shift;
>> print "\t$value\n";
>> },
>> );
>> my $var = shift;
>> $subs{ $var }( 'test'
John W. Krahn wrote:
Tom Allison wrote:
#!/usr/bin/perl
use strict;
use warnings;
sub f {
my $value = shift;
print $value,"\n";
}
sub g {
my $value = shift;
print "\t",$value,"\n";
}
my $var = shift;
my $code = \&$var;
&$code("test");
=
I
Tom Allison wrote:
> #!/usr/bin/perl
> use strict;
> use warnings;
> sub f {
> my $value = shift;
> print $value,"\n";
> }
> sub g {
> my $value = shift;
> print "\t",$value,"\n";
> }
> my $var = shift;
> my $code = \&$var;
> &$code("test");
> ===
