Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: Perl print statement + HTTP request

by betterworld (Curate)
on Jun 07, 2012 at 11:54 UTC ( #974923=note: print w/replies, xml ) Need Help??

in reply to Perl print statement + HTTP request

What you are thinking of is some kind of a closure, like this:

my $make_output = sub { my ($Registration, $Rank) = @_; return @{ $Data{$Registration}->{Name} }[$Rank], "\t"; }; print $make_output->($Registration1, $Rank1), $make_output->($Registration2, $Rank2);

Though I guess that you might be able to simplify your code by using techniques such as OO.

Update: The following code shows what an OO variant would look like. Maybe you are trying to do something completely different; but according to your short line of code, I imagine that you could probably use this example.

my $data = Data->new( ... ); print $data->make_output($Registration1, $Rank1), $data->make_output($Registration2, $Rank2); # class definition package Data; sub new { # set up data object # ... } sub make_output { my ($self, $Registration, $Rank) = @_; return @{ $self->{$Registration}->{Name} }[$Rank], "\t"; }

Replies are listed 'Best First'.
Re^2: Perl print statement + HTTP request
by Anonymous Monk on Jun 07, 2012 at 15:02 UTC
    Exactly what i was looking for and a straighforward method. Anyone have any idea about the HTTP request part? For me it seems it would not matter but I want to make sure.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://974923]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2022-11-30 21:55 GMT
Find Nodes?
    Voting Booth?