Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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
Node Status?
node history
Node Type: note [id://974923]
[choroba]: LanX we used to mock Hare Krishna processions signing "Hare Rama" carrying the margarine conatiners
[choroba]: :-D
[LanX]: What about Czech an Chechen ambessy?
[AnomalousMonk]: LanX: Rama had (has?) a high (much higher than typical asteroid) rate of axial (again, unusual, I think) spin for its artificial gravity.
LanX pity there is no Germs embassy ...
[choroba]: LanX We merged them to save money.

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (13)
As of 2017-11-22 17:08 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (327 votes). Check out past polls.