Dotaz: Perl parser cvs do sql

[Ivan]

 

Zdavim, neviete mi niekto pomoc surne zhanam nejaky Perl Parser nasiel som iba PHP parser ktory mi je v mojom pripade zbytocny uz som bezradny... Ide hlavne  aby dokazal velke cvs-ko vyparsovat do sql-ka co je samozrejme...

priklad subor cvs obsahuje: data.cvs

ID|MENO|VYSKA|VAHA
1;janko;180;75
2;ferko;195;90

a potrebujem to dostat do tvaru

insert into zoznam values('1','janko','180','75' );
insert into zoznam values('2','ferko','195','90' );

Ale CVS-kovy subor ma asi 8MB.

Velmi pekne dakujem.

Odpovědi

[tom]

Nemyslite spis csv - comma separated values? Jinak parser mi prijde jako kanon na vrabce, split a join vam nestaci? perl -lnaF\; -e "print \"insert into zoznam values('\", join(\"','\",@F), \"')\\;\";"

[Ash]

"Někdy to opravdu nestčí "; že...

[tom]

V tom formatu se maji matchovat uvozovky nebo narazite na neco jineho? Ja myslel, ze oddelovaci znak se vzdy voli tak, aby se nevyskytoval v datech.

[Ash]

Vždy právě ne, a zrovna u CSV to neplatí.

[tom]

Tak pak staci jen trochu upravit, podle ceho se to rozseka: perl -na -e 's/(?:"(.*?)"|(.*?))[;\n]/$1$2\000/g; print "insert into zoznam values'"('\", join(\"','\", split /\\000/), \"'"');\n";'

[Ash]

"Myslíte?"""""

[myšák]

A můžu se zeptat proč tahat na něco takového PERL parser, když na to stačí např. AWK?

#!/usr/bin/awk -f
BEGIN { FS=";" };
{
printf("insert into zoznam values('%s','%s','%s','%s');\n", $1, $2, $3, $4);
}

[Ash]

A data

echo; ahoj; "světe; exit"; "vám to rozparsuje jistě také správně, že ;)"

[myšák]

To samozřejmě ne ... nicméně pro výše uvedené zadání to bohatě stačí

[Ash]

Jasně, promiň, četl jsem jen první odstavec zadání :D I když ty "janko,ferko" by mohly sváděly k domněnce že to může být jen ukázkové zjednodušení.

[maxik]

Zkuste priste trochu hledat! Uplne, ale NAPROSTO stejny problem a taky pomoci perlu se resi tady:

http://www.linuxsoft.cz/article.php?id_article=1061

[Ivan]

Nasiel som len nieco taketo: ale odeluje mi to len slova odelovane ciarkou "," skusal som to nejako upravit ale je to marne nevedeli by ste s tym niekto pohnut? aby my to bralo oddelene data bodko-ciarkou ";"?

#!/usr/bin/perl

# PERL MODULE
use Text::CSV::Simple;
   
# script

my $tplSQL = "INSERT INTO country (short_code, name) VALUES (\"%s\",\"%s\");\n";
my $csvFile="codes.csv";

my $parser = Text::CSV::Simple->new();
my @data = $parser->read_file($csvFile);

foreach(@data) {
        printf $tplSQL, @$_[1], @$_[2];
};

[Jendа]

Udělat z toho comma separated values? tr ";" ","

[Ivan]

Do perlu sa velmi nerozumiem nemohol by si to uviest na priklade?

[Jendа]

To není perl - cat tvuj_soubor | tr ";" "," > soubor.csv. A ten perlový skript pustíš až na ten soubor.csv.

[Ladicek]

Já bych spíš šel do dokumentace, a udělal my $parser = Text::CSV::Simple->new({ sep_char => ';' });. Myslím, že to bude o něco spolehlivější