perl 完成一个固定格式的文本文件处理

昨天刚开始学习perl ，真是太有意思了！而且完全用小写字母，爽……开发速度快，而且和C一样很强大，平台移植性好，很多很多优点，最主要是上手快。恐怕这是脚本的优点吧！初学总感觉和shell很像，之后就看出其相同点和不同点了！

后来一老师要求做一个文本文件处理的程序，本想用C 或者C#完成的，但想想之后还要在老师那里装一个很大的运行环境，又加上刚学perl ，很想弄点有意思的东西，于是决定用perl 写。

文件格式大致如下：

08 13 94 52 00 00 00 00 00 00 00 00 00 00 00

08 13 80 85 00 00 00 00 00 00 00 00 00 00 00

08 13 51 55 00 00 00 00 00 00 00 00 00 00 00

……

注：此处已经做了换行显示，文本文件中没有换行符，只有数字和空格

每一个数字（如 08 ， 13 ）是一个BCD码，以每 5 个数字携带一个变量的值，则每15个数字携带三个变量某一时刻的值。如第一行 08 13 94 52 00 | 00 00 00 00 00 | 00 00 00 00 00 红色的携带变量1，绿色的携带变量2，蓝色的携带变量3。每一变量的解析格式为：前四位BCD码代表数值部分，最后一位代表指数部分，则变量1的值为：0.8139452 * 10^0 .

主要是对数组的操作，思路是将文件打开读入所有的数据，并按‘ ’将数据split 成数组，之后操作这数组吧！

听说perl 实现的功能千差万别，相同的功能可能写成 1w行代码，也可能写成10w 行代码，就看编程人员的功底。我刚开始学，也不管了！实现就行。上代码：

#! perl

# author : YEZ
# date : 2014/12/ 9
# describe : convert 15 - bytes data to double string;

# Dre@mtech Working Group

# open file and get file handler fp
open (fp,$ARGV[0]) || die ("cannot open input file $ARGV[0]!\r\n");

# file content;
$content = <fp>; # read file content string to varible 
# $len = @content;  # or use scalar (@content)

@each = split (/ /,$content);
# file array length;
$eachlen = @each;

# die ("error! file format is invali!!!\r\n")  if ($eachlen % 15 != 0);

# get start index from @each in each step,to calculate
$i = 0;   

while (
# $i != $eachlen
$eachlen > 0
) {
	$adjust = 0;
	while ($each[$adjust] == 0) {
		$adjust ++;
	}
	@frame = @each[($i + $adjust) .. ($i + $adjust + 14)];

	# start calculate
	$torsion = (($frame[0].$frame[1].$frame[2].$frame[3]) * (0.1 ** 7)) * (10 ** $frame[4]);  # var1
	$speed = (($frame[5].$frame[6].$frame[7].$frame[8]) * (0.1 ** 7)) * (10 ** $frame[9]);    # var2
	$power = (($frame[10].$frame[11].$frame[12].$frame[13]) * (0.1 ** 7)) * (10 ** $frame[14]);  # var 3
	
	print ("$torsion  $speed  $power \r\n");   # output and redirect to a file
	
	$i += 15 + $adjust;    # move array start index
	$eachlen -= 15 + $adjust;
	if ($eachlen - 15 < 15) {
		$x = 1;
	}
}

close (fp);   # close file handler

perl 完成一个固定格式的文本文件处理

猜你在找的Perl相关文章