< Previous (10/14) | [Index] | Next (12/14)>

Passing Functions

• Functions, too, can be passed as parameters to a function.
• For example, given that "infile" holds an anonymous function:

  sub {
     my $arg = shift;
     $arg =~ s/,/_/;
     return $arg;
  };
  

• Then the following code passes the contents of "infile" as a code ref to another function:

  my $input = eval `cat infile`;
  my @input_args = ("a,a\n" , ",b\n" , "c,d\n");
  my @transformed_args = simple_transform(\@input_args,$input);
  print for @transformed_args;
  sub simple_transform {
     my @args = @{$_[0]};
     my $transform = $_[1];
     my @output;
     for my $arg (@args) {
        push @output, &$transform($arg);
     }
     return @output;
  }
  

Offer Kaye. YAPC::Israel::2005.
Slides automatically generated by tmpl2slides.pl. Last updated on Wed Feb 9 23:11:09 2005