abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

    včera 12:33 | Komunita

    Alex Ellis upozornil 15. března, že firma Docker se chystala zrušit bezplatný hosting open-source projektů na Docker Hubu. Po vlně odporu se představitelé firmy omluvili a posléze byl původní záměr odvolán.

    Fluttershy, yay! | Komentářů: 0
    včera 07:00 | IT novinky

    Ve věku 94 let zemřel Gordon Moore, mj. spoluzakladatel společnosti Intel a autor Moorova zákona.

    Ladislav Hagara | Komentářů: 1
    24.3. 17:11 | Nová verze

    Mercurial (Wikipedie), software pro SCM (Source Code Management), byl vydán ve verzi 6.4. Přehled novinek v poznámkách k vydání. Ve dnech 5. až 7. dubna proběhne konference Mercurial Paris.

    Ladislav Hagara | Komentářů: 0
    24.3. 11:55 | IT novinky

    Byly rozdány Ceny Velkého bratra (Big Brother Awards) za rok 2022 pro největší slídily pořádané nevládní organizací Iuridicum Remedium. Dlouhodobý slídil: Microsoft. Firemní slídil: Seznam. Úřední slídil: Nejvyšší správní soud. Výrok Velkého bratra: Marian Jurečka. Pozitivní cena: NoLog.

    Ladislav Hagara | Komentářů: 10
    24.3. 11:11 | Zajímavý projekt

    Byla představena online vzdělávací platforma Ada Computer Science pro učitele, studenty a kohokoli, kdo se zajímá o informatiku. Stojí za ní Raspberry Pi Foundation a Univerzita v Cambridgi.

    Ladislav Hagara | Komentářů: 0
    24.3. 09:11 | Bezpečnostní upozornění

    GitHub má nový RSA SSH klíč. Předchozí soukromý klíč byl krátce vystaven na GitHubu.

    Ladislav Hagara | Komentářů: 0
    24.3. 08:55 | IT novinky

    Společnost Framework Computer představila (YouTube) nové modulární notebooky: Laptop 13 s Intel Core nebo AMD Ryzen a Laptop 16 (YouTube).

    Ladislav Hagara | Komentářů: 0
    23.3. 19:33 | Nová verze

    Bylo vydáno Ubuntu 20.04.6 LTS, tj. šesté opravné vydání Ubuntu 20.04 LTS s kódovým názvem Focal Fossa. Přehled novinek v poznámkách k vydání a v přehledu změn.

    Ladislav Hagara | Komentářů: 2
    23.3. 14:44 | IT novinky

    Připojit neznámý USB flash disk do počítače může být nebezpečné. Dokonce může jít i o život. Někdo rozeslal ekvádorským novinářům USB flash disky, které po připojení do počítače explodují [BBC, Twitter].

    Ladislav Hagara | Komentářů: 2
    23.3. 13:33 | Nová verze

    Byla vydána nová verze 7.4 open source virtualizační platformy Proxmox VE (Proxmox Virtual Environment, Wikipedie) založené na Debianu. Přehled novinek v poznámkách k vydání a v informačním videu.

    Ladislav Hagara | Komentářů: 0
    Používáte WSL (Windows Subsystem for Linux)?
     (74%)
     (12%)
     (4%)
     (10%)
    Celkem 321 hlasů
     Komentářů: 4, poslední 24.3. 06:42
    Rozcestník


    Dotaz: Perl parser cvs do sql

    27.2.2009 17:48 Ivan
    Perl parser cvs do sql
    Přečteno: 465×

     

    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

    27.2.2009 18:57 tom
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    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), \"')\\;\";"
    28.2.2009 05:36 Ash | skóre: 53
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    "Někdy to opravdu nestčí ;-)"; že...
    28.2.2009 12:19 tom
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    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.
    28.2.2009 12:57 Ash | skóre: 53
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    Vždy právě ne, a zrovna u CSV to neplatí.
    28.2.2009 14:19 tom
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    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";'
    28.2.2009 16:45 Ash | skóre: 53
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    "Myslíte?"";-)"""
    27.2.2009 19:00 myšák | skóre: 26 | blog: EmentuX | Ostrava
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql

    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);
    }
    
    Je nesmírně těžké být idiotem, konkurence je obrovská...
    28.2.2009 05:35 Ash | skóre: 53
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    A data

    echo; ahoj; "světe; exit"; "vám to rozparsuje jistě také správně, že ;)"
    28.2.2009 16:03 myšák | skóre: 26 | blog: EmentuX | Ostrava
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    To samozřejmě ne ... nicméně pro výše uvedené zadání to bohatě stačí ;-)
    Je nesmírně těžké být idiotem, konkurence je obrovská...
    28.2.2009 16:47 Ash | skóre: 53
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    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í.
    27.2.2009 19:47 maxik
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    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
    28.2.2009 16:53 Ivan
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql

    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а avatar 28.2.2009 18:26 Jendа | skóre: 78 | blog: Jenda | JO70FB
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    Udělat z toho comma separated values? tr ";" ","
    28.2.2009 18:30 Ivan
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql

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

    Jendа avatar 28.2.2009 18:37 Jendа | skóre: 78 | blog: Jenda | JO70FB
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    To není perl - cat tvuj_soubor | tr ";" "," > soubor.csv. A ten perlový skript pustíš až na ten soubor.csv.
    28.2.2009 19:15 Ladicek | skóre: 28 | blog: variace | Havlíčkův brod
    Rozbalit Rozbalit vše Re: Perl parser cvs do sql
    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ší ;-)
    Ještě na tom nejsem tak špatně, abych četl Viewegha.

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.