2

私の入力は次のよう"$130.00","$2,200.00","$1,230.63"になります。私の質問は、コンマ区切り文字を|に変更するにはどうすればよいかということです。実際の入力のコンマを削除せずに区切り文字。この入力を明確にするために、40列9500行のcsvファイルにあります。出力を次のように見せたい

"$130.00"|"$2,200.00"|"$1,230.63"
4

4 に答える 4

1

ファイルに他のコンマがない場合は、次を使用できます。

sed "s/,/|/g" filename > outputfilename

カンマが""sの間にある場合は、次のようになります。

sed 's/","/"|"/g' filename > outputfilename

このように動作します：

sh-3.1$ echo '"123,456","123,454"' |sed 's/","/"|"/g'
"123,456"|"123,454"

入力のよう","に引用符で囲まれた式を使用でき、それを変更したくない場合は、もう少し複雑になると思います:)

専用モジュールを使用したPythonを使用した別のソリューション。おそらく、安全性と必要なコードの点で最適です。

import csv
inFilename = 'input.csv'
outFilename = 'output.csv'

r = csv.reader(open(inFilename))
w = csv.writer(open(outFilename,'w'), delimiter='|', quotechar='"', quoting=csv.QUOTE_NONNUMERIC)
w.writerows(list(r))

安全でシンプル。他のフォーマットのためにこれを簡単に微調整することができます、パラメータはかなり簡単です。

于 2010-12-04T19:16:42.643 に答える
1

これを確実に行うには、状態を使用して、文字列内にいるかどうかを追跡する必要があります。次のperlスクリプトが機能するはずです。

#!/usr/bin/perl -w
use strict;
use warnings;

my $state_outside_string = 0;
my $state_inside_string  = 1;

my $state = $state_outside_string;

while (my $line = <>) {
    my @chars = split(//,$line);
    foreach my $char (@chars) {
        if ($char eq '"') {
            if ($state == $state_outside_string) {
                $state = $state_inside_string;
            } else {
                $state = $state_outside_string;
            }
        } elsif ($char eq ',') {
            if ($state == $state_outside_string) {
                print '|';
                next;
            }
        }
        print $char;
    }
}
于 2010-12-04T20:11:54.500 に答える
1

「シェルにPerlスクリプトを実行させる」ことは重要ですか？

もしそうなら、私はPerlのText::CSVモジュールを見るでしょう。2つのCSVハンドルがあります。1つはsep_char属性がコンマ（標準、デフォルト）として設定されたファイルを読み取るためのもので、もう1つはsep_char属性がパイプとして設定されたファイルを書き込むためのものです。

作業スクリプト

#!/usr/bin/env perl

use strict;
use warnings;
use Text::CSV;

die "Usage: $0 in_file out_file\n" unless scalar @ARGV == 2;
my $in  = Text::CSV->new({ binary => 1, blank_is_undef => 1 })
    or die "Horribly";
my $out = Text::CSV->new({ binary => 1, sep_char => '|',
                           always_quote => 1, eol => "\n" })
    or die "Horribly";
open my $fh_in,  '<', $ARGV[0]
    or die "Failed to open $ARGV[0] for reading ($!)";
open my $fh_out, '>', $ARGV[1]
    or die "Failed to open $ARGV[1] for writing ($!)";

while (my $fields  = $in->getline($fh_in))
{
    $out->print($fh_out, $fields);
}

close $fh_in  or die "Failed to close input ($!)";
close $fh_out or die "Failed to close output ($!)";

サンプル入力

"$130.00","$2,200.00","$1,230.63"
"EUR1.300,00",,
"GBP1,300.00","$2,200.00",

サンプル出力

"$130.00"|"$2,200.00"|"$1,230.63"
"EUR1.300,00"||
"GBP1,300.00"|"$2,200.00"|
于 2010-12-04T20:39:04.357 に答える
0

RubyのCSVライブラリは1.9でFasterCSVに置き換えられました。fastercsv以前のバージョンでは、 gemを使用できます。

#!/usr/bin/env ruby

require "csv"

output = CSV.read("test.csv").map do |row|
  row.to_csv(:col_sep => "|")
end
puts output
于 2012-07-18T17:29:16.693 に答える