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 17:22 | Nová verze

Node.js Foundation, oficiální projekt konsorcia Linux Foundation, oznámila vydání verze 10.0.0 otevřeného multiplatformního prostředí pro vývoj a běh síťových aplikací napsaných v JavaScriptu Node.js (Wikipedie). Verze 10 se v říjnu stane novou aktivní LTS verzí. Podpora je plánována do dubna 2021.

Ladislav Hagara | Komentářů: 0
dnes 15:33 | Nová verze

Neal Cardwell ze společnosti Google oznámil zveřejnění verze 2.0 nástroje pro testování síťového stacku packetdrill. Jde o souhrnné vydání změn z interního vývoje od roku 2013.

Michal Kubeček | Komentářů: 0
dnes 13:22 | Zajímavý software

Microsoft na svém blogu oznámil, že správce knihoven pro C++ Vcpkg (VC++ Packaging Tool) lze nově používat také na Linuxu a macOS. Aktuálně je pro Linux k dispozici více než 350 knihoven [reddit].

Ladislav Hagara | Komentářů: 1
dnes 12:44 | Komunita

Byly zveřejněny exploity na Nintendo Switch a platformu Tegra X1: Fusée Gelée a ShofEL2. Jejich zneužití nelze zabránit softwarovou aktualizací. Na druhou stranu exploity umožní na Nintendo Switch snadno a rychle nainstalovat Linux, viz. ukázka na YouTube. Jenom je potřeba sáhnout na hardware.

Ladislav Hagara | Komentářů: 0
dnes 00:55 | Nová verze

Byla vydána verze 2.12.0 QEMU (Wikipedie). Přispělo 204 vývojářů. Provedeno bylo více než 2 700 commitů. Přehled úprav a nových vlastností v seznamu změn. Řešeny jsou také bezpečnostní chyby Meltdown a Spectre.

Ladislav Hagara | Komentářů: 5
dnes 00:33 | Komunita

Google zveřejnil seznam 1 264 studentů přijatých do letošního Google Summer of Code. Přehled projektů, studentů, 212 organizací a mentorů je k dispozici na stránkách GSoC.

Ladislav Hagara | Komentářů: 0
včera 23:55 | Nová verze

Oracle vydal verzi 1.0 univerzálního virtuálního stroje GraalVM, který umožňuje běh programů napsaných v jazycích založených na JVM, JavaScript, LLVM bitcode a experimentálně Ruby, R a Python.

razor | Komentářů: 1
včera 01:22 | Zajímavý článek

Julia Evans pomocí svých kreslených obrázků proniká do Linuxu a informačních technologií. Vedle ucelených zinů publikuje také jednotlivé kreslené obrázky (RSS).

Ladislav Hagara | Komentářů: 5
23.4. 13:22 | Zajímavý software

Jordi Sanfeliu vydal verzi 1.0.0 svého unixového jádra Fiwix (Wikipedie) určeného také pro výuku operačních systémů. Dle článku na OSNews na něm začal pracovat již před více než dvaceti lety. Zdrojové kódy jsou k dispozici na GitHubu pod licencí MIT. Stáhnout a vyzkoušet lze živou disketu nebo CD s GNU/Fiwixem.

Ladislav Hagara | Komentářů: 5
23.4. 06:00 | Nová verze

Byla vydána nová verze 10.7 open source alternativy GitHubu, tj. softwarového nástroje s webovým rozhraním umožňujícího spolupráci na zdrojových kódech, GitLab (Wikipedie). Představení nových vlastností v příspěvku na blogu. Vývojáři GitLabu zdůrazňují Web IDE (YouTube) a SAST (Static Application Security Testing) pro Go a C/C++.

Ladislav Hagara | Komentářů: 8
Používáte na serverech port knocking?
 (2%)
 (7%)
 (46%)
 (27%)
 (17%)
Celkem 372 hlasů
 Komentářů: 29, poslední 5.4. 12:25
    Rozcestník

    Dotaz: Perl - dbi a utf

    pek avatar 3.12.2009 16:29 pek | skóre: 20
    Perl - dbi a utf
    Přečteno: 583×
    Snažím se přesunout instalaci RT z MySQL na PostgreSQL pomocí perlového skriptu.
    #!/usr/bin/perl -w 
    
    use strict;
    use DBI;
    
    my $new_handle = DBI->connect("dbi:Pg:dbname=rtdb",'rtuser','****');
    
    $new_handle->{pg_enable_utf8}=1;
    $new_handle->do("SET client_encoding TO 'UTF8'");
    
    my $old_handle = DBI->connect("dbi:mysql:dbname=rtdb",'rtuser','****');
    $old_handle->do("SET NAMES 'utf8'");
    $old_handle->do("SET CHARACTER SET 'utf8'");
    
    my @tables = qw/Attachments/; 
    
    foreach my $table (@tables) {
      print "Migrating $table...\n";
      # Find all the rows in the table
      my $sth = $old_handle->prepare("SELECT * FROM $table") || die $@; 
      $sth->execute || die $@; 
      copy_table_rows($table, $sth);
    }
    
    sub copy_table_rows {
      my $table = shift;
      my $sth = shift;
    
      while (my $row = $sth->fetchrow_hashref) {
        my @keys;
        my @values;
        my @placeholders;
        foreach my $key (keys %$row) {
          push @keys, $key;
          push @values, $row->{$key};
          push @placeholders, '?';
        }   
    
        my $insert = "INSERT into $table (".join(',',@keys).") VALUES (".join(',',@placeholders).")\n";
        my $sth= $new_handle->prepare($insert) || die  $@; 
        $sth->execute(@values) || die $@  . "\n ".join(",",@values);
      }
    }
    
    $old_handle->disconnect();
    $new_handle->disconnect();
    Ten skončí s chybou:
    DBD::Pg::st execute failed: ERROR:  invalid byte sequence for encoding "UTF8": 0xed6d2c
    HINT:  This error can also happen if the byte sequence does not match the encoding expected by the server, which is controlled by "client_encoding". at ./rt3-on-mysql-to-pg.pl line 45.
    Use of uninitialized value $values[2] in join or string at ./rt3-on-mysql-to-pg.pl line 45.
    A v tabulce je jen prvních zhruba 30 záznamů.

    Podle chybové hlášky, z dokumentace a pomocí google jsem získal dojem, že problém bude ve špatném kódování vkládaných znaků do databáze Pg. Nemůžu ale přijít na způsob, jak to opravit. Nastavení client_encoding, NAMES ani CHARACTER SET nepomohlo. Co ještě můžu vyzkoušet?

    Odpovědi

    3.12.2009 21:15 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    A co zkusit encode/decode, nebo to dělá za vás DBI? UTF8 není interní reprezentace perlu a tudíž při nějaké manipulaci může stringy zmršit.
    In Ada the typical infinite loop would normally be terminated by detonation.
    pek avatar 4.12.2009 10:07 pek | skóre: 20
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    V tom to asi bude. Upravil jsem kód pro načítání dat:
    push @values, decode("utf8",$row->{$key});
    a vkládání zpět do databáze:
    $sth->execute(@values) || die $@  . "\n ".encode("utf8",join(",",@values));
    Skript zpracuje úspěšně 3500 řádků v tabulce (předtím 30). Pak ale opět skončí s chybou:
    DBD::Pg::st execute failed: ERROR:  invalid byte sequence for encoding "UTF8": 0xfd
    4.12.2009 12:09 petr_p | skóre: 59 | blog: pb
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    A není prostě problém v tom, že některá data ve zdrojové databázi prostě nejsou UTF-8. Pak totiž zcela logicky převod selže. Zjistěte si kontext chybných dat, podívejte se do zdrojové databáze jiným prostředkem, co tam opravdu máte uloženo.
    3.12.2009 21:26 Petr Šobáň | skóre: 79 | blog: soban | Olomouc
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    Co use locale; ? A nastavit na UTF8 ?
    3.12.2009 21:35 Petr Šobáň | skóre: 79 | blog: soban | Olomouc
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    Případně nepomůže Perl: problém s češtinou v regexpu
    pek avatar 4.12.2009 10:18 pek | skóre: 20
    Rozbalit Rozbalit vše Re: Perl - dbi a utf
    Přidání:
    use locale;
    binmode(STDOUT, ":encoding(UTF-8)");
    binmode(STDIN, ":encoding(UTF-8)");
    ani nastavení LANG=en_US.UTF-8 a LC_ALL=en_US.UTF-8 nepomohlo.
    pek avatar 8.12.2009 12:35 pek | skóre: 20
    Rozbalit Rozbalit vše Re: Perl - dbi a utf

    Vypadá to na problém se sloupcem Content. Když ho vyřadím z exportovaných dat, tak se import povede.

    my $sth = $old_handle->prepare("SELECT Created,id,TransactionId,Parent,MessageId,Subject,Filename,ContentType,ContentEncoding,Headers,Creator,Created FROM $table) || die $@;
    

    Sloupec Content je v MySQL typu longblob v PostgreSQL typu bytea. Takže otázka zní: Jak dostat v perlu data ze sloupce longblob do sloupce typu bytea?

    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.