代码之家 › 专栏 › 技术社区 › DKru

对多列文件中的每一列进行相同的编辑

fixed-width multiple-columns csv perl

-1

DKru · 技术社区 · 9 年前

我有多个具有不同列数的CSV文件,需要将其重新格式化为固定格式的文本文件。

以下是我目前的代码:

use strict;
use warnings;

my $input = 'FILENAME.csv';
my $output = 'FILENAME.txt';

open (INPUT, "<", "$input_file") or die "\n !! Cannot open $input_file: $!";
open (OUTPUT, ">>", "$output_file") or die "\n !! Cannot create $output_file: $!";

while ( <INPUT> ) {

    my $line = $_;
    $line =~ s/\s*$//g;

    my ( $a, $b, $c, $d, $e, $f, $g, $h, $i, $j ) = split('\,', $line);

    $a = sprintf '%10s', $a;
    $b = sprintf '%10s', $b;
    $c = sprintf '%10s', $c;
    $d = sprintf '%10s', $d;
    $e = sprintf '%10s', $e;
    $f = sprintf '%10s', $f;
    $g = sprintf '%10s', $g;
    $h = sprintf '%10s', $h;
    $i = sprintf '%10s', $i;
    $j = sprintf '%10s', $j;

    print OUTPUT "$a$b$c$d$e$f$g$h$i$j\n";

}

close INPUT;
close OUTPUT;

exit;

2 回复 | 直到 9 年前

Borodin 9 年前

你的意思是这样的吗?

perl -aF/,/ -lne 'print map sprintf("%10s", $_), @F' FILENAME.csv > FILENAME.txt

-1

Sobrique 9 年前

任何时候使用序列变量时,都应该使用数组。在这种情况下,由于你只使用了一次数组,你甚至不需要做更多的事情,只是暂时保留它。

#!/usr/bin/env perl

use strict;
use warnings;

my $input_file  = 'FILENAME.csv';
my $output_file = 'FILENAME.txt';

my $format = '%10s';

open( my $input_fh, "<", $input_file ) or die "\n !! Cannot open $input_file: $!";
open( my $output_fh, ">>", $output_file ) or die "\n !! Cannot create $output_file: $!";

while (<$input_fh>) {
   print {$output_fh} join "", map { sprintf $format, $_ } split /,/;
}

close $input_fh;
close $output_fh;

exit;

推荐文章

SD_ · 使用CLI将由文件分隔符控制字符(FS/ASCII28/UTF-8 0x1C)分隔的csv文件读取到duckdb中

1 年前

ViSa · 如何在python中分隔存储在变量中的文本以创建数据帧?

2 年前

S K · 需要在Powershell中使用2个变量为CSV文件创建foreach循环

2 年前

Kavya shree · 将TSV文件数据转换为可推送到数据库的数据帧

2 年前

Joan Lopez · 从csv中提取的数据获得平均值

2 年前

Chinmaya Tewari · 创建新csv文件时权限被拒绝

2 年前

Parker Clark · 通过Bash操作csv中的特定列?

2 年前

Rasec Malkic · 如何根据第1列和第3列中的条件删除重复项?

2 年前

James Black · 如何基于列删除CSV文件中重复的行

2 年前

James Black · 将json文件转换为具有更多列的csv文件-Python

2 年前