Help for this page

Select Code to Download


  1. or download this
    for ( grep /^default_option_/, keys %def ) {

   $s{ (split /_/, $_, 2)[-1] } = $def{ $_ };
}
  2. or download this
    foreach (map { /^default_option_(.*)/ ? $1 : () } keys %def) {
    $s{"option_$_"} = $def{"default_option_$_"};
}
  3. or download this
    for (grep /^default_option_(.*)/, keys %def) {
    $s{"option_$1"} = $def{$_};
}
  4. or download this
    $s{"option_$1"} = $def{$_} for (grep /^default_option_(.*)/, keys %def
+);