从report中抓取结果，并输出报告------perl实现

use 5.010;
open DATA1, '<', './file';
open DATA2, '>', './file_change';
state $path;
while(<DATA1>) {
  if(/\S/) {
    if(/:/) {
      $path = "$_";
      chomp $path;
      chop $path;
    }else {
      $file = $path;
      $file .= "/";
      $file .= "$_";
      print DATA2 $file;
    }
  }
}
close(DATA1);
close(DATA2);

open DATA3, '<', './file_change';
open DATA5, '>', './result';
while(<DATA3>) {
  $filepath = "$_";
  chomp($filepath);
  #chmop $filepath;
  #print $_;
  open DATA4, '<', $filepath;
  state $startpoint;
  state $endpoint;
  state $pin;
  while(<DATA4>) {
 #   if(/slack\s\