perl按行读文件，行内有用信息，并写入到excel中

tianxiao321123

于 2019-11-22 19:49:14 发布

阅读量898

点赞数 3

分类专栏： script 文章标签： perl

本文链接：https://blog.csdn.net/tianxiao321123/article/details/103205988

版权

本文介绍了如何使用Perl脚本按行读取origin.log文件，通过正则表达式提取cases名称，统计总数，并将这些信息写入到Excel文件cases_list.xls中。内容包括脚本(testlist.pl)的示例及输出文件的结构。

摘要由CSDN通过智能技术生成

perl按行读文件，并写入到excel中***

目标
A：按行读取文件；
B：获取cases的名字，并写入到excel中；
C: 统计cases的总数，并写入到excel中；
输入文件
origin.log ，即要读取的文件，按行读取该文件。需要进行正则表达，获取有用的信息，即cases_name1,cases_name2…

在这里插入图片描述
3. 脚本文本
testlist.pl, 即运行的脚本
示例如下：

#!usr/bin/perl -w
###########################################################################################
## Function: The script is used to collect testcase names
###########################################################################################
# import lib
use Cwd 'abs_path';
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use strict;
#define parameters for saving cases
my $testcase;
my @testcase;
#define xls_parameter
my $xls_name;
my $sheet;
my