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

---

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

---

1. 目标
   A：按行读取文件；
   B：获取cases的名字，并写入到excel中；
   C: 统计cases的总数，并写入到excel中；
2. 输入文件
   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