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 02:22 | Zajímavý projekt

Na Bundle Stars byla spuštěna akce Dollar Forever Bundle. Za 1 dolar lze získat 24 počítačových her bežících na platformě Steam také v Linuxu.

Ladislav Hagara | Komentářů: 0
včera 23:44 | Zajímavý software

Lychee je jedním z open source softwarů pro tvorbu webových fotoalb. Vyžadováno je PHP 5.5 nebo novější a MySQL. Ukázka na stránkách projektu. Zdrojové kódy jsou k dispozici na GitHubu pod open source licencí MIT [reddit].

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

Společnosti Haivision a Wowza společně oznámily vznik SRT Alliance a otevření protokolu pro streamování videa SRT. Podrobnosti v FAQ. Zdrojové kódy SRT jsou k dispozici na GitHubu pod open source licencí LGPLv2.1.

Ladislav Hagara | Komentářů: 0
včera 12:33 | Humor

Byl vydán remake filmu Ghost in the Shell. Tentokrát v Bashi. Zhlédnout lze online na "ssh ghost@theshell.xyz" [Hacker News].

Ladislav Hagara | Komentářů: 13
23.4. 20:40 | Zajímavý článek

Lukáš Růžička v článku S Hydrogenem za lepší rytmus aneb bubeníkem snadno a rychle na MojeFedora.cz představuje automatického bubeníka s názvem Hydrogen (Wikipedie): Hydrogen je velmi vydařený program, který rozhodně nesmí chybět ve výbavě žádného linuxového muzikanta. Umožňuje nejen vytváření jednoduchých bicích doprovodů, ale také sofistikované programování bicích a perkusí, jehož výsledek se naprosto vyrovná drahým

… více »
Ladislav Hagara | Komentářů: 14
23.4. 13:55 | Zajímavý projekt

UPSat (Twitter) je první open source nanodružice (CubeSat). Jedná se o společný projekt nadace Libre Space Foundation a University of Patras. Repozitáře projektu jsou k dispozici na GitHubu. Pod Libre Space Foundation patří také projekt SatNOGS (zprávička), projekt globální sítě open source pozemních satelitních stanic, vítězný projekt soutěže The Hackaday Prize 2014. UPSat je součástí mise QB50 (Twitter). ID UPSatu je GR02. GPS přijímač na UPSatu je od české společnosti SkyFox Labs. Součástí mise QB50 je i česká nanodružice VZLUSAT-1 s ID CZ02.

Ladislav Hagara | Komentářů: 4
21.4. 15:00 | Komunita

V diskusním listu Thunderbird planning vývojáři poštovního klienta Thunderbird řeší, zda by nebylo možné budoucí Thunderbird postavit nad webovými technologiemi, tj. nad Electronem, stejně jako například Nylas Mail. Gecko, nad kterým je Thunderbird postaven, se má hodně změnit. V plánu je odstranění vlastností, které Firefox už nepotřebuje, ale Thunderbird je na nich závislý [Hacker News, reddit].

Ladislav Hagara | Komentářů: 98
21.4. 10:22 | Bezpečnostní upozornění

Společnost Oracle vydala čtvrtletní bezpečnostní aktualizaci svých softwarových produktů (CPU, Critical Patch Update). Opraveno bylo celkově 299 bezpečnostních chyb. V Oracle Java SE je například opraveno 8 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 7 z nich. V Oracle MySQL je opraveno 39 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 11 z nich.

Ladislav Hagara | Komentářů: 8
21.4. 10:00 | Pozvánky

V úterý 25. dubna proběhne další Prague Containers Meetup. Přijďte se nechat inspirovat jak zlepšit build/delivery pipeline vašich kontejnerových aplikací.

little-drunk-jesus | Komentářů: 2
20.4. 21:33 | Komunita

Na Launchpadu se objevilo kódové jméno následující verze Ubuntu. Ubuntu 17.10 bude Artful Aardvark (mazaný hrabáč) [OMG! Ubuntu!].

Ladislav Hagara | Komentářů: 11
Chystáte se pořídit CPU AMD Ryzen?
 (4%)
 (35%)
 (0%)
 (7%)
 (44%)
 (9%)
Celkem 286 hlasů
 Komentářů: 32, poslední včera 12:24
    Rozcestník

    Dotaz: Perl - Split

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

    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: 37 | 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: 37 | 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: 37 | 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: 37 | 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.