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.
Ve věku 94 let zemřel Gordon Moore, mj. spoluzakladatel společnosti Intel a autor Moorova zákona.
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.
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.
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.
GitHub má nový RSA SSH klíč. Předchozí soukromý klíč byl krátce vystaven na GitHubu.
Společnost Framework Computer představila (YouTube) nové modulární notebooky: Laptop 13 s Intel Core nebo AMD Ryzen a Laptop 16 (YouTube).
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.
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].
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.
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.
perl -lnaF\; -e "print \"insert into zoznam values('\", join(\"','\",@F), \"')\\;\";"
"Někdy to opravdu nestčí"; že...
perl -na -e 's/(?:"(.*?)"|(.*?))[;\n]/$1$2\000/g; print "insert into zoznam values'"('\", join(\"','\", split /\\000/), \"'"');\n";'
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); }
echo; ahoj; "světe; exit"; "vám to rozparsuje jistě také správně, že ;)"
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];
};
tr ";" ","
Do perlu sa velmi nerozumiem nemohol by si to uviest na priklade?
cat tvuj_soubor | tr ";" "," > soubor.csv
. A ten perlový skript pustíš až na ten soubor.csv.
my $parser = Text::CSV::Simple->new({ sep_char => ';' });
. Myslím, že to bude o něco spolehlivější
Tiskni
Sdílej: