Help for this page

Select Code to Download


  1. or download this
    my %table;
$table{type_of_animal} = "giraffe";
  2. or download this
    my $row = $sth->fetchrow_arrayref;
$row->[0] =~ s/\$(\w+)/exists $table{$1} ? $table{$1} : "\$$1"/eg;
  3. or download this
    {
   no strict 'refs';
   my $row = $sth->fetchrow_arrayref;
   $row->[0] =~ s/\$(\w+)/$$1/eg;
}