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

将文件数据转换为字符串perl

  •  -2
  • Developer  · 技术社区  · 7 年前

    我有一个文件,其中逗号分隔的数据如下所示为文件格式:

    560052400,
    560052400,
    560052400,
    ABCF,
    DEF,
    FFRRR,
    560052431,
    

    现在我要做的是将这些数据转换成一个字符串,然后写进一个文件,新的文件格式如下:

    560052400, 560052400, 560052400, ABCF, DEF, FFRRR, 560052431,
    

    如何在Perl中实现这一点

    1 回复  |  直到 7 年前
        1
  •  1
  •   Silvio Mayolo    7 年前

    我不知道你所说的“将数据转换成字符串”是什么意思,但是要删除换行符,你所要做的就是 chomp 输入。

    perl -pe 'chomp' input_file >output_file
    

    如果您喜欢逗号后面的空格,那么简单的regex替换就可以了。

    perl -pe 's/\n/ /' input_file >output_file
    

    要将这些脚本作为大型脚本的一部分执行,只需将其显式包装在循环中。

    open(my $input, '<', 'input_filename');
    open(my $output, '>', 'output_filename');
    while (<$input>) {
      s/\n/ /; # Or whatever work you want to do to each line of the file
      print $output $_;
    }
    close $output;
    close $input;