請教perl 引號問題

longkaty

D:/perl/2.txt:

1. 
   
2. x.x.x.x        uYu337i\r@06        22        aa        aa        無
   
3. x.x.x.x        IM;MZ26py`9D        22        aa        aa        無
   
4. x.x.x.x        4&63bA2fqp%^        22        aa        aa        無
   
5. x.x.x.x        7=RLf3yBti=&        22        aa        aa        無
   
6. x.x.x.x        K=^72sLX8v.J        22        aa        aa        無
   
7. x.x.x.x        Qxh41P^=h4"=        22        aa        aa        無
   
8. x.x.x.x        ?ba8D14jm?2f        22        aa        aa        無

復(fù)制代碼

1. sub insert(){
   
2.         open FILE,"D:/perl/2.txt" ;
   
3.         while (<FILE>) {
   
4.                 my ($ip,$pw,$port,$location,$business,$remark) = split ;
   
5.                 print ;
   
6.                 my $insert= "insert into ip_info (ip,pw,port,location,business,remark)
   
7.                 values ('$ip','\Q$pw\E','$port','$location','$business','$remark')";
   
8.                 $s = $dbh->prepare($insert);
   
9.                 $s->execute();
   
10.         }
    
11.         $s->finish();
    
12.         $dbh->do("commit");
    
13.         close FILE ;
    
14. }

復(fù)制代碼

1.執(zhí)行這個函數(shù)后，在MySQL數(shù)據(jù)庫中4&63bA2fqp%^變成4&63bA2fqp\%^
2.而如果\Q$pw\E'不加\Q.......\E的話uYu337i\r@06就會變成

1. uYu337i
   
2. @06

復(fù)制代碼

哪位大大幫幫忙了。謝謝！

qshllxfx

quotemeta EXPR
quotemeta
Returns the value of EXPR with all non-"word" characters backslashed. (That is, all characters not matching /[A-Za-z_0-9]/ will be preceded by a backslash in the returned string, regardless of any locale settings.) This is the internal function implementing the \Q escape in double-quoted strings.

hitsubunnu

$dbh->quote($string);

or

qq{$string};

longkaty

hi histubunnu。
用了你的方法還是有問題：
應(yīng)該是這樣使用吧？

1. sub insert(){
   
2.         open FILE,"D:/perl/2.txt" ;
   
3.         while (<FILE>) {
   
4.                 my ($ip,$pw,$port,$location,$business,$remark) = split ;
   
5.                 print ;
   
6.                 $dbh->quote($pw);
   
7.                 my $insert= "insert into ip_info (ip,pw,port,location,business,remark)
   
8.                 values ('$ip','\Q$pw\E','$port','$location','$business','$remark')";
   
9.                 $s = $dbh->prepare($insert);
   
10.                 $s->execute();
    
11.         }
    
12.         $s->finish();
    
13.         $dbh->do("commit");
    
14.         close FILE ;
    
15. }

復(fù)制代碼

hitsubunnu

1. 
   
2. 
   
3. my $tmpsql = join ",",map{ $dbh -> quote($_) } ($ip,$pw,$port,$location,$business,$remark);
   
4. 
   
5. my $sql = "insert into ip_info (ip,pw,port,location,business,remark) VALUES ($tmpsql)";
   
6. $dbh->do($sql);
   
7. 
   

復(fù)制代碼

longkaty

非常感謝，現(xiàn)在可以啦。