Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Perl print statement + HTTP request

by betterworld (Deacon)
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"; }


Comment on Re: Perl print statement + HTTP request
Select or Download Code
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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (8)
As of 2014-08-21 17:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (139 votes), past polls