mysql根据字符串长度替换_perl中操作mysql，字符匹配与替换，字符串截取，计算字符长度...

##################################################################                                      # shao.bing take off dial_prefix+prefix_dial from $CLphone_number                                      ##################################################################                                     if ((length$CLphone_number) > 4)                                     {                                          $stmtA = "SELECT dial_prefix FROM vicidial_campaigns where campaign_id = '$CLcampaign_id';";                                          $event_string =  __LINE__." ##########  $stmtA ";                                      &event_logger;                                          $sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;                                          $sthA->execute or die "executing: $stmtA ", $dbhA->errstr;                                          $sthArows=$sthA->rows;                                          if ($sthArows > 0)                                          {                                                 @aryA = $sthA->fetchrow_array;                                                 $dial_prefix    =            $aryA[0];                                          }                                          $sthA->finish();                                                                         $stmtA = "SELECT prefix_dial FROM system_settings ;";                                          $sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;                                          $sthA->execute or die "executing: $stmtA ", $dbhA->errstr;                                          $sthArows=$sthA->rows;                                          if ($sthArows > 0)                                          {                                                 @aryA = $sthA->fetchrow_array;                                                 $prefix_dial    =            $aryA[0];                                           }                                          $sthA->finish();                                                                                                if ((length$dial_prefix) != '0')                               {                                    if($CLphone_number=~ /[$dial_prefix]/)                                    {                                                                          $CLphone_number = substr($CLphone_number, (length$dial_prefix), (length$CLphone_number) - (length$dial_prefix));                                                                        }                                                                  }                                                                             if ((length$prefix_dial) != '0')                                         {                                             if($CLphone_number=~ /[$prefix_dial]/)                                                                                          {                                                 $CLphone_number = substr($CLphone_number, (length$prefix_dial), (length$CLphone_number) - (length$prefix_dial));                                             }                                         }                                                                                  if((length$CLphone_number)=='12' && substr($CLphone_number,0,2)=='01')                                         {                                             $CLphone_number = substr($CLphone_number, 1, 11);                                         }                                     }else {                                         $CLphone_number = $CLphone_number;                                     }