Get test cases' title

测试工作中文本处理是一项非常繁琐的事情，利用Perl可以事半功倍。下面的代码将从杂乱的文本文件tcs.TXT中提取测试用例名称，并保存到testcase.txt。详见附件。

use warnings;
my $filename = "tcs.TXT";
my $exportFile = "testcase.txt";
open FILE, $filename
 or die "Can't open $filename: $!";
open TC, ">$exportFile"
 or die "Can't create $exportFile: $!";

while(<FILE>){
 chomp;
 if (/TEST CASE: (.*)     /){
  chomp ($1);
  print TC $1;
 }
 if (/DEVICE UNDER TEST: (.*)\s+/){
  chomp ($1);
  print TC "_$1\n";
 }
}

20081112102426961

20081112102417258