#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);