分割合并文件代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】分割合并文件

作者:DDT / 发布于2012/11/13/ 1331

use strict;
my $ItemSize = 1024 * 1024 * 100;
open(FILEHANDLE, "< a1.mkv");
binmode   FILEHANDLE;
seek(FILEHANDLE,0,2);
print "file size is " . tell(FILEHANDLE) . "\n" ;
my $fileNum = tell(FILEHANDLE) / $ItemSize;
seek(FILEHANDLE,0,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, $FileCon, $ItemSize -  $ContRead);
  print $ContRead . "\n";
  print TEMPFILEHANDLE $FileCon;
 }
 
 close(TEMPFILEHANDLE);
}

close(FILEHANDLE);


合并

use strict;

open(FILEHANDLE, ">> NEW.mkv");
binmode FILEHANDLE;
# my $len = read(FILEHANDLE,my $FileCon, 12);
# print $len;
for(my $i = 0; $i < 53; $i++) {
 print $i . "\n";
 my $FileCon;
 open(TEMPFILEHANDLE, "<", "$i" . "\.DATA");
 binmode TEMPFILEHANDLE;
 seek(TEMPFILEHANDLE,0,2);
 my $fileLength = tell(TEMPFILEHANDLE);
 print "file size is " . "$fileLength" . "\n";
 seek(TEMPFILEHANDLE,0,0);
 $fileLength = read(TEMPFILEHANDLE, $FileCon, $fileLength);
 print "read size is " . "$fileLength" . "\n";
 print FILEHANDLE $FileCon;
 close(TEMPFILEHANDLE);
}

close(FILEHANDLE);

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　分割合并文件　

同语言下

可能有用的

DDT贡献的其它代码(160)