perl脚本中匹配替换

##################################################################

# shao.bing take off dial_prefix+prefix_dial from $CLphone_number

##################################################################

$stmtA = "SELECT dial_prefix FROM vicidial_campaigns where campaign_id = '$CLcampaign_id';";

$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();

$PREFIX = $dial_prefix.$prefix_dial;

$CLphone_number =~ s/$PREFIX//g; ##这里是用空格匹配替换到 $CLphone_number中$PREFIX

例子：

$a="fffff'dddddd";

$a =~ s/'//g;

print $a;

#fffffdddddd