如何使用perl将图片存入mysql中？

亚子

为什么不保存地址呢？

epee

二进制把文件读到一个字符串，然后用绑定的方式往mysql中存就行了。

epee

这段程序你看看吧

1. 
   
2.         foreach (keys %{ $self->;{'_attachment'} }) {
   
3.             unless ($self->;{'_attachment'}->;{$_}) {
   
4.                 my $sth       = $dbh->;prepare('INSERT INTO attachment (file_name,file_content) VALUES (?,?)');
   
5.                 my $file_name = File::Basename::basename($_);
   
6.                 my $file_content;
   
7.                 open FH, $_ or croak("Can't open file $_.");
   
8.                 {
   
9.                     local $/ = undef;
   
10.                     binmode FH;
    
11.                     $file_content = <FH>;;
    
12.                 }
    
13.                 close FH;
    
14.                 $sth->;execute($file_name, $file_content) or croak("Can't insert attachment $file_name: $DBI::errstr");
    
15.                 $self->;{'_attachment'}->;{$_} = $self->;_get_last_insert_id;
    
16.             }
    
17.         }
    

复制代码

另外如果文件比较大的话还需要把max_allowed_packet设大一点。