从多个CSV文件中提取几种模式

debugcn 发表于 Dev

约翰·吕

我是编程新手，我想为perl中的以下函数编写代码。

在每个行如下所示的csv文件中，我有几个CSV文件（1.csv，2.csv，3.csv，4.csv ...）。

<time, id1, id2, id3, filename> :

202008110100,10819066580072,2147858602,,Afile.txt
202008110110,12819066589761,,AC987678,Bfile.txt
202008110120,,8927489178,AC398761,Bfile.txt
202008110130,29274125780232,3829271910,AC119651,Cfile.txt
.
.
.
#id1,id2,id3 might be blank sometimes.

我有这样的输入：

<starttime,endtime,id1,id2,id3>:
#id1,id2,id3 might be **0**
eg):202008110105,202008110115,0,2147858602,0

如果id1，id2，id3= 0，忽略该值，并且只有匹配非零id。

并time在starttime和中提取is endtime。

我期望这样的匹配输出：

1.csv:Afile.txt

以下是我写的内容，但似乎有问题...有人可以帮助我吗？

my $dir = <C:/Windows/Users/USER/Documents/Perlprogram>;
@files = ("1.csv","2.csv, 3.csv, 4.csv");

foreach $file (@files) {        
print "$file\n" if -f $file;
open(IN, "<./$file") or die("Error");
@before = <IN>;
close(IN);

@after = grep(/$greplist/, @before);
foreach $after (@after) {
print "$after\n";
}
sub after {
    $time = $_[6];
    if ($time >= $starttime and $time <=$endtime){
        open(OUT, ">>./search_result.txt");
        print($file,$_[4]);
        print(OUT $_[4]);
        close(OUT);
    }
}

阿玛利

似乎有问题...

@files = ("1.csv","2.csv, 3.csv, 4.csv");

除语法外，第一个文件名之后的文件名未正确引用。

正如北极熊指出的那样，$greplist没有定义。假设将其设置为您所谓的输入，我们可以使用

($starttime,$endtime,$id1,$id2,$id3) = split ',', $greplist;

该程序的其余部分有些不一致。你可以@before = <IN>;用

    while (<IN>)
    {
        @_ = split ','; # split the CSV line to the values
        print $_[4] if  !$id1 || $_[1] == $id1
                    and !$id2 || $_[2] == $id2
                    and !$id3 || $_[3] == $id3
                    and $starttime <= $_[0]
                    and $_[0] <= $endtime
    }

并删除foreach $file循环的其他内容。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。