Help for this page

Select Code to Download


  1. or download this
    if( m/^\s*-([\w-]+)   \s*:\s*([^,]*),?$/)
  { ($field, $val)= ($1, $2); }
elsif( m/^\s*([^,]*),?$/)
  { $val= $1; }
  2. or download this
    if( m/^\s*-([\w-]+)   \s*:\s*(.*)$/)
  { ($field, $val)= ($1, $2); }
elsif( m/^\s*(.*)?$/)
  { $val= $1; }
$val=~s/,$//;