Я решаю это как вопрос Informix, а не как вопрос Awk.
Используя стандартные команды Informix SQL, вы можете создать внешняя таблица в формате CSV, но вы должны знать, что существует недокументированный формат "DB2", который вы можете использовать:
DROP TABLE IF EXISTS data_table;
CREATE TABLE data_table
(
part_no INTEGER,
date_part DATETIME YEAR TO SECOND,
history_code VARCHAR(4),
user_id VARCHAR(32),
other_information VARCHAR(64),
pool_no INTEGER
);
INSERT INTO data_table VALUES(100000001, "2010-10-13 12:12:12", "ABCD", "rsmith", "note: Monday, December 10", 101011777);
INSERT INTO data_table VALUES(100000002, "2010-10-21 12:12:12", "GHIJ", "jsmith", NULL, 101011888);
INSERT INTO data_table VALUES(100000002, "2010-10-27 12:12:12", "LMNO", "fevers", "[Mail]", 101011999);
INSERT INTO data_table VALUES(100000003, "2010-11-13 12:12:12", "QXRT", "sjohnson", "note: Tuesday, August 31", 101011111);
DROP TABLE IF EXISTS csv_data;
CREATE EXTERNAL TABLE csv_data
(
part_no INTEGER,
date_part DATETIME YEAR TO SECOND,
history_code VARCHAR(4),
user_id VARCHAR(32),
other_information VARCHAR(64),
pool_no INTEGER
)
USING (FORMAT "DB2", DELIMITER ",", DATAFILES("DISK:/tmp/data/csv_data.csv"));
INSERT INTO csv_data
SELECT part_no, date_part, history_code, user_id, other_information, pool_no
FROM data_table;
Содержимое /tmp/data/csv_data.csv тогда выглядит так:
100000001,2010-10-13 12:12:12,"ABCD","rsmith","note: Monday, December 10",101011777
100000002,2010-10-21 12:12:12,"GHIJ","jsmith",,101011888
100000002,2010-10-27 12:12:12,"LMNO","fevers","[Mail]",101011999
100000003,2010-11-13 12:12:12,"QXRT","sjohnson","note: Tuesday, August 31",101011111
Формат UNLOAD преобразован в CSV
Выходные данные DB-Access по умолчанию не поддаются разбору на практике. Это может быть выполнимо в некоторых ограниченных случаях, таких как тот, который вы показываете, но вам лучше использовать формат UNLOAD вместо вывода командной строки, а затем преобразовать формат данных UNLOAD в CSV.
У меня есть Perl-скрипт, который это делает. Он использует модуль Perl Text::CSV для обработки форматирования CSV. Он не претендует на то, чтобы обрабатывать первую строку с именами столбцов; их нет в файле формата UNLOAD.
#!/usr/bin/env perl
#
# @(#)$Id: unl2csv.pl,v 1.3 2018/06/29 20:36:58 jleffler Exp $
#
# Convert Informix UNLOAD format to CSV
use strict;
use warnings;
use Text::CSV;
use IO::Wrap;
my $csv = new Text::CSV({ binary => 1 }) or die "Failed to create CSV handle ($!)";
my $dlm = defined $ENV{DBDELIMITER} ? $ENV{DBDELIMITER} : "|";
my $out = wraphandle(\*STDOUT);
my $rgx = qr/((?:[^$dlm]|(?:\\.))*)$dlm/sm;
# $csv->eol("\r\n");
while (my $line = <>)
{
print "1: $line";
MultiLine:
while ($line eq "\\\n" || $line =~ m/[^\\](?:\\\\)*\\$/)
{
my $extra = <>;
last MultiLine unless defined $extra;
$line .= $extra;
}
my @fields = split_unload($line);
$csv->print($out, \@fields);
}
sub split_unload
{
my($line) = @_;
my @fields;
print "$line";
while ($line =~ $rgx)
{
printf "%d: %s\n", scalar(@fields), $1;
push @fields, $1;
}
return @fields;
}
__END__
=head1 NAME
unl2csv - Convert Informix UNLOAD to CSV format
=head1 SYNOPSIS
unl2csv [file ...]
=head1 DESCRIPTION
The unl2csv program converts a file from Informix UNLOAD file format to
the corresponding CSV (comma separated values) format.
The input delimiter is determined by the environment variable
DBDELIMITER, and defaults to the pipe symbol "|".
It is not assumed that each input line is terminated with a delimiter
(there are two variants of the UNLOAD format, one with and one without
the final delimiter).
=head1 EXAMPLES
Input:
10|12|excessive|cost \|of, living|
20|40|bou\\ncing tigger|grrrrrrrr|
Output:
10,12,"excessive","cost |of, living"
20,40,"bou\ncing tigger",grrrrrrrr
=head1 PRE-REQUISITES
Text::CSV_XS
=head1 AUTHOR
Jonathan Leffler <[email protected]>
=cut
Вы должны использовать такую команду (через DB-Access):
UNLOAD TO "datatable.unl" SELECT * FROM DataTable;
а затем запустите:
perl unl2csv datatable.unl > datatable.csv
программа SQLCMD
Если у вас есть моя программа SQLCMD (доступна на веб-сайте IIUG в репозитории программного обеспечения — и совершенно не связанный с johnny-come-lately от Microsoft с тем же именем), то вы можете выгрузить прямо в формат CSV:
sqlcmd -d database -F csv -e 'unload to "data_table.csv" select * from data_table'
person
Jonathan Leffler
schedule
29.06.2018
2010-10-13на10/13/2010? Кроме того, внутри полей есть запятые, но в предлагаемом выводе не используется соглашение о двойных кавычках полей, и поэтому он неоднозначен. - person Benjamin W. schedule 29.06.2018