代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
分割合并文件
作者:
DDT
/ 发布于
2012/11/13
/
1643
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);
试试其它关键字
分割合并文件
同语言下
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
可能有用的
.
C#实现的html内容截取
.
List 切割成几份 工具类
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
DDT
贡献的其它代码
(
160
)
.
Oracle统计表的数据行和数据块信息
.
html标签闭合检测与修复
.
Powershell日期计算
.
Powershell的Base64编解码
.
Powershell并行循环
.
Powershell目录中搜索文本
.
Powershell枚举远程机器上的本地权限组
.
VBScript解析csv文件
.
快速排序之Powershell
.
批处理输出格式化时间字符串
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3