Perl: 向mysql数据库插入二进制字段, 并返回所插入记录的自动增长字段的值

我不是女神ヾ 2022-08-14 01:00 96阅读 0赞

<table style="width: 100%; border-collapse: collapse;"> 
 <tbody> 
  <tr> 
   <td align="center">&nbsp;</td> 
  </tr> 
  <tr> 
   <td> 
    <table style="width: 100%; border-collapse: collapse;"> 
     <tbody> 
      <tr> 
       <td align="center"> 
        <table style="width: 650px; border-collapse: collapse; word-wrap: break-word;"> 
         <tbody> 
          <tr> 
           <td align="center"> 
            <table style="width: 100%; border-collapse: collapse; word-wrap: break-word;"> 
             <tbody> 
              <tr> 
               <td> 
                <div style="MARGIN: 15px"> 
                 <div> 
                  <div>
                    &nbsp; 
                  </div> 
                  <table style="TABLE-LAYOUT: fixed"> 
                   <tbody> 
                    <tr> 
                     <td> 
                      <div> 
                       <p><span style="color: #ccffcc;">#! c:/perl/bin/perl.exe</span><br>use strict;<br>use warnings;<br>use Digest::MD5;<br>use DBI;<br>use DBD::mysql; </p> 
                       <p>my $filePath = "D://malware//<span style="color: #0066a7;">ixigua.exe</span>";<br>my $fileLen = <span style="color: #ff0000;">-s</span> $filePath;<br>my $md5 = Digest::MD5-&gt;new();<br>open ( HFILE, "&lt; $filePath" ) or die ("Can't open:$!");<br><span style="color: #c00000;">binmode</span>( HFILE );<br>$md5-&gt;<span style="color: #00b0f0;">addfile</span>( *HFILE );<br>my $strMD5 = $md5-&gt;<span style="color: #00b0f0;">hexdigest</span>(); <span style="color: #92d050;">#计算MD5值<br></span><br><span style="color: #c00000;">seek</span>( HFILE, 0, 0);&nbsp;&nbsp;<span style="color: #92d050;">#调整文件指针至文件头,必需步骤</span><br>my $data;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: #92d050;">#存放文件内容</span><br>my $len = <span style="color: #c0504d;">read</span>( HFILE, $data, $fileLen );<br><span style="color: #c00000;">close</span>( HFILE );<br><br>my $dbh = DBI -&gt; <span style="color: #00b0f0;">connect</span>("<span style="color: #fac08f;">DBI:mysql:DB_AAA;host=192.168.22.252;user=ixigua;password=aaa123</span>",{RaiseError=&gt;1});<br>my $insertStr = "<span style="color: #fac08f;">insert into `SIMPLE_BODY` ( SIMPLE_SIZE, SIMPLE_BODY) values( <strong>?,?</strong>);</span>"; <span style="color: #92d050;">#预留参数的位置</span><br>my $sth = $dbh-&gt;<span style="color: #00b0f0;">prepare</span>( $insertStr ) or die("<span style="color: #fac08f;">Cannot prepare statement:</span>", $dbh-&gt;errstr(),"<span style="color: #fac08f;">/n</span>");<br>my $rc = $sth-&gt;<span style="color: #00b0f0;">execute</span>(<strong>$fileLen, $data</strong>) or die("<span style="color: #fac08f;">Cannot execute statement:</span>", $sth-&gt;errstr(), "<span style="color: #fac08f;">/n</span>");<br>my $id = $dbh-&gt;<span style="color: #00b0f0;"><strong>last_insert_id</strong></span>(undef,undef, "`SIMPLE_BODY`", "SIMPLE_BODY_KEY");<br><span style="color: #92d050;">#前2个参数不用理会，第3个为数据表名，第4个具有自动增长属性的列名</span> </p> 
                       <p>print 'insert_id=',$id, "/n"; </p> 
                       <p>warn( $DBI::errstr ) if $DBI::err;<br>$dbh-&gt;disconnect(); </p> 
                       <div>
                         ================================================ 
                        <br> 
                        <strong>注释</strong>： 
                        <span style="color: #ff0000;">若数据库插入语句不用参数预留</span>， 
                        <strong>操作就<span style="color: #ff0000;">失败</span></strong>，原因没有找到？ 
                        <br>my $insertStr = " 
                        <span style="color: #fac08f;">insert into `SIMPLE_BODY` ( SIMPLE_SIZE, SIMPLE_BODY) values( <strong><span style="color: #444444;">$fileLen, $data</span></strong>);</span>"; 
                        <span style="color: #92d050;">#不预留参数而直接填充</span> 
                        <br>my $sth = $dbh-&gt; 
                        <span style="color: #00b0f0;">prepare</span>( $insertStr ) or die(" 
                        <span style="color: #fac08f;">Cannot prepare statement:</span>", $dbh-&gt;errstr()," 
                        <span style="color: #fac08f;">/n</span>"); 
                        <br>my $rc = $sth-&gt; 
                        <span style="color: #00b0f0;">execute</span>() or die(" 
                        <span style="color: #fac08f;">Cannot execute statement:</span>", $sth-&gt;errstr(), " 
                        <span style="color: #fac08f;">/n</span>"); 
                       </div> 
                      </div> </td> 
                    </tr> 
                   </tbody> 
                  </table> 
                 </div> 
                </div> </td> 
              </tr> 
             </tbody> 
            </table> </td> 
          </tr> 
         </tbody> 
        </table> </td> 
      </tr> 
     </tbody> 
    </table> </td> 
  </tr> 
 </tbody> 
</table>