Markus wrote:
> Hi all,
>
>
>
> is possible to use multiple strings and agminated sub routine call name
> without object oriented programming?
>
> I’ve done following test (see below), but in the real script isn’t
> possible to use objects.
>
> Has anyone a idea how it’s works?
Not sure what you're after, but this seems ok to me:
use strict;
use warnings;
my $r = 'r_';
my $s = 's';
$r .= $s;
my $a = and_now->new();
$a->$r;
exit;
package and_now;
sub new {
my $class = shift;
my $self = bless {'_ip' => shift}, $class;
}
sub r_s { print "Hello\n"; }
__END__
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
