#!/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

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


rmdir ("$del_dir"); 
}