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í
×
eParkomat, startup z ČR, postoupil mezi finalisty evropského akcelerátoru ChallengeUp!
Robot na pivo mu otevřel dveře k opravdovému byznysu
Internet věcí: Propojený svět? Už se to blíží...
včera 16:24 | Nová verze

Byla vydána Mageia 5.1. Jedná se o první opravné vydání verze 5, jež vyšla v červnu loňského roku (zprávička). Uživatelům verze 5 nepřináší opravné vydání nic nového, samozřejmě pokud pravidelně aktualizují. Vydání obsahuje všechny aktualizace za posledního téměř půldruhého roku. Mageia 5.1 obsahuje LibreOffice 4.4.7, Linux 4.4.32, KDE4 4.14.5 nebo GNOME 3.14.3.

Ladislav Hagara | Komentářů: 0
včera 13:42 | Pozvánky

V Praze probíhá konference Internet a Technologie 16.2, volné pokračování jarní konference sdružení CZ.NIC. Konferenci lze sledovat online na YouTube. K dispozici je také archiv předchozích konferencí.

Ladislav Hagara | Komentářů: 0
2.12. 22:44 | Komunita

Joinup informuje, že Mnichov používá open source groupware Kolab. V srpnu byl dokončen dvouletý přechod na toto řešení. V provozu je asi 60 000 poštovních schránek. Nejenom Kolabu se věnoval Georg Greve ve své přednášce Open Source: the future for the European institutions (SlideShare) na konferenci DIGITEC 2016, jež proběhla v úterý 29. listopadu v Bruselu. Videozáznam přednášek z hlavního sálu je ke zhlédnutí na Livestreamu.

Ladislav Hagara | Komentářů: 19
2.12. 15:30 | Zajímavý projekt

Společnost Jolla oznámila v příspěvku Case study: Sailfish Watch na svém blogu, že naportovala Sailfish OS na chytré hodinky. Využila a inspirovala se otevřeným operačním systémem pro chytré hodinky AsteroidOS. Použita je knihovna libhybris. Ukázka ovládání hodinek na YouTube.

Ladislav Hagara | Komentářů: 8
2.12. 14:15 | Nová verze

Byla vydána verze 7.1.0 skriptovacího jazyka PHP používaného zejména k vývoji dynamických webových stránek. Jedná se o první stabilní verzi nejnovější větvě 7.1. Přehled novinek v dokumentaci. Podrobnosti v ChangeLogu. K dispozici je také příručka pro přechod z PHP 7.0.x na PHP 7.1.x.

Ladislav Hagara | Komentářů: 2
2.12. 12:55 | Nová verze

Google Chrome 55 byl prohlášen za stabilní. Nejnovější stabilní verze 55.0.2883.75 tohoto webového prohlížeče přináší řadu oprav a vylepšení (YouTube). Opraveno bylo také 36 bezpečnostních chyb. Mariusz Mlynski si například vydělal 22 500 dolarů za 3 nahlášené chyby (Universal XSS in Blink).

Ladislav Hagara | Komentářů: 4
2.12. 11:55 | Pozvánky

Máte rádi svobodný software a hardware nebo se o nich chcete něco dozvědět? Přijďte na 135. sraz spolku OpenAlt, který se bude konat ve čtvrtek 8. prosince od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Sraz bude tentokrát tématický. Bude retro! K vidění budou přístroje jako Psion 5mx nebo Palm Z22. Ze svobodného hardwaru pak Openmoko nebo čtečka WikiReader. Přijďte se i vy pochlubit svými legendami, nebo alespoň na pivo. Moderní hardware má vstup samozřejmě také povolen.

xkucf03 | Komentářů: 0
2.12. 00:10 | Nová verze

Byla vydána verze 3.2 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata. Z novinek lze zmínit například podporu protokolů DNP3 a CIP/ENIP, vylepšenou podporu TLS a samozřejmě také aktualizovanou dokumentaci.

Ladislav Hagara | Komentářů: 0
1.12. 21:00 | Nová verze

Byla vydána beta verze Linux Mintu 18.1 s kódovým jménem Serena. Na blogu Linux Mintu jsou hned dvě oznámení. První o vydání Linux Mintu s prostředím MATE a druhé o vydání Linux Mintu s prostředím Cinnamon. Stejným způsobem jsou rozděleny také poznámky k vydání (MATE, Cinnamon) a přehled novinek s náhledy (MATE, Cinnamon). Linux Mint 18.1 bude podporován až do roku 2021.

Ladislav Hagara | Komentářů: 0
1.12. 16:42 | Nová verze

Byl vydán Devuan Jessie 1.0 Beta 2. Jedná se o druhou beta verzi forku Debianu bez systemd představeného v listopadu 2014 (zprávička). První beta verze byla vydána v dubnu letošního roku (zprávička). Jedna z posledních přednášek věnovaných Devuanu proběhla v listopadu na konferenci FSCONS 2016 (YouTube, pdf).

Ladislav Hagara | Komentářů: 0
Kolik máte dat ve svém domovském adresáři na svém primárním osobním počítači?
 (32%)
 (24%)
 (29%)
 (7%)
 (5%)
 (3%)
Celkem 767 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: vlakna v PERLu

7.1.2011 14:52 toxLinuch
vlakna v PERLu
Přečteno: 582×
Mam script v PERLu, ktery uklada v ruznych intervalech data do DB, ale zpozdeni je vzdy stejne. Problem je, ze script boptna v pameti a to takovym zpusobem, ze je schopen polozit i stroj. Script ceka na vstup z pipe a pote reaguje. syntaxe 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.

Odpovědi

7.1.2011 15:34 Ivan
Rozbalit Rozbalit vše Re: vlakna v PERLu
Asi je to offtopic, ale opravdu je nutne kvuli kazdemu update otevirat zvlastni konexi? A jsi si jisty, ze libmysql je thread-safe?
7.1.2011 17:14 toxLinuch
Rozbalit Rozbalit vše Re: vlakna v PERLu
zkousel jsem pedat hodnotu spojeni jako parametr do vlakna bohuzel perl vyhodil error a nejelo to. postupoval sem takto :
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
7.1.2011 17:29 toxLinuch
Rozbalit Rozbalit vše Re: vlakna v PERLu
tak jsem ted vygooglil na cpanu:

Threads and Thread Safety
Perl 5.7 and later support a new threading model called iThreads. (The old "5.005 style" threads are not supported by the DBI.)

In the iThreads model each thread has it's own copy of the perl interpreter. When a new thread is created the original perl interpreter is 'cloned' to create a new copy for the new thread.

If the DBI and drivers are loaded and handles created before the thread is created then it will get a cloned copy of the DBI, the drivers and the handles.

However, the internal pointer data within the handles will refer to the DBI and drivers in the original interpreter. Using those handles in the new interpreter thread is not safe, so the DBI detects this and croaks on any method call using handles that don't belong to the current thread (except for DESTROY).

Because of this (possibly temporary) restriction, newly created threads must make their own connections to the database. Handles can't be shared across threads.

But BEWARE, some underlying database APIs (the code the DBD driver uses to talk to the database, often supplied by the database vendor) are not thread safe. If it's not thread safe, then allowing more than one thread to enter the code at the same time may cause subtle/serious problems. In some cases allowing more than one thread to enter the code, even if not at the same time, can cause problems. You have been warned.

Jestli to chapu dobre ma se delat v kazdem vlakne zvlast pripojeni. Pak tedy nechapu proc mi to zere pamet. Vzdyt do nekolika hodin mi padne cely system, kudla drat.
7.1.2011 18:31 VM
Rozbalit Rozbalit vše Re: vlakna v PERLu
Nikde nevidim $scThread->join() . Rekl bych ze vytvaris zombie thready.
7.1.2011 20:33 toxLinuch
Rozbalit Rozbalit vše Re: vlakna v PERLu
Nemuzu cekat na ukonceni children vlakna tim bych nezpracoval dalsi vstup. Potrebuju ,aby se operace ve vlaknu zpracovaly a pote se vlakno ukoncilo. Mezitim se vsak zpracovava dalsi vstup. Kdyz se divam na vypis vlaken k danemu procesu tak se vlakna ukoncuji. Pro zobrazeni vlaken k danemu procesu pouzivam ps -p 14814 uH
10.1.2011 15:34 toxLinuch
Rozbalit Rozbalit vše Re: vlakna v PERLu
Vyreseno-naprogramovano v ansiC. I kdyz mi to prijde jako jit s tankem na blechu, ale co uz se da delat. Vyhoda cecka je ze se da perfektne ovladat pamet apod. No co vam budu povidat. Api bezi a ma stale stejne pozadavky jako po spusteni. Takze super. Cecku zdar-Perl sux(teda na takove aplikace jinak dobry ;-) )
10.1.2011 16:56 NeoV | skóre: 23
Rozbalit Rozbalit vše Re: vlakna v PERLu
hmmm take hinty:

1. naco su Vam vlakna pre jednoduche updaty jedneho zaznamu ? Ved samotne neustale vytvaranie spojenia kazdym novym vlaknom je x-nasobne narocnejsie ako jednovlaknova app. ktora si drzi otvorene spojenie (v pripade jeho ukoncenia ho len znovu-otvori) a po kazdom nacitani noveho riadku z pajpy hned vykona update do DB jedneho zaznamu, co je operacia porovnatelna s vyvolanim noveho vlakna...

2. pri pouzivani viacerych vlakien, ktore si kazde vytvara vlastne nove spojenie na DB sa Vam moze v jednom z miliona pripadov stat, ze prve vlakno bude vytvarat spojenie s DB dlhsie ako druhe (neskor vytvorene vlakno) a tym padom druhe vlakno vykona update ako prve...

3. ak teoreticky pride v rychlom slede velke mnozstvo 'riadkov' do pajpy, tak bud sa zdrbe DB alebo sa ti nevytvoria spojenia na DB nakolko dosiahnes max. pocet otvorenych pripojeni na DB
10.1.2011 21:13 toxLinuch
Rozbalit Rozbalit vše Re: vlakna v PERLu
naznacil jsem cast ulohy ne vsak celou ;-). V cecku je jedno spojeni, ktere se predava zadne dementni otvirani porad dokola. Vyborna obsluha pameti- jeji uvolneni, apod.
10.1.2011 19:50 petr_p | skóre: 59 | blog: pb
Rozbalit Rozbalit vše Re: vlakna v PERLu
Co máš za distribuci? Perl 5.10 zapomíná dealokovat jednu proměnnou při ukončování vlákna. Pokud to distributor neopravil sám, tak by měl být postižen i tento kód:
use threads;

sub ThreadRoutine {}

while (1) {
    threads->new(\&ThreadRoutine)->join;
}

Oprava.

10.1.2011 21:14 toxLinuch
Rozbalit Rozbalit vše Re: vlakna v PERLu
distro je debian lenny. nic takoveho jsem nikde nezjistil. Diky za info. Ted uz to resit nebudu, ale je to dobre vedet,
11.1.2011 08:45 ph0enix | skóre: 18 | Praha
Rozbalit Rozbalit vše Re: vlakna v PERLu
Pokud bych mel pouzit vlakna, pouzil bych jen dve a to nasledovne - hlavni vlakno nacita data ze vstupu a pres sdilene pole je predava druhemu vlaknu, jenz nasledne aktualizuje databazi. Takto bude zajisteno zpracovani dat v poradi jak dosly. Netusim ale jak to bude rychle / jaka bude rezie.
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();

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.