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

    Svobodná webová platforma pro sdílení a přehrávání videí PeerTube (Wikipedie) byla vydána ve verzi 5.1. Přehled novinek i s náhledy v oficiálním oznámení a na GitHubu.

    Ladislav Hagara | Komentářů: 0
    včera 18:22 | Nová verze

    Byla vydána Java 20 / JDK 20. Nových vlastností (JEP - JDK Enhancement Proposal) je 7. Nová Java / JDK vychází každých 6 měsíců. LTS verze je 17.

    Ladislav Hagara | Komentářů: 1
    včera 16:44 | IT novinky

    Google spustil konverzační AI Bard. Vyzkoušet lze zatím pouze ve Spojených státech a Spojeném království. Více v Bard FAQ.

    Ladislav Hagara | Komentářů: 1
    včera 14:22 | Bezpečnostní upozornění

    David Buchanan na svém blogu rozebírá zranitelnost acropalypse (CVE-2023-21036) telefonů Google Pixel. Z výřezu (crop) snímku obrazovky vytvořeného integrovanou aplikací Markup může být možné částečné obnovení původního snímku obrazovky. Viz tweet Simona Aaronse. Vyzkoušet lze webovou aplikaci acropalypse.app. Opraveno v březnové aktualizaci.

    Ladislav Hagara | Komentářů: 3
    včera 08:00 | Nová verze

    V programovacím jazyce Go naprogramovaná webová aplikace pro spolupráci na zdrojových kódech pomocí gitu Gitea (Wikipedie) byla vydána v nové verzi 1.19.0. Přehled novinek i s náhledy v příspěvku na blogu. Kvůli "převzetí Gitei" společností Gitea Limited byl v prosinci loňského roku představen fork Gitei s názvem Forgejo (Codeberg).

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

    Byla vydána nová verze 5.11 živé linuxové distribuce Tails (The Amnesic Incognito Live System), jež klade důraz na ochranu soukromí uživatelů a anonymitu. Přehled změn v příslušném seznamu. Nově je používán zram. Tor Browser byl aktualizován na verzi 12.0.4. Thunderbird na verzi 102.9.0.

    Ladislav Hagara | Komentářů: 0
    20.3. 22:33 | IT novinky

    Na GOG.com běží Spring Sale. Při té příležitosti lze získat zdarma počítačovou hru Lorelai (ProtonDB).

    Ladislav Hagara | Komentářů: 0
    20.3. 11:00 | Nová verze

    Curl, řádkový nástroj a knihovna pro přenos dat po různých protokolech, slaví 25 let. Vydána byla nová verze 8.0.0. Mimo jiné řeší 6 zranitelností.

    Ladislav Hagara | Komentářů: 1
    20.3. 10:00 | Komunita

    V sobotu 25. března proběhne Arduino Day 2023. Od 14:00 lze sledovat oficiální stream. Zúčastnit se lze i lokálních akcí. V Česku jsou aktuálně registrovány dvě: v Praze na Matfyzu a v Poličce v městské knihovně.

    Ladislav Hagara | Komentářů: 0
    20.3. 09:00 | Zajímavý projekt

    Fabrice Bellard, tvůrce FFmpeg nebo QEMU, představil TextSynth Server. Jedná se o webový server nabízející REST API k velkým AI jazykovým modelům. CPU verze je k dispozici zdarma jako binárka pod licencí MIT. GPU verze je komerční. Vyzkoušet lze na stránkách TextSynth.

    Ladislav Hagara | Komentářů: 2
    Používáte WSL (Windows Subsystem for Linux)?
     (74%)
     (12%)
     (4%)
     (10%)
    Celkem 281 hlasů
     Komentářů: 1, poslední 6.3. 07:51
    Rozcestník


    Dotaz: Perl - Split

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

    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.