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

最新推荐文章于 2024-08-08 14:14:45 发布

rockiecxh

最新推荐文章于 2024-08-08 14:14:45 发布

阅读量9.7k

点赞数 3

分类专栏： Perl 文章标签： Perl

本文链接：https://blog.csdn.net/rockiecxh/article/details/20481973

版权

这是一个Perl脚本，用于从TXT文件中提取含有特定关键字的数据，并将结果保存到CSV文件中。脚本首先转换Word文档为文本格式，然后读取配置文件中的关键字，遍历文件夹中的TXT文件，找到匹配关键字的行并提取相关值，最后将结果写入CSV文件。

摘要由CSDN通过智能技术生成

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