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


# 删除并新建临时目录
deldir($TMP_PATH) if( -d $TMP_PATH);
mkdir($TMP_PATH, 0777) if(! -d $TMP_PATH);


open(FH_PS, ">$destFile") or die "无法打开文件: $destFile <$!>";


# 输出文件头
my $header = (join ',', @KEY_WORD).",";
print FH_PS $header."\n";


foreach (@filelist) {


next if /^\./; 
$count=$count+1;
$srcFile=$SRC_PATH.$_;
$srcFileBackup=$TMP_PATH.$_.'.bkp';


    print "\n";


open(FH_B,">$srcFileBackup") or die "无法打开文件: $srcFileBackup";
open(FH,$srcFile) or die "无法打开文件: $srcFile";


while(){
#chomp;

s/\r/\|/g;
s/\n\n/\n/g;
#s/\n\n/\n/g;

print FH_B $_;
#s/提交人\r/\n提交人|/;
#s/\r提交单位\r/\n提交单位|/;

}
close(FH_B);
close(FH);

open(FH_B,$srcFileBackup) or die "无法打开文件: $srcFileBackup";


my $result='';
while(){
chomp;
$line = $_;
foreach my $key(@KEY_WORD){
# 根据关键字匹配相应的值
if($line=~/$key\|(.+?)\|(.+)/){
my $value = $1;

print $count.":".$key."|".$value."\n";
$result = $result.$value.",";

}
}
}


print FH_PS $result."\n";
close(FH_B);



}


close(FH_PS);
# 删除临时目录
deldir($TMP_PATH) if( -d $TMP_PATH);
print "All files are processed.\nTotal file processed: $count\n";




sub readConfig(){
# 读取配件文件 - START
open(FH_CONFIG, "<$cfgFile") || die "无法打开配置文件 : $cfgFile <$!>";
my @words=();
while() {
chomp;
next if /^#/;        # skip comments
next if /^\s*$/;     # skip empty lines

if (/^\s*(.+),(.+)\s*$/){
@words = split (/,/,$_);
last;
}

}
print "@words\n";


close FH_CONFIG;
trimList(@words);
# 读取配件文件 - END
}




# Perl trim function to remove whitespace from the start and end of the string
sub trim($)
{
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}


# Perl trim function to remove whitespace from the start and end of the string
sub trimList($)
{
my @myList = ();
foreach(@_){
push (@myList, trim($_));
}
return @myList;

}


sub deldir { 


my($del_dir)=$_[0]; 
my(@direct); 
my(@files); 
opendir (DIR2,"$del_dir"); 
my(@allfile)=readdir(DIR2); 
close (DIR2); 
foreach (@allfile){ 
if (-d "$del_dir/$_"){ 
push(@direct,"$_"); 
} 
else { 
push(@files,"$_"); 
} 
} 


my $files=@files; 
my $direct=@direct; 
if ($files ne "0"){ 
foreach (@files){ 
unlink("$del_dir/$_"); 
} 
} 
if ($direct ne "0"){ 
foreach (@direct){ 
&deldir("$del_dir/$_") if($_ ne "." && $_ ne ".."); 
} 
} 


rmdir ("$del_dir"); 
}