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 19:00 | Komunita

Na Humble Bundle lze získat počítačovou hru Sanctum 2 (Wikipedie, YouTube) běžící také v Linuxu zdarma. Speciální akce končí v sobotu v 19:00.

Ladislav Hagara | Komentářů: 0
dnes 15:44 | Komunita

Projekt LiMux skončil. Mnichov se vrací k Windows. Rada města na svém včerejším zasedání schválila migraci všech počítačů na Windows 10 do roku 2020.

Ladislav Hagara | Komentářů: 11
dnes 08:00 | Pozvánky

V Praze dnes probíhá konference Internet a Technologie 17.2 pořádaná sdružením CZ.NIC. Sledovat ji lze online. K dispozici je také archiv předchozích konferencí. Sdružení nedávno vydalo bezpečnostní pexeso. Ke stažení jako pdf pod licencí CC BY-NC-SA.

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

Byla vydána verze 10.2 a krátce na to opravná verze 10.2.1 open source alternativy GitHubu, tj. softwarového nástroje s webovým rozhraním umožňujícího spolupráci na zdrojových kódech, GitLab (Wikipedie). Představení nových vlastností v příspěvku na blogu a na YouTube.

Ladislav Hagara | Komentářů: 14
dnes 06:22 | Pozvánky

V úterý 28. listopadu se v Brně koná již 4. přednáškový večer Ruby Stories. Těšit se můžete na témata jako TDD, hybridní mobilní aplikace či programování v Elixiru. Více informací na Facebooku nebo se rovnou registruj na Eventbrite. Na místě bude zdarma drink a lehké občerstvení, tak dorazte.

ondrej-zadnik | Komentářů: 0
dnes 06:11 | Pozvánky

V úterý 28. 11. 2017 bude další Prague Containers Meetup. DC/OS a Mesos vás provede Mesosphere's Developer Advocate Matt Jarvis.

little-drunk-jesus | Komentářů: 0
včera 14:44 | Komunita

Mozilla.cz informuje, že Firefox bude možná upozorňovat na úniky vašich hesel. V Mozille prototypují upozorňování na únik informací o vašem účtu, pokud se na seznamu Have I been pwned? objeví služba, ke které máte ve Firefoxu uložené přihlašovací údaje. Informace se objevila v pravidelném newsletteru o vývoji Firefoxu.

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

Společnost ZONER informuje o bezpečnostním incidentu, při kterém došlo ke zcizení a zveřejnění části přihlašovacích údajů zákazníků k elektronické poště a webhostingu CZECHIA.COM.

Ladislav Hagara | Komentářů: 1
22.11. 23:44 | Nová verze

Byla vydána nová stabilní verze 1.13 (1.13.1008.32) webového prohlížeče Vivaldi (Wikipedie). Z novinek vývojáři zdůrazňují možnost zobrazení otevřených i uzavřených listů pomocí ikonky Okno na postranní liště a vylepšené stahování (YouTube). Nejnovější Vivaldi je postaveno na Chromiu 62.0.3202.97.

Ladislav Hagara | Komentářů: 9
22.11. 20:55 | Nová verze

Byla vydána verze 2017.3 dnes již průběžně aktualizované linuxové distribuce navržené pro digitální forenzní analýzu a penetrační testování Kali Linux. Aktualizovat systém lze pomocí příkazů "apt update; apt dist-upgrade; reboot". Z novinek lze zmínit 4 nové nástroje: InSpy, CherryTree, Sublist3r a OSRFramework.

Ladislav Hagara | Komentářů: 1
Jak se vás potenciálně dotkne trend odstraňování analogového audio konektoru typu 3,5mm jack z „chytrých telefonů“?
 (9%)
 (1%)
 (1%)
 (1%)
 (75%)
 (14%)
Celkem 765 hlasů
 Komentářů: 37, poslední 21.11. 15:21
    Rozcestník

    Dotaz: Perl - Split

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

    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.