perl读取二进制文件并进行修改的实例

最新推荐文章于 2024-06-25 20:06:46 发布
最新推荐文章于 2024-06-25 20:06:46 发布
阅读量871 收藏 1
点赞数
分类专栏： perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ancktion/article/details/107264813
版权

以下脚本为读取二进制文件，并进行分析处理，判断有错误的数据进行修改的实例：

##分析指定目录下的日志，提取有用的信息##
##此程序由perl运行##

#use Digest::MD5 qw(md5_hex);
#print "Digest is ", md5_hex("foobarbaz"), "\n";
#use Digest::MD5 qw(md5 md5_hex md5_base64);
#$digest = md5($data);
#$digest = md5_hex($data);
#$digest = md5_base64($data);
# OO style
use Digest::MD5;
#$ctx = Digest::MD5->new;
#$ctx->add($data);
#$ctx->addfile($file_handle);
#$digest = $ctx->digest;
#$digest = $ctx->hexdigest;
#$digest = $ctx->b64digest;

#公共函数

#把整型数转为低位在前的16进制字符串
#使用方法 $strhex = inter2lowhex("9535",4); or $strhex = inter2lowhex(9535,2);
sub inter2lowhex
{
   #数值
   my $intervalue = $_[0] * 1;
   #字节数
   my $bytenum = $_[1];
   
   my $hexreturn = "";
   my $i=0;
   for( $i = 0; $i < $bytenum; $i ++ ){
    my $tempvalue = $intervalue & 255;
	$intervalue >>= 8;
    my $strtemp = sprintf("%02x",$tempvalue);
    #printf("$i $strtemp $intervalue hex : $strtemp\n");
	$hexreturn .= $strtemp;
   }
   return $hexreturn;
}

#把低位在前的16进制字符串转为整型
#使用方法 $inter = lowhex2inter("9535",4);
sub lowhex2inter
{
   #字符串
   my $strhex = sprintf("%s",$_[0]);;
   #字节数
   my $bytenum = $_[1]/2;
   #printf("hex:$strhex num:$bytenum\n");
   
   my $interreturn = 0;
   my $i=0;
   for( $i = 0; $i < $bytenum; $i ++ ){
	$interreturn <<= 8;
    my $tempvalue = substr($strhex,($bytenum-$i-1)*2,2);
	my $tempinter = 0;
	$tempinter += hex($tempvalue);
	$interreturn += $tempinter;
    #printf("$i $tempvalue $tempinter inter : $interreturn\n");
   }
   return $interreturn;
}

#生成同一个字符指定数量的字符串
#使用方法 makecharnum("0",4);
sub makecharnum
{
   #字符
   my $charvalue = $_[0];
   #字符数量
   my $charnum = $_[1];
   
   my $strreturn = "";
   my $i=0;
   for( $i = 0; $i < $charnum; $i ++ ){
	$strreturn .= $charvalue;
   }
   return $strreturn;
}

#计算crc32
#使用方法 makecrc32($string,$crcvalue);
sub makecrc32
{
 my ($input, $init_value, $polynomial) = @_;

 $init_value = 0 unless (defined $init_value);
 $polynomial = 0xedb88320 unless (defined $polynomial);

 my @lookup_table;

 for (my $i=0; $i<256; $i++) {
   my $x = $i;
   for (my $j=0; $j<8; $j++) {
     if ($x & 1) {
       $x = ($x >> 1) ^ $polynomial;
     } else {
       $x = $x >> 1;
     }
   }
   push @lookup_table, $x;
 }

 my $crc = $init_value ^ 0xffffffff;

 foreach my $x (unpack ('C*', $input)) {
   $crc = (($crc >> 8) & 0xffffff) ^ $lookup_table[ ($crc ^ $x) & 0xff ];
 }

 $crc = $crc ^ 0xffffffff;

 return $crc;
}

#调用分析主函数
&analysemain();

#定义分析的主函数
#函数调用格式: &analysemain();
sub analysemain
{
  #指定一个原始数据目录
  my $dirname = "./org";
  my $dirdest = "./dest";
  my $logdir;
  #---------------需要修改的部分----------------#

  opendir($logdir,$dirname ) || die "Error in opening dir $dirname\n";

  my $strlog;
  #日志
  my $logfilepath = "./result.log";
  my $filelog;
  open($filelog,">$logfilepath")|| die "Error in opening outputfile >$logfilepath\n";
  
  #打开写入文件 >代表为重写方式打开文件
  my $filename;
  while( ($filename = readdir($logdir)))
  {
    #循环输出该目录下的文件。
    #print("$filename\n");

    #如果文件是.txt后缀则对文本进行处理
    if ($filename =~ m/S.+/)
    {
	  my $infilepath = "$dirname/$filename";
	  my $fileinput;
	  #"filepath"        以只读模式打开文件.
      #">filepath"       以写模式打开文件.
      #">>filepath"      以追加模式打开文件,写和追加的区别在于写模式将原文件覆盖,而追加模式则在文件末尾处添加内容.
      #"+>filepath"      以读和写方式打开文件.
      #"+>>filepath"     以读和追加方式打开文件.
	  open ($fileinput, "$infilepath")|| die "can not open the file $infilepath\n";
	  binmode($fileinput);
	  my $outfilepath = "$dirdest/$filename";
	  my $fileoutput;
	  open ($fileoutput, "+>$outfilepath")|| die "can not open the file $outfilepath\n";
	  binmode($fileoutput);
	  
	  $strlog = "正在处理文件:$infilepath.........\n";print($strlog);print($filelog $strlog);
      #打开文件并读入处理的文件信息
      #定义到文件头
	  seek($fileinput,0,0);
	  seek($fileoutput,0,0);
	  #文件头处理 1+7+1+4+4
	  #文件类型 1
	  my $datalen = 1;	#读取的数据长度
	  my $databuffer=""; #读取数据的缓存
	  my $datahex="";	#数据转为16进制字符串
	  my $databit="";	#数据为数据流
	  my $datainter = 0; #数据转为整数
	  my $salenum=0;	#交易文件中的交易记录数
	  my $datatemp = "";	#临时使用的数
	  my $devid = "";	#交易的设备编号
	  my $errnum=0;	#交易异常的数量
	  read($fileinput,$databuffer,$datalen);
	  $datahex = unpack("H*", $databuffer);
	  $strlog = "文件类型:$datahex\n";print($strlog);print($filelog $strlog);
	  print($fileoutput $databuffer);
	  #时间 7
	  $datalen = 7;
	  $databuffer="";
	  $datahex="";
	  read($fileinput,$databuffer,$datalen);
	  $datahex = unpack("H*", $databuffer);
	  $strlog = "时间:$datahex\n";print($strlog);print($filelog $strlog);
	  print($fileoutput $databuffer);
	  #文件版本 1
	  $datalen = 1;
	  $databuffer="";
	  $datahex="";
	  read($fileinput,$databuffer,$datalen);
	  $datahex = unpack("H*", $databuffer);
	  $strlog = "文件版本:$datahex\n";print($strlog);print($filelog $strlog);
	  print($fileoutput $databuffer);
	  #节点标识 4
	  $datalen = 4;
	  $databuffer="";
	  $datahex="";
	  read($fileinput,$databuffer,$datalen);
	  $datahex = unpack("H*", $databuffer);
	  $strlog = "节点标识:$datahex\n";print($strlog);print($filelog $strlog);
	  print($fileoutput $databuffer);
	  #文件序列 4
	  $datalen = 4;
	  $databuffer="";
	  $datahex="";
	  read($fileinput,$databuffer,$datalen);
	  $datahex = unpack("H*", $databuffer);
	  $datainter = lowhex2inter($datahex,8);
	  $strlog = "文件序列:$datainter\n";print($strlog);print($filelog $strlog);
	  print($fileoutput $databuffer);
	  
	  #交易记录数
	  $datalen = 4;
	  $databuffer="";
	  $datahex="";
	  read($fileinput,$databuffer,$datalen);
	  $datahex = unpack("H*", $databuffer);
	  $datainter = lowhex2inter($datahex,8);
	  $salenum = $datainter;
	  $strlog = "记录数:$datainter\n";print($strlog);print($filelog $strlog);
	  print($fileoutput $databuffer);
	  
	  
	  #读取每一条交易记录
	  $datalen = 110;
	  my $iserr = 0;
	  my $tellpos = 0;
	  for (my $i=0; $i<$salenum; $i++) {
		$strlog = ">>>记录$i ";print($strlog);print($filelog $strlog);
		$databuffer="";
	    $datahex="";
		$iserr = 0;
		if(!read($fileinput,$databuffer,$datalen))
		{
		  last;#break;
		}
		#交易时间
		$datatemp = substr($databuffer,0,4);
		$datahex = unpack("H*", $datatemp);
		$strlog = " 时间:$datahex";print($strlog);print($filelog $strlog);
		#票卡逻辑号
		$datatemp = substr($databuffer,8,8);
		$datahex = unpack("H*", $datatemp);
		$strlog = " 票卡编号:$datahex";print($strlog);print($filelog $strlog);
		#支付方式
		$datatemp = substr($databuffer,59,1);
		$datahex = unpack("H*", $datatemp);
		$strlog = " 支付方式:$datahex";print($strlog);print($filelog $strlog);
		#当前车站
		$datatemp = substr($databuffer,74,4);
		$datahex = unpack("H*", $datatemp);
		$devid = $datahex;
		$strlog = " 节点编号:$datahex";print($strlog);print($filelog $strlog);
		
		$tellpos = tell($fileoutput);
		$strlog = " 文件位置:$tellpos";print($strlog);print($filelog $strlog);
		if($devid eq "02370805")
		{
		  $iserr = 1;
		  $strlog = " --5"; print($strlog);print($filelog $strlog);
		  $errnum ++;
		}
		elsif($devid eq "02370806")
		{
		  $iserr = 1;
		  $strlog = " --6"; print($strlog);print($filelog $strlog);
		  $errnum ++;
		}
		elsif($devid eq "02370807")
		{
		  $iserr = 1;
		  $strlog = " --7";print($strlog);print($filelog $strlog);
		  $errnum ++;
		}
		$strlog = "\n";	print($strlog);print($filelog $strlog);
		#写入目标文件
		
		print($fileoutput $databuffer);
		if($iserr == 1)
		{
		  #改写支付方式
		  #seek($fileoutput,$tellpos+59,0);
		  seek($fileoutput,$tellpos+59,0);
		  $datatemp = inter2lowhex(1,1);
		  $strlog = "change:$datatemp\n";	print($strlog);print($filelog $strlog);
		  $databit = pack("H*", $datatemp);
		  print($fileoutput $databit);
		  seek($fileoutput,0,2);
		}
	  }
	  $strlog = "数据异常数量:$errnum";print($strlog);print($filelog $strlog);
	  $strlog = "\n";	print($strlog);print($filelog $strlog);
	  
	  #计算文件的md5
	  seek($fileoutput,0,0);#定位到文件头
	  my $ctx = Digest::MD5->new;
	  $ctx->addfile($fileoutput);
      $databit = $ctx->digest;
	  $datahex = $ctx->hexdigest;
	  $strlog = "计算文件的md5:$datahex";print($strlog);print($filelog $strlog);
	  seek($fileoutput,0,2);
	  print($fileoutput $databit);
	  
	  $strlog = "\n\n";	print($strlog);print($filelog $strlog);
	  
	  close($fileinput);
	  close($fileoutput);
    }
   }
   closedir($logdir);
}
ancktion
关注
专栏目录
运维实践-最新Nginx二进制构建编译lua-nginx-module动态链接Lua脚本访问Redis数据库读取静态资源隐式展现...
WeiyiGeek 唯一极客IT知识分享
08-06 887
关注「WeiyiGeek」公众号设为「特别关注」每天带你玩转网络安全运维、应用开发、物联网IOT学习！本章目录：0x0n 前言简述知识引入Lua模块指令阶段0x01 部署环境安装说明安装部署0x02 使用实践1.Nginx 实践使用 echo-nginx-module 模块之动态加载链接库2.Nginx 实践使用 lua-resty-redis 模块连接 Redis 进行......
Linux工具应用_PERL
最新发布
qq_39355579的博客
07-15 557
perl脚本是当前工作中最常用的脚本，还是先熟练掌握之后再看其他
perl 二进制文件读写
stonesharp的专栏
09-02 1万+
use strict; my $gifname = "C:\\Documents and Settings\\Administrator\\My Documents\\My Pictures\\1.jpg"; my $gifOutname = "d:\\1111.dat";
perl读写二进制文件
zk1878的专栏
10-26 745
      perl读写二进制文件只能使用sysread和syswrite 以下是一个读取文件，写入文件的例子   open RF, '&lt;F:/training video/_back/1.wmv'; open WF, '&gt;F:/training video/_back/11.wmv'; print "begin:\n"; my $len_read=1024; my $l...
Perl读取二进制流文件
mila07的博客
04-13 1099
参考自：https://blog.csdn.net/u011729865/article/details/54575956 open(BIN_FP,"<",“test.bin"); open(HEX_TXT_FP,"<",“test.txt"); while(read(BIN_FP,my $buffer,1)) { my $hex=unpack("H*",$buffer);...
探索Perl的二进制世界：深入二进制文件处理
2401_85842555的博客
06-25 657
Perl作为一种功能强大的脚本语言，提供了丰富的内置函数和操作符来处理文件，包括二进制文件。在系统编程、网络编程以及数据恢复等领域，二进制文件处理是一项不可或缺的技能。本文将带领读者深入了解如何在Perl中高效地处理二进制文件。
perl读取二进制格式的bin文件
学而不思则罔，思而不学则殆
01-16 6580
perl下读取二进制格式的bin文件步骤 16进制数据的字节翻转处理工程中，板级系统通过IDE工具，dump出的数据格式是二进制的bin文件。 在linux下，直接cat命令，是乱码。 此时，如果有需求对该文件下的数据进行脚本处理；比如perl。可以参考下述方法。perl下读取二进制格式的bin文件步骤： open FILEHAND,"XXX.bin" 就是perl的读取文件命令 binmod
perl读取html文件内容,Perl 文件操作
weixin_35291771的博客
06-10 538
Perl 文件操作Perl 使用一种叫做文件句柄类型的变量来操作文件。从文件读取或者写入数据需要使用文件句柄。文件句柄(file handle)是一个I/O连接的名称。Perl提供了三种文件句柄:STDIN,STDOUT,STDERR，分别代表标准输入、标准输出和标准出错输出。Perl 中打开文件可以使用以下方式：open FILEHANDLE, EXPRopen FILEHANDLEsysope...
perl
weixin_41287916的博客
05-13 450
使用内建警告信息 在运行时，加上 -w ￥perl -w my_program #!/usr/bin/perl/ -w #!/usr/bin/perl use warinings use diagnostics 如果要查看更详细的信息可以用这个 use strict 强制终止程序的执行直到程序问题被解决 1、会避免错误拼写 2、限定变量的范围 如何使用帮助文档perldoc 标量$ 数字标量 全部为双精度浮点数 $data = 10; $data = 10.00；是一样的，都会被转到双精度浮点 较长的
perl实例精解（第三版）
08-18
书中会有示例解释如何读取和写入文本文件，甚至处理二进制文件。对于系统接口，Perl提供了丰富的内建函数，如system、open、pipe等，可以进行进程控制和管道通信，这些也会在实例中得到充分展示。 面向对象编程在...
Perl打印输出二进制文件
mila07的博客
05-06 1723
比如a.txt文本内容为： 要将这些数据当做十六进制数写到二进制文件test.yuv里，如此操作：#!/usr/bin/perl open(RFP,"a.txt") || die; open(WFP,">test.yuv") || die; while(<RFP>) { while(/(\w+)/g) { $yuv_data = $
perl二进制、十进制、十六进制的表达方式和高位补零方法；十进制和十六进制的转换方法
热门推荐
学而不思则罔，思而不学则殆
07-08 1万+
IC方向，常见的进制表达，一般有二进制、十进制、十六进制。另外，还有高位补零的需求。 mark，以备不时之需。二进制、十进制、十六进制的表达方式qilei@AFAAW-704030720:~$ cat 11.pl #!/usr/bin/perl use warnings; use strict; my $v=9; printf("%d\n",$v); $v=10; printf("%x\n",$v
用perl读写二进制的文件
simtwo的专栏
02-10 1723
open(FP, $file) || die "cannot open file $!"; binmode(FP);open(TMPFP, ">a.tmp"|| die "cannot open file $!"; binmode(TMPFP);my $buffer = "";while(read(FP, $buffer, 1024)) {   syswrite(TMPFP, $buffer
perl操作二进制文件方法
bruce_wang_janet的专栏
08-17 3951
1. 打开句柄，设置为bin模式 open(GIF, $gifname)         or die "can't open $gifname: $!"; open(GIFOUT, ">$gifOutname")         or die "can't open $gi
perl进制转换
dddggg5000的博客
02-01 773
十六进制数转换为十进制数 $hexStr="0e"; print hex($hexStr); 二进制数转换为十进制数 print oct("0b"."10101010")."\n"; 十进制转换为二进制 $Str = sprintf("%b","1432")+0; print $Str; 十进制转换为十六进制 $Str = sprintf("%x","14...
perl写的一个文件二进制文件trace切割
dengdaiforever的专栏
10-15 1511
#! usr/bin/perl -w open (TRACE,"removeflash.trace") or die "$!"; binmode(TRACE); #{ #die"open file failed!($!)"; #} open RESULT,">origin.txt"; my $th_length=20;              #0－19 my $pr_lengt
Perl十进制数字转换为二进制字符
wl_Viola的博客
10-16 3243
项目需要，随笔记录一下。以下函数可以将十进制数字转换为二进制字符 #十进制转换成二进制(8位二进制) #参数说明：$dec:十进制数，$str二进制字符 sub dec_to_bin($$){ my $dec = shift; my $str = shift; if($dec &lt; 2){ $str = $dec.$str; if(length($str) &lt; ...
用Perl截取UYVY文件（二进制文件操作示例）
weixin_30569033的博客
06-18 148
#---------------------------------#ClipYuvfile#Author:Jthou2007-06-18#---------------------------------#!/usr/bin/perlif(@ARGV<5){print"usage:clip.plsrcfilenamedstfilenamewid...
perl 十六进制转二进制
勤劳的小蜜蜂
05-11 6621
$hexstr = "20b5"; $decStr = hex($hexstr); print $decStr."\n"; $binStr = sprintf("%016b",$decStr);（总共16位，不够，前面补0） 输出： 8373 0010000010110101
perl将二进制转化为十进制
05-25
在 Perl 中，可以使用 `oct()` 函数将二进制字符串转换为十进制数字。例如，要将二进制字符串 `1101` 转换为十进制数字，可以按照以下方式编写代码： ```perl my $binary = '1101'; my $decimal = oct("0b$binary")...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值