Question

我有一个CSV文件列表我需要在每个上添加空列数，我需要以线性方式在每个文件上添加更改空列数，第一个文件我要插入0列，第二个文件我想插入1列，第三个文件我要插入2列，依此类推，该列应始终插入第二列。所有输入文件都是2列csv，如下例所示

档案1

2016/03/07 23:42:40.618 GMT,54.5
2016/03/07 23:43:40.618 GMT,54.0771
2016/03/07 23:44:40.618 GMT,53.9472
2016/03/07 23:45:40.618 GMT,54.2914

文件2

2016/03/07 23:42:40.618 GMT,49.013
2016/03/07 23:43:40.618 GMT,48.688
2016/03/07 23:44:40.618 GMT,47.7052 
2016/03/07 23:45:40.618 GMT,47.9057

file3的

2016/03/07 23:51:40.618 GMT,50.7858
2016/03/07 23:52:40.618 GMT,52.5267
2016/03/07 23:53:40.618 GMT,54.2865
2016/03/07 23:54:40.618 GMT,53.2014
2016/03/07 23:55:40.618 GMT,52.0538

等

我希望输出为

文件1

2016/03/07 23:42:40.618 GMT,54.5
2016/03/07 23:43:40.618 GMT,54.0771
2016/03/07 23:44:40.618 GMT,53.9472
2016/03/07 23:45:40.618 GMT,54.2914

文件2

2016/03/07 23:42:40.618 GMT,,49.013
2016/03/07 23:43:40.618 GMT,,48.6883
2016/03/07 23:44:40.618 GMT,,47.7052
2016/03/07 23:45:40.618 GMT,,47.9057

file3的

2016/03/07 23:51:40.618 GMT,,,50.7858
2016/03/07 23:52:40.618 GMT,,,52.5267
2016/03/07 23:53:40.618 GMT,,,54.2865
2016/03/07 23:54:40.618 GMT,,,53.2014
2016/03/07 23:55:40.618 GMT,,,52.0538

这是代码写的，但它为所有文件生成相同的输出，只添加了一个空列，可能我错过了一些愚蠢但我无法得到的东西

#!/usr/bin/perl
#use strict; 
#use diagnostics;
use CGI qw(:standard);
use Cwd;
use File::Find;
use File::Basename;
use Text::CSV;
use Text::Trim qw(trim);
use List::MoreUtils qw(uniq);
use Text::CSV_XS;
sub read_dir{
    my $ph=$_[0];
    my $match=$_[1];
    my @fl = ( );
    #print "<b> will open $ph";
    opendir DH, "$ph" or die "Cannot open Dir $ph: $!";
    #if ($match eq "") {
    @fl = grep !/^\.\.?$\.*/, sort(readdir DH) ;
    #}
    #else {
    #   my @fl = grep {$_ =~ $match} sort(readdir DH) ;
    #}
    closedir DH;
    if ($match ne "") {
        foreach my $file (@fl){
            if ($file =~$match) {
                push(@ffl,$file);
            }
        }
        return @ffl;
    }
    else {
        return @fl;
    }
}
@column=();
$loc="/myfolder";
$offset=1;
@sites=("dir1","dir2","dir3");
$s="subdir";
foreach $t (@sites) {
    $m=0; #number of empty column to insert in the file
    @list=read_dir("$loc/Statistics/$t/$s"); #directory that contain the csv file to manipulate
    foreach $l (@list) {
        #inser the empty column 
        open $in, "<","$loc/Statistics/$t/$s/$l" or die $!;
        open $out, ">>", "$loc/Statistics/$t/$s/$l.tmp" or die $!;
        foreach $r (0..$m) {
            print "<br> r is $r";
            open $out, ">>", "$loc/Statistics/$t/$s/$l.tmp" or die $!;
            while ($row = $ccsv->getline($in)) {
                splice @$row, $offset, 0, shift @column;
                $ccsv->print($out, $row);
            }
            close $out;
        }
        close $in;
        $m=$m+1;
    }
}

Answer 1

perl -i~ -pe '
    s/,/"," x (1 + $commas)/e;
    $commas++ if eof;
' -- file1 file2 file3

-p逐行读取文件，运行代码后打印出来
-i~更改输入文件＆＃34;就位＆＃34;，将备份保存为file1~等。
s/,/"," x $commas/e用替换部分中的评估代码替换逗号，即逗号对第一个文件重复一次，对第二个文件重复两次，依此类推
eof都会返回true，请参阅eof
$commas++为$ commas添加1

如何使用perl在csv文件中插入空列

1 个答案: