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(<FH>){

#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(<FH_B>){

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(<FH_CONFIG>) {

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

}