Help for this page

Select Code to Download


  1. or download this
    my $template = "Hi %foo, I have a %bar.\n";

...
    $template =~ s/%([a-z]+)/$params{$1}/g;
    return $template;
}
  2. or download this
    my ($x, $y, $z);
my $callback = sub { print $x, $y, $z, "\n" };
...

($x, $y, $z) = (4, 5, 6);
$callback->();
  3. or download this
    my $callback = sub {
    my ($x, $y, $z) = @_;
...

$callback->(1,2,3);
$callback->(4,5,6);