Help for this page

Select Code to Download


  1. or download this
    print STDERR "|$host|, |$db|, |$user|, |$pw|";
    
  2. or download this
    my ($key, $val) = split(/\s*=\s*/,$_,2);
    $key =~ s/^\s*//;
    $val =~ s/ *$//g;  # also tried \s* and \S*, as well 
    $config{'db'}{"$key"} = $val;
    $config{"$key"} = $val;