请教 Perl 编程：如何往数据库中放含有单引号 ' 的项？

ShiyuTang

我是新手。我想往 MySQL 数据库中存放我的音乐列表，于是写了个 Perl 脚本，见下：

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use File::Find;
   
5. use DBI;
   
6. $dbh = DBI->connect("dbi:mysql:dbname=filetest",'root','');
   
7. find(\&wanted, "/home/tsy/Music");
   
8. $dbh->disconnect;
   
9. sub wanted
   
10. {       
    
11.         $file=$File::Find::name;
    
12.         if(-f $file)
    
13.         {
    
14.                 $sql = "INSERT INTO filename VALUES('$file')";
    
15.                 $rc = $dbh->do($sql);
    
16.         }
    
17. }
    

复制代码

但是我发现，一旦遇到带有单引号“'”的歌名，如 I'll never break your heart，只要碰到 I 后面的那个 ' 那后面的内容就无法往数据库里添了，数据库把它当成一个结束符了，这怎么解决啊？