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 01:00 | Nová verze

Oficiálně bylo vydáno Ubuntu 18.04 LTS s kódovým názvem Bionic Beaver. Tato verze s prodlouženou podporou bude podporována 5 let, tj. do dubna 2023. Přehled novinek a také odkazy na oficiální deriváty v poznámkách k vydání.

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

Po osmi letech od prvního commitu byla vydána verze 1.0 webového frameworku Flask (Wikipedie) napsaného v Pythonu. Přehled novinek v oznámení o vydání. Instalovat lze z PyPI. Odstraněna byla podpora Pythonu 2.6 a 3.3.

Ladislav Hagara | Komentářů: 0
včera 16:22 | Zajímavý článek

Nadace Raspberry Pi vydala devětašedesáté číslo (pdf) anglicky psaného časopisu MagPi věnovanému Raspberry Pi a projektům postaveným na tomto jednodeskovém počítači a šesté číslo (pdf) časopisu pro kutily HackSpace věnovanému navíc 3D tisku, pájení, řezání nebo i elektronice a IoT.

Ladislav Hagara | Komentářů: 0
včera 14:11 | Komunita

Byl zveřejněn seznam 44 osob přijatých do programu Outreachy od 14. května do 14. srpna 2018. Cílem programu Outreachy je přitáhnout do světa svobodného a otevřeného softwaru lidi ze skupin, jež jsou ve světě svobodného a otevřeného softwaru málo zastoupeny.

Ladislav Hagara | Komentářů: 12
včera 11:44 | Nová verze

Glen MacArthur vydal verzi 2018.4.2 na Debianu založené linuxové distribuce optimalizované pro tvůrce audio a video obsahu AV Linux (Wikipedie). Podrobnosti v oznámení o vydání a v stotřicetistránkovém manuálu (pdf).

Ladislav Hagara | Komentářů: 1
25.4. 23:33 | Nová verze

Byla vydána nová stabilní verze 1.15 (1.15.1147.36) webového prohlížeče Vivaldi (Wikipedie). Z novinek lze zdůraznit možnost nastavení vlastního pozadí okna, přístup k záložkám z hlavního menu, lepší ovládatelnost v režimu celé obrazovky nebo vyřešení problémů se zvukem v HTML5. Nejnovější Vivaldi je postaveno na Chromiu 65.0.3325.183.

Ladislav Hagara | Komentářů: 0
25.4. 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
25.4. 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
25.4. 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
25.4. 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
Používáte na serverech port knocking?
 (3%)
 (7%)
 (47%)
 (26%)
 (18%)
Celkem 388 hlasů
 Komentářů: 29, poslední 5.4. 12:25
    Rozcestník

    Dotaz: Perl - Split

    7.1.2011 16:26 Psp.2010
    Perl - Split
    Přečteno: 435×

    Dobrý den. Mam dotaz jak pomocí splitu mam rozdělit "@list".Když v @list se skrývá: NICK @NICK NICK %NICK NICK NICK +NICK Viz kód:

    my ($self, $event) = @_;

    my (@list, $channel) = ($event->args);

    ($channel, @list) = splice @list, 2;

    print "@list\n";

    Otázka..Jak se split mam rozdělit každý nick na jeden řádek a odstranit znaky: @, +, % Zkoušel sem:

    my $people;

    my $people = split(/ /, @list);

    ale bohužel marně..Nejaky navrh?


    Řešení dotazu:


    Odpovědi

    7.1.2011 17:09 chochi | skóre: 29 | Praha
    Rozbalit Rozbalit vše Re: Perl - Split
    Trochu zlepsit vyraz, podle ktereho se splituje, napr (odstrani vsechny mazery, @, %, +):
    
    $ perl -e 'use Data::Dumper; $a = "NICK \@NICK NICK %NICK NICK NICK +NICK"; @l=split(/[\@%\+ ]+/, $a); print(Dumper(\@l));'
    $VAR1 = [
              'NICK',
              'NICK',
              'NICK',
              'NICK',
              'NICK',
              'NICK',
              'NICK'
            ];
    
    7.1.2011 17:12 Psp.2010
    Rozbalit Rozbalit vše Re: Perl - Split
    Ano, tak rekneme ze ty NICKY se každou chvily meni..Jak znaky tak nicky..ale ano, zkusim to.
    7.1.2011 17:17 Psp.2010
    Rozbalit Rozbalit vše Re: Perl - Split

    Ted mi to vypisuje todlecto:

    $VAR1 = [ '1' ];

    wamba avatar 7.1.2011 19:39 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: Perl - Split
    mohl by jste napsat co ten program má dělat nějak podrobněji, popř. ke každému příkazu (řádku) napsat co by měl dělat? předpokládám, že s Perl-em začínáte nebo je to hodně "cool" kód? např. tohle
    my $people = split(/ /, @list);
    vezme počet prvků @list rozdělí to podle mezery a do $people se uloží počet prvků vzniklého pole, tedy pravděpodobně vždy 1, což pochybuji je to co chcete :)
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    7.1.2011 22:18 Psp.2010
    Rozbalit Rozbalit vše Re: Perl - Split
    Co by to mělo umět? Vytáhnout kdo je lidí na chatu (konkrétně na Lide.cz kde se IRC používá Lidegw.py) .A já po tom chci, aby mi je vytáhl (což je), a po té zkontroloval zda je někdo na blacklistu pomocí tim že rozsekám @list.Takže bych tim měl každýho uživatele na jenom řádku.O to mi jde.A abych se tam zbavil těch %, @ a +.
    wamba avatar 7.1.2011 23:38 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: Perl - Split
    no to je sice hezky, ale když nám neřeknete co vrací $events->args, tak to bude těžké.

    zkusím odhadnout, že vrací pole, kde od 4,5,... prvek obsahuje postupně ty nicky, pak bych zkusil něco jako
    my @people = map /(\w+)/, @list;
    ale celkově jsou to pro mě určité podivnosti např. tohle
    my (@list, $channel) = ($event->args);
    by chtělo přinejmenším komentář, co to dělá.

    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    7.1.2011 23:47 Psp.2010
    Rozbalit Rozbalit vše Re: Perl - Split
    @list je pole není omezeno počtem lidí args je mistnost kde se ti lidi nacházejí a já chci kontrolu těch lidí tam jsou, aby byli vypsány každý na jeden řádek.
    Řešení 1× (Psp.2010 (tazatel))
    wamba avatar 8.1.2011 00:43 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: Perl - Split
    use 5.10.1;
    use Data::Dumper;
    
    my @list = qw{NICK \@NICK NICK %NICK NICK NICK +NICK};
    my @people = map /(\w+)/, @list;
    say Dumper( [\@list, \@people] );
    say foreach @people;
    
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    8.1.2011 00:52 Psp.2010
    Rozbalit Rozbalit vše Re: Perl - Split
    Ano, to by šlo :) ale v my @list = qw{NICK \@NICK NICK %NICK NICK NICK +NICK}; de o to, že ty NICK nahrazují uživatele, který nejsou v přesnym pořadí jak je dáno.Vždycky se to může měnit.
    wamba avatar 8.1.2011 01:10 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: Perl - Split
    jen příklad, to můžete nahradit tím vaším
    my @list = $event->args;
    nebo něčím podobným
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    8.1.2011 01:17 Psp.2010
    Rozbalit Rozbalit vše Re: Perl - Split
    Skoro funkčí, děkuji :)

    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.