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í
×
    dnes 04:33 | IT novinky

    Společnost Teufel nedávno představila svůj první open source Bluetooth reproduktor MYND.

    Ladislav Hagara | Komentářů: 0
    včera 20:00 | Nová verze

    Byla vydána verze 4.2 multiplatformního integrovaného vývojového prostředí (IDE) pro rychlý vývoj aplikaci (RAD) ve Free Pascalu Lazarus (Wikipedie). Využíván je Free Pascal Compiler (FPC) 3.2.2.

    Ladislav Hagara | Komentářů: 0
    včera 19:33 | IT novinky

    Anton Carniaux, právní zástupce Microsoft France, pod přísahou: Microsoft nemůže garantovat, že data z EU nepředá do USA bez EU souhlasu, musí dodržovat americké zákony.

    Ladislav Hagara | Komentářů: 9
    včera 15:33 | Nová verze

    Byl vydán Mozilla Firefox 141.0. Přehled novinek v poznámkách k vydání a poznámkách k vydání pro vývojáře. Lokální AI umí uspořádat podobné panely do skupin. Firefox na Linuxu využívá méně paměti. Řešeny jsou rovněž bezpečnostní chyby. Nový Firefox 141 je již k dispozici také na Flathubu a Snapcraftu.

    Ladislav Hagara | Komentářů: 0
    21.7. 22:44 | Bezpečnostní upozornění

    NÚKIB upozorňuje na kritickou zranitelnost v SharePointu. Jedná se o kritickou zranitelnost typu RCE (remote code execution) – CVE-2025-53770, která umožňuje neautentizovaný vzdálený přístup a spuštění kódu, což může vést k úplnému převzetí kontroly nad serverem. Zranitelné verze jsou pouze on-premise verze a to konkrétně SharePoint Server 2016, 2019 a Subscription Edition. SharePoint Online (Microsoft 365) není touto zranitelností ohrožen.

    Ladislav Hagara | Komentářů: 4
    21.7. 21:00 | IT novinky

    Společnost Valve zpřísnila pravidla pro obsah, který je možné distribuovat ve službě Steam. Současně řadu her ze Steamu odstranila. V zásadách a pravidlech přibylo omezení 15: Obsah, který by mohl porušovat pravidla a normy stanovené zpracovateli plateb a souvisejícími sítěmi platebních karet a bankami nebo poskytovateli připojení k internetu. Sem spadají zejména určité druhy obsahu pouze pro dospělé.

    Ladislav Hagara | Komentářů: 0
    21.7. 13:33 | Komunita

    Dle analytics.usa.gov je za posledních 90 dnů 6,2 % přístupů k webových stránkám a aplikacím federální vlády Spojených států z Linuxu.

    Ladislav Hagara | Komentářů: 0
    20.7. 17:44 | Zajímavý článek

    Jak si zobrazit pomocí Chrome a na Chromiu založených webových prohlížečích stránky s neplatným certifikátem? Stačí napsat thisisunsafe.

    Ladislav Hagara | Komentářů: 3
    20.7. 00:33 | Bezpečnostní upozornění

    V repozitáři AUR (Arch User Repository) linuxové distribuce Arch Linux byly nalezeny a odstraněny tři balíčky s malwarem. Jedná se o librewolf-fix-bin, firefox-patch-bin a zen-browser-patched-bin.

    Ladislav Hagara | Komentářů: 15
    20.7. 00:22 | Komunita

    Dle plánu by Debian 13 s kódovým názvem Trixie měl vyjít v sobotu 9. srpna.

    Ladislav Hagara | Komentářů: 1
    Kolik tabů máte standardně otevřeno ve web prohlížeči?
     (28%)
     (24%)
     (4%)
     (6%)
     (5%)
     (2%)
     (4%)
     (28%)
    Celkem 83 hlasů
     Komentářů: 11, poslední včera 20:35
    Rozcestník

    Dotaz: Perl parser cvs do sql

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

     

    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.