分割合并文件

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

use strict;
my $ItemSize = 1024 * 1024 * 100;
open(FILEHANDLE,"< a1.mkv");
binmode   FILEHANDLE;
seek(FILEHANDLE,2);
print "file size is " . tell(FILEHANDLE) . "n" ;
my $fileNum = tell(FILEHANDLE) / $ItemSize;
seek(FILEHANDLE,0);
print "file pos is " . tell(FILEHANDLE) . "n" ;
# my $len = read(FILEHANDLE,my $FileCon,12);
# print $len;
for(my $i = 0; $i <$fileNum; $i++) {
 my $FileCon;
 open(TEMPFILEHANDLE,"+>","$i" . ".DATA");
 binmode TEMPFILEHANDLE;
 my $ContRead = read(FILEHANDLE,$FileCon,$ItemSize);
 print $ContRead . "n";
 print "file pos is " . tell(FILEHANDLE) . "n" ;
 print TEMPFILEHANDLE $FileCon;
 if ( $ContRead < $ItemSize) {
  $ContRead = read(FILEHANDLE,$ItemSize -  $ContRead);
  print $ContRead . "n";
  print TEMPFILEHANDLE $FileCon;
 }
 
 close(TEMPFILEHANDLE);
}

close(FILEHANDLE);

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!