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 15:18 | Zajímavý software

CrossOver, komerční produkt založený na Wine, je dnes (23. 5. 2017) dostupný ve slevě. Roční předplatné linuxové verze vyjde s kódem TWENTYONE na $21, resp. $1 v případě IP z chudších zemí jako ČR. Firma CodeWeavers, která CrossOver vyvíjí, významně přispívá do Wine. Přidaná hodnota CrossOver spočívá v přívětivějším uživatelském rozhraní, integraci do desktopu a podpoře.

Fluttershy, yay! | Komentářů: 10
dnes 15:11 | Zajímavý projekt

V únoru loňského roku bylo představeno několik útoků na celou řadu bezdrátových klávesnic a myší s názvem MouseJack. Po více než roce lze chybu opravit, tj. aktualizovat firmware, také z Linuxu. Richardu Hughesovi se podařilo navázat spolupráci se společností Logitech, získat od nich dokumentaci, přesvědčit je, aby firmware poskytovali přímo a ne jako součást .exe souboru, aby mohl být popis začleněn do služby Linux Vendor Firmware Service (LVFS) a aktualizace tak mohla proběhnou přímo z Linuxu pomocí projektu fwupd.

Ladislav Hagara | Komentářů: 0
dnes 13:22 | Nová verze

Po roce a půl vydali vývojáři projektu SANE (Scanner Access Now Easy) (Wikipedie) novou verzi 1.0.27 balíku SANE-Backends. Nejnovější verze tohoto balíku pro přístup ke skenerům přináší například významná vylepšení v několika backendech nebo podporu pro více než 30 nových modelů skenerů. Verze 1.0.26 byla přeskočena.

Ladislav Hagara | Komentářů: 0
včera 20:55 | Komunita

Od 18. do 21. května proběhla v Saint-Étienne Linux Audio Conference 2017. Na programu byla řada zajímavých přednášek a seminářů. Videozáznamy přednášek lze zhlédnout na YouTube. K dispozici jsou také články a prezentace.

Ladislav Hagara | Komentářů: 0
včera 20:44 | IT novinky

Hodnota Bitcoinu, decentralizované kryptoměny, překonala hranici 2 200 dolarů. Za posledních 30 dnů tak vzrostla přibližně o 80 % [reddit].

Ladislav Hagara | Komentářů: 4
včera 17:33 | Nová verze

Po 5 měsících vývoje od vydání verze 0.12.0 byla vydána verze 0.13.0 správce balíčků GNU Guix a na něm postavené systémové distribuce GuixSD (Guix System Distribution). Na vývoji se podílelo 83 vývojářů. Přibylo 840 nových balíčků. Jejich aktuální počet je 5 454. Aktualizována byla také dokumentace.

Ladislav Hagara | Komentářů: 1
včera 17:22 | Nová verze

Po 5 měsících vývoje a 3 týdnech intenzivního testování byla vydána verze 12 open source systému Nextcloud, forku ownCloudu, umožňujícího provoz vlastního cloudového úložiště. Přehled novinek i s videoukázkami v poznámkách k vydání. Pro vyzkoušení je k dispozici demo.

Ladislav Hagara | Komentářů: 8
včera 11:44 | Zajímavý článek

Týden po prvním číslu publikoval Michal Špaček na svých stránkách druhé číslo newsletteru věnovanému bezpečnosti, bezpečnému vývoji převážně webových aplikací a bezpečnosti uživatelů. Věnuje se výpadku Let's Encrypt, únikům dat, bug bounty pro WordPress nebo SQL Injection v Joomla. Zmiňuje také, že Mozilla plánuje z Firefoxu odstranit podporu pro Encrypted Media Extensions (EME) na nešifrovaném HTTP a nadále pro EME vyžadovat HTTPS.

Ladislav Hagara | Komentářů: 0
včera 02:00 | Pozvánky

Ve středu 31. května 2017 od 17:00 proběhne v pražské pobočce SUSE Den otevřených dveří v SUSE. Čekají vás přednášky o live kernel patchingu a nástroji SaltStack. Také se dozvíte zajímavé informace o SUSE, openSUSE, a vlastně všech produktech, na kterých lidé ze SUSE pracují.

Ladislav Hagara | Komentářů: 4
včera 01:00 | Pozvánky

Czech JBoss User Group srdečně zve na setkání JBUG v Brně, které se koná ve středu 7. června 2017 v prostorách Fakulty informatiky Masarykovy univerzity v místnosti A318 od 18:00. Přednáší Tomáš Livora na téma Fault Tolerance with Hystrix. Více informací na Facebooku a Twitteru #jbugcz.

mjedlick | Komentářů: 0
Chystáte se pořídit CPU AMD Ryzen?
 (6%)
 (32%)
 (1%)
 (8%)
 (44%)
 (9%)
Celkem 597 hlasů
 Komentářů: 62, poslední 19.5. 01:57
    Rozcestník

    Dotaz: Perl a generator nahodnych cis

    23.6.2003 11:58 lazyboy | skóre: 13
    Perl a generator nahodnych cis
    Přečteno: 49×
    Ahoj chlapi, mám problem a nemůžu to za živýho boha dát dohromady. Mam níže popsanej skript,kterej generuje nahodne 4 cisla z dvaceti, ale potřebuju aby se tam cisla neopakovala. #!/usr/bin/perl -w

    srand; $cislo=4; $maximum=20; $generuj=0; sub generace { while($generuj<$cislo) { $mojecislo=int(rand($maximum)); $generuj++;

    push(@pole,$mojecislo); } }

    sub vypis { for ($i=0;$i<@pole;$i++) { print "$pole[$i] "; } }

    &generace; &vypis; print "\n";

    Diky s pomoci

    Odpovědi

    23.6.2003 13:52 Jáchym Čepický | skóre: 29 | blog: U_Jachyma
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    určitě to jde elegantnějc... doufám, že to takhle funguje
    
    
    srand;
    $min=4;
    $maximum=20;
    $generuj=0;
    my @pole = ();
    my $tmp = 0;
    
    sub generace {
            while($generuj<$min) {
              $mojecislo=int(rand($maximum));
              foreach $cislo (@pole){
                  $cislo == $mojecislo ?  $tmp = 1 : $tmp = $tmp;
                  }
              if($tmp == 0){
                  $generuj += 1;
                  push(@pole,$mojecislo);
                  }
              }
    }
    sub vypis {
            for ($i=0;$i<@pole;$i++) {
                            print "$pole[$i] ";
                                }
    }
    
    &generace;
    &vypis;
    print "\n";
    
    23.6.2003 14:40 ivok
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    Efektivni to asi moc neni... ale kratsi uz to neumim :-)
    #!/usr/bin/perl -w
    srand;
    my %tmp;
    for (1..4) {
      $tmp{int(rand(20))}++ and redo;
    }
    print scalar (join ' ', keys %tmp), "\n";
    
    23.6.2003 15:17 lazyboy | skóre: 13
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    Díky moc :-)
    24.6.2003 08:09 ivok
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    Ten muj prigramek sice funguje, ale jenom, pokud chcete 4 cisla z 20 a nezalezi vam na jejich poradi. Pokud na poradi zalezi, tak treba takhle (neni to tak pekny, ale ...)
    #!/usr/bin/perl -w
    srand;
    my @tmp;
    while (scalar @tmp < 4) {
      (grep $tmp[0] == $_, @tmp = (int(rand(20)), @tmp)) - 1 and shift @tmp;
    }
    print scalar (join ' ', @tmp), "\n";
    
    24.6.2003 10:37 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    A nebo
    #!/usr/bin/perl
    srand;
    my (%h, @l);
    while (scalar @l < 4) {
      $j = int(rand(20)) + 1;
      if (!defined $h[$j]) {
        $h[$j] = 1;
        push @l, $j;
      }
    }
    $, = " ";
    $\ = "\n";
    print @l;
    
    24.6.2003 11:26 ivok
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    To je moc citelny, to umi napsat kazdej :-) Navic je tam moc zavorek a "$" a ma to moc radku ... :-)
    24.6.2003 11:43 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Perl a generator nahodnych cis
    Chtěl jsem původně to tělo cyklu napsat
    $h[$j]=$l[$#l+1]=$j if $j=int(rand(20))+1 and !defined $h[$j];
    
    ale rozhodl jsem se dneska pro čitelnost ;-)

    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.