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 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
dnes 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ářů: 0
dnes 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
dnes 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ářů: 2
dnes 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
dnes 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ářů: 3
dnes 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
19.5. 23:22 | Zajímavý projekt

Na Texture Ninja je volně k dispozici více než 4 tisíce textur. Autora lze podpořit na Patreonu.

Ladislav Hagara | Komentářů: 0
19.5. 10:22 | Pozvánky

Mozilla.cz zve na MozBeer Prague #2. Druhé setkání Mozilla.cz proběhne 26. května od 18:00 v Praze v Diversion Bistru v ulici Mělnická.

Ladislav Hagara | Komentářů: 0
18.5. 23:22 | Bezpečnostní upozornění

Průvodce restauracemi Zomato, jenž v roce 2014 koupil Lunchtime.cz, potvrdil bezpečnostní problém. Odcizeno bylo 17 miliónů záznamů o uživatelích (jména, emailové adresy, osolené hashe).

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

    Dotaz: perl - rozdelení stingu na pismena a uložení do pole

    4.12.2007 01:50 motorcb | skóre: 12
    perl - rozdelení stingu na pismena a uložení do pole
    Přečteno: 438×
    Zdravím. V perlu mam proměnou:

    $pozdrav="Vitame vas na Nasem webu";

    a potřeboval bych jednotlivé znaky z proměné uložit do pole.

    print $pole[0]; #V
    print $pole[1]; #i
    print $pole[2]; #t
    print $pole[3]; #a
    ...


    Poradí nekdo? Diky moc :)

    Odpovědi

    4.12.2007 07:05 Jan Matis
    Rozbalit Rozbalit vše Re: perl - rozdelení stingu na pismena a uložení do pole
    my $test="toto je testovaci string"; my @array=split(//, $test);

    foreach my $pom (@array) {

    print "$pom \n"; }

    zoul avatar 4.12.2007 09:11 zoul | skóre: 43 | blog: | Boskovice
    Rozbalit Rozbalit vše Re: perl - rozdelení stingu na pismena a uložení do pole
    Jé, to jsem pako, to je úplně to stejný jako to moje :) Jak jsem viděl tři řádky kódu, automaticky jsem si myslel, že jde o něco složitějšího. Příště budu rychlejší!
    4.12.2007 10:41 Jan Matis
    Rozbalit Rozbalit vše Re: perl - rozdelení stingu na pismena a uložení do pole
    Pravdepodobne ano. Ja mam vacsinou 7:00 ceskeho casu este hlboku noc .. to len dnes som nemohol spat :)
    zoul avatar 4.12.2007 09:09 zoul | skóre: 43 | blog: | Boskovice
    Rozbalit Rozbalit vše Re: perl - rozdelení stingu na pismena a uložení do pole
    my @pole = split(//, $pozdrav);
    4.12.2007 11:39 ams
    Rozbalit Rozbalit vše Re: perl - rozdelení stingu na pismena a uložení do pole
    Jenom pro uplnost: /(.)/g je mnohonasobne rychlejsi nez split //,$_
    4.12.2007 12:31 happy barney | skóre: 34 | blog: dont_worry_be_happy
    Rozbalit Rozbalit vše Re: perl - rozdelení stingu na pismena a uložení do pole
    len pre úplnosť, reťazec 'abcd', cmpthese:
                 Rate   split m/(.)/g
    split    378788/s      --    -87%
    m/(.)/g 2941176/s    676%      --
    
    20.2.2008 18:37 Janda Martin
    Rozbalit Rozbalit vše Re: perl - rozdelení stingu na pismena a uložení do pole
    A co když je ten text s českými znaky v utf8? Takto to rozřeže všechny ěščřžýá atd. Jak to vyřešit?
    20.2.2008 19:03 Janda Martin
    Rozbalit Rozbalit vše Re: perl - rozdelení stingu na pismena a uložení do pole
    Tak si odpovím:
    @znaky = split (/(?=\w)/,$reteec);
    
    20.2.2008 19:10 Janda Martin
    Rozbalit Rozbalit vše Re: perl - rozdelení stingu na pismena a uložení do pole
    Hm, stále mi to i tak vypisuje místo á nějaké paznaky. Když vytisknu celý řetězec tak je to ok, ale po znaku se to rozdělí na 2 patvary. Ať použiju use locale; use utf8; apod.
    24.2.2008 13:15 MartinJanda
    Rozbalit Rozbalit vše Re: perl - rozdelení stingu na pismena a uložení do pole
    Nakonec jsem to vyřešil následovně: Lze použít modul String::Multibyte, který mimo jiných funkcí nabízí i náhradu za split pro multibytové řetězce.
    use String::Multibyte;
    $utf8 = String::Multibyte->new('UTF8');
    $moje = "ěščřžýáíéů";
    @pole = $utf8->strsplit("", $moje);
    print Dumper(@pole);
    
    a funguje to.

    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.