Re^2: how to let sub return hash of 2 sub?

Thanks at first, dear Ikegami.

I see that I have to describe a little bit more, what I'm trying to do. But bag you pardon, please don't laugh too much about me, it's my fault.

I have written now a short file of code, which should describe nearly, what I want to do.

___ testpar.pl ___

#!/usr/bin/perl

use objectA;

my %myhash = (
            'a.x' => 1,
            'b.y' => 2,
            'c.x' => 3,
            );

my $objA = objectA->new();
$objA->map_query( \%myhash );

print $_->name, ': ', $_->val, "\n" for $objA->parameter( 'a.x' );
print $_->name, ': ', $_->val, "\n" for $objA->parameter( 'b.y' );

return;
[download]

___ objectA.pm ___

package objectA;

sub new {
        my $class = shift;
        my $self  = {};
        bless $self, $class;
        return $self;
    }

sub map_query {

    my $self = shift;
    my $hash = shift;
    map { $self->{ values }->{ $_ } = $$hash{ $_ }; } keys %{ $hash };
}
    
sub parameter {
    my $self = shift;
    my $para = shift;
    
    my $param = $para =~ m/^([^\.]*\.)(.*?)$/i ? $2 : $para;
    
#    return { sub name{ $param; }, sub value{ $self->{ values }->{ $pa
+ra } || ''; } };
    my $name = \&parameter_name( $param );
    my $val  = \&parameter_value( $self->{ values }->{ $para } );
    return { $name, $val };
}

sub parameter_name {
    my $param  = shift;
    return $param;
}
sub parameter_value {
    my $parval  = shift;
    return $parval || '';
}

1;
[download]

Comment on Re^2: how to let sub return hash of 2 sub? Select or Download Code

Replies are listed 'Best First'.
Re^3: how to let sub return hash of 2 sub? by ikegami (Patriarch) on May 27, 2015 at 20:48 UTC
Since my solution works for a zero or more objects, it also works for a single object. `sub parameter { ... return NameValTuple->new( name => $name, val => $val ); }` [download] It's still simpler to return a hash since you don't have to create a new class. `sub parameter { ... return map { +{ name => $_, val => $rv{$_} } } keys(%rv); }` [download] But you'd have to change `print $_->name, ': ', $_->val, "\n" for $objA->parameter( 'a.x' );` [download] to `print $_->{name}, ': ', $_->{val}, "\n" for $objA->parameter( 'a.x' );` [download]	[reply] [d/l] [select]
Re^4: how to let sub return hash of 2 sub? by toohoo (Beadle) on May 28, 2015 at 12:59 UTC
Hello wise Monks, first thanks to all. The question emerges, what my point is exactly. I will try to name it. The really fix point is the request of code, which is given to me: `print $_->name, ': ', $_->val, "\n" for $objA->parameter( 'a.x' );` This is fix, it is not allowed to me to change this. I myself now should find a solution, that fullfills this request. I guess, that parts of some of you might have put together to work. If I try the last of Ikegami, I have first to build an extra package NameValTuple to be able to call a new on it. May be this is the nearest solution. I will try this. I only tought there is a "short" construct, which can solve this request. Thanks again and best regards, Thomas	[reply] [d/l]
Re^5: how to let sub return hash of 2 sub? by ikegami (Patriarch) on May 28, 2015 at 14:00 UTC
find a solution, that fullfills this request. For the third time, what you need is `sub parameter { ... return NameValTuple->new( name => $name, val => $val ); }` [download] I have first to build an extra package NameValTuple Yes, yes you do. By definition, you can't have objects without a class.	[reply] [d/l]
Re^6: how to let sub return hash of 2 sub? by jdporter (Paladin) on May 28, 2015 at 14:12 UTC
Re^7: how to let sub return hash of 2 sub? by ikegami (Patriarch) on May 29, 2015 at 16:14 UTC
Re^6: how to let sub return hash of 2 sub? by toohoo (Beadle) on Jun 01, 2015 at 12:26 UTC
Re^5: how to let sub return hash of 2 sub? by Anonymous Monk on May 28, 2015 at 14:12 UTC
I only tought there is a "short" construct, which can solve this request. Moose and Moo were already suggested to you as examples of frameworks to make writing classes easier.	[reply]
Re^6: how to let sub return hash of 2 sub? by ikegami (Patriarch) on May 30, 2015 at 16:00 UTC
Re^7: how to let sub return hash of 2 sub? by Anonymous Monk on May 30, 2015 at 21:15 UTC
Re^3: how to let sub return hash of 2 sub? by Anonymous Monk on May 27, 2015 at 15:35 UTC
In that case, return a list (or array reference) instead of a rather useless hash reference (as $name is converted into a string which then cannot be used as a sub reference) ... `# In testpar.pl ... ... print join ': ' , map $_->() , $objA->parameter( 'a.x' ); ... # In A ... package A; ... sub parameter { ... return ( \&parameter_name( $param ) , \&parameter_value( $self->{ values }->{ $para } ) ) ; } ...` [download]	[reply] [d/l]