Pass value to referenced subroutine in perl

Question

I have few referenced subroutine and I need to pass the value to the referenced subroutine. Is there any way to do it.

   #Sample Code
   sub CreateHtmlBox {
     my ($box_type,$hash_ref) = @_;
     my %subCall = (
        'singlebox'   =>  \&CreateSingleBox   ,
        'multiplebox' =>  \&CreateMultipleBox
              );

     my $htmlCode = $subCall->($box_html);
   }

   sub CreateSingleBox {
    my ($box_type) =@_;
    #...................
    return $htmlCode;
   }

I want to call referenced subroutine and pass the reference of hash to it.

   CreateSingleBox($hash_ref)

it's not clear what value you need to pass to the subroutine you're calling. anyway, a level is missing in your example: $subCall->($box_html) should be (assuming you want to call CreateSingleBox): $subcCall{singlebox}->( $box_html ). — larsen
– larsen, Commented Apr 9, 2013 at 12:11

ikegami · Accepted Answer · 2013-04-09 13:45:54Z

2

You have to access an specific element in the hash before you can call it as a coderef. I.e.

# WRONG! Variable $subCall does not exist.
my $htmlCode = $subCall->($box_html);

should really be

my $htmlCode = $subCall{box_type}($box_html);

The resulting code would look like this:

use strict;
use warnings;

sub CreateHtmlBox {
    my ($box_type, $hash_ref) = @_;
    my %subCall = (
        singlebox   => \&CreateSingleBox,
        multiplebox => \&CreateMultipleBox,
    );
    return $subCall{$box_type}($hash_ref);
}

sub CreateSingleBox {
    my ($box_type) = @_;
    my $htmlCode= "<p>" . $box_type->{a} . "</p>";
    return $htmlCode;
}

print CreateHtmlBox("singlebox",{a => 1})

edited Apr 9, 2013 at 13:45

ikegami

391k17 gold badges291 silver badges555 bronze badges

answered Apr 9, 2013 at 12:35

Vorsprung

34.9k5 gold badges44 silver badges71 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Pass value to referenced subroutine in perl

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related