Netwide Assembler (NASM) byl vydán v nové major verzi 3.00. Přehled novinek v poznámkách k vydání v aktualizované dokumentaci.
Linuxová distribuce Frugalware (Wikipedie) ke konci roku 2025 oficiálně končí.
Byla vydána nová verze 3.0.6 svobodné aplikace pro úpravu a vytváření rastrové grafiky GIMP (GNU Image Manipulation Program). Přehled novinek v oznámení o vydání a v souboru NEWS na GitLabu. Nový GIMP bude brzy k dispozici také na Flathubu.
Americký výrobce čipů AMD uzavřel s americkou společností OpenAI smlouvu na několikaleté dodávky vyspělých mikročipů pro umělou inteligenci (AI). Součástí dohody je i předkupní právo OpenAI na přibližně desetiprocentní podíl v AMD.
Byla vydána nová verze 10.1 sady aplikací pro SSH komunikaci OpenSSH. Uživatel je nově varován, když se nepoužívá postkvantovou výměnu klíčů.
Byly zpracovány a na YouTube zveřejněny videozáznamy z konference LinuxDays 2025.
Na konferenci LinuxDays 2025 byl oficiálně představen nový router Turris Omnia NG.
Přímý přenos (YouTube) z konference LinuxDays 2025, jež probíhá tento víkend v Praze v prostorách FIT ČVUT. Na programu je spousta zajímavých přednášek.
V únoru loňského roku Úřad pro ochranu osobních údajů pravomocně uložil společnosti Avast Software pokutu 351 mil. Kč za porušení GDPR. Městský soud v Praze tuto pokutu na úterním jednání zrušil. Potvrdil ale, že společnost Avast porušila zákon, když skrze svůj zdarma dostupný antivirový program sledovala, které weby jeho uživatelé navštěvují, a tyto informace předávala dceřiné společnosti Jumpshot. Úřad pro ochranu osobních údajů
… více »script1.pl | script2.pl
script2.pl sub update { my ($item) = @_; print "item to DB: $item\n"; sleep(2); if (my $dbh = DBI->connect('DBI:mysql:dataWeb', 'xxx', 'xxx')) { my $query="UPDATE onWeb SET name='".$item."' WHERE id=0;"; my $sth = $dbh->prepare($query);#zkousel jsem pouzit i $dbh->do ale je to stejny my $rv = $sth->execute(); $dbh->disconnect; } else { print "Could not connect to database: $DBI::errstr"; } } my $scThread=0; while (my $line = <STDIN>) { if ($line ne "") { chomp ($line); $scThread = threads->create(\&update, $line); } }Nevite nekdo prosim vas coje spatne? Kde mam udelat zmenu, aby script bezel jak ma? Soft mysql 5.0.51a a perl 5.10.
script2.pl sub update { my ($item,$dbh) = @_; print "item to DB: $item\n"; sleep(2); my $query="UPDATE onWeb SET name='".$item."' WHERE id=0;"; my $sth = $dbh->prepare($query);#zkousel jsem pouzit i $dbh->do ale je to stejny my $rv = $sth->execute(); } my $scThread=0; my $dbh = DBI->connect('DBI:mysql:dataWeb', 'xxx', 'xxx'); while (my $line = <STDIN>) { if ($line ne "") { chomp ($line); $scThread = threads->create(\&update, $line, $dbh); } } $dbh->disconnect;Hlaseni perlu:
Thread 2 tady dochazi ke zvysovani cisla vlakna terminated abnormally: DBD::mysql::db prepare failed: handle 2 is owned by thread 198e010 not current thread 1e2b7e0 (handles can't be shared between threads and your driver may need a CLONE method added)Pridal jsem teda shared:
pridano use threads::shared; ... my $scThread=0; my $dbh = DBI->connect('DBI:mysql:dataWeb', 'xxx', 'xxx'); share ($dbh); while (my $line = <STDIN>) { ...perl hlasi
Thread 1 terminated abnormally: dbih_getcom handle threads::shared::tie=SCALAR(0xe739c0) is not a DBI handle at script2.pl <STDIN> line 1
Thread 2 terminated abnormally: dbih_getcom handle threads::shared::tie=SCALAR(0xe739c0) is not a DBI handle at script2.pl <STDIN> line 2
ps -p 14814 uH
use threads; sub ThreadRoutine {} while (1) { threads->new(\&ThreadRoutine)->join; }
use threads; use threads::shared; my $line; my $thr_end; my @thr_data; my $thr_worker; share($thr_end); share(@thr_data); $thr_end = 0; $thr_worker = threads->create(\&thr_sub); @thr_data = (); sub thr_sub { my $dbh = DBI->connect('DBI:mysql:dataWeb;mysql_server_prepare=1', 'user', 'password'); my $qry = "UPDATE onWeb SET name=? WHERE id=0"; my $sth; my $tmp; die "Can't connect to database" if (!$dbh); $sth = $dbh->prepate($qry); while (!$thr_end) { { lock(@thr_data); $tmp = shift(@thr_data); } $sth->execute($tmp) if(defined($tmp)); } lock(@thr_data); $sth->execute($_) for (@thr_data); $dbh->disconnect(); } while ($line = <STDIN>) { chomp($line); next if ($line =~ /^\s*$/); { lock(@thr_data); push @thr_data, $line; } } $thr_end = 1; $thr_worker->join();
Tiskni
Sdílej: