Perl从文本文件中按关键字提取数据

#!/usr/bin/perl -w


#require "convertword.pl";
use strict;
use warnings;
use Cwd;
use File::Spec::Functions qw( catfile );




# 转换格式
print "转换Word为文本文件...\n";
#&convertWord();
`perl convertword.pl`;


# 关键字设置


#my @KEY_WORD = ("申请部门","申请时间","申请人");
my @KEY_WORD = ();


# 获取当前目录的完整路径信息。
my $currentDir = getcwd;
print "当前目录: ".$currentDir."\n";


# 配置文件
my $cfgFile = "$currentDir/关键字.txt";


# 设置源文件夹
my $SRC_PATH = "$currentDir/TXT/";


# 设置临时文件夹
my $TMP_PATH = "$currentDir/Temp/";


# 设置目标文件夹
my $DEST_PATH="$currentDir/Result/";


# 如果目标文件夹不存在，则创建文件夹
mkdir( $DEST_PATH, 0777 ) if ( !-d $DEST_PATH);


opendir TEMP, ${SRC_PATH} or die "无法打开".$SRC_PATH."目录，请检查一下目录是否存在！";


@KEY_WORD=&readConfig();


# 读取目录下所有文件
my @filelist = readdir TEMP; 


my $srcFile='';
my $srcFileBackup='';
my $destFile=$DEST_PATH.'Result.csv';


my $dateflag=0;
my $ownerflag=0;


my $date='';
my $owner='';


my $count=0;
my $flag=0;


my $line='';


# 如果目标文件夹不存在，则创建文件夹
mkdir($DEST_PATH, 0777) if(! -d $DEST_PATH);