VPF::из mysql в csv - Форум программистов

Suic2

Дата 17.7.2012, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 23.5.2012

Репутация: нет
Всего: нет

Простая программа, делает запрос к mysql и выводит в csv файл

Код


#!/usr/bin/perl

use Text::CSV_XS;
use DBI;
use Time::Local;

my $d_s = 'DBI:mysql:база:localhost';
my $dbh = DBI->connect($d_s, "пользователь", "пароль") or die "Can't connect to $d_s: $DBI::errstr";
my $sth = $dbh->prepare(qq{SELECT users.id, users.ip, users.fio FROM users});
$sth->execute();
$name=timelocal(localtime()).$$;
open $fh, ">>", "/tmp/$name.csv" or die "$name.csv: $!";
my $csv = Text::CSV_XS->new ({binary=>1,eol=>"\n",sep_char=>";"});
while($s=$sth->fetchrow_arrayref())
{
    $csv->print ($fh, $s);
}
close $fh;
$sth->finish();
$dbh->disconnect;

получается такой файл

Код


id;ip;"ФИО"
id;ip;"ФИО"
.............
id;ip;"ФИО"

проблемма заключается в том, что когда в базе не указан ip, то получается так:

Код


id;ip;"ФИО"
id;"ФИО"

а хотелось бы так:

Код


id;ip;"ФИО"
id;;"ФИО" или id;"";"ФИО"

что исправить?

Это сообщение отредактировал(а) Suic2 - 17.7.2012, 15:10

vadiml

Дата 17.7.2012, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 310
Регистрация: 27.7.2007

Репутация: 5
Всего: 7

А зачем для этого использовать perl?

mysql и сам умеет делать csv файлы, и Вашей ошибки там не будет.

$mysql -h хост -u юзер -pпароль база -e 'запрос' > ответ.csv

Разделители можно задать стандартными для mysq средствами.

Suic2

Дата 17.7.2012, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 23.5.2012

Репутация: нет
Всего: нет

вопрос был не в выборе средства. по моему, конкретный вопрос требует конкретного ответа
естественно есть много способов вывода в файл из бд, но я не просто так выбрал perl от нечего делать

sir_nuf_nuf

Дата 17.7.2012, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 14
Всего: 31

Цитата(vadiml @ 17.7.2012, 15:44

)

А зачем для этого использовать perl?

Для добра же!

--------------------

Pfailed

Дата 17.7.2012, 17:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39

Насколько помню так происходит когда переменная = undef.
Замените undef на пустые строки. Ну и параметр always_quote в конструкторе $csv, возможно, нужно установить.

Код


...
$csv->print ($fh, [map { $_ // '' } @$s]);
...

--------------------

I'm on CPAN
I'm on github

Suic2

Дата 18.7.2012, 12:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 23.5.2012

Репутация: нет
Всего: нет

Спасибо, работает smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »