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í
×

včera 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
včera 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
včera 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
včera 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
včera 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
včera 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ářů: 4
včera 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%)
 (33%)
 (1%)
 (8%)
 (44%)
 (9%)
Celkem 587 hlasů
 Komentářů: 62, poslední 19.5. 01:57
    Rozcestník

    Dotaz: perl od-do vcetne

    31.10.2008 14:22 Terka | skóre: 13
    perl od-do vcetne
    Přečteno: 281×
    perl umi 
    /od/../do/
    napr. ze souboru:
    1
    2od
    3
    4
    5do
    6do 
    7do  
    8
    
    vytiskne:
    2od
    3
    4
    5do
    
    lze nejak nastavit aby tisknul vcetne (napr ve VIMu to jde pomoci +-: /od/+,/do/-)
    

    Odpovědi

    1.11.2008 12:48 happy barney | skóre: 34 | blog: dont_worry_be_happy
    Rozbalit Rozbalit vše Re: perl od-do vcetne
    len programovo (netestovane):
    my $state = 0;
    while (<>) {
      next unless $state ||= m/od/;
      print;
      last if m/do;
    }
    
    popr sa mozes pohrat s grep (tiez netestovane):
    my $state = 0;
    my @list = grep { $state ||= m/od/; $state &&= ! m/do; $state } <>
    
    4.11.2008 12:30 Roman Vasicek
    Rozbalit Rozbalit vše Re: perl od-do vcetne
    V prvnim priklade chybi jen '/' pred poslednim strednikem pro dosazeni kyzene funkcnosti. Funkcni verze
    my $state = 0;
    while (<>) {
      next unless $state ||= m/od/;
      print;
      last if m/do/;
    }
    
    Druhy priklad potrebuje krapet upravit aby zahrnul i "do" radek. Pro prehlednost jsem jej rozepsal na vice radek
    my $state = 0;
    print grep {
        $state ||= m/od/;
        if ($state) {
          $state &&= ! m/do/;
          1;
        } else {
          $state;
        }
      } <>;
    
    Oboji testovano v perl v5.10.0 pod cygwinem.
    4.11.2008 13:37 happy barney | skóre: 34 | blog: dont_worry_be_happy
    Rozbalit Rozbalit vše Re: perl od-do vcetne
    ok dík za otestovanie a opravu :-)
    btw, else vetva je zbytočná, návratová hodnota funkcie je hodnota posledného vykonaného výrazu, v tomto prípade $state
    13.11.2008 10:19 Terka | skóre: 13
    Rozbalit Rozbalit vše Re: perl od-do vcetne
    resila jsem to takhle, je to delsi, ale pro me srozumitelne.
    bohuzel to nejde jako one-liner :(
    $tisk=0;
    
    open(INPUT,  $in) ;
    
    
    ######### tisk vybranych # 
    while ($radek =INPUT) { #tady ma byt INPUT v spic. zavorkach
      #OD  kdyz je zacatek, je $tisk=1
      if ($radek =~/od/) {
         $tisk=1;
      }
    
      #DO kdyz je konec, vytiskni ho, a $tisk=0
      if ($radek =~/do/) {
         print $radek;
         $tisk=0;
      }
    
      #vlastni tisk pro $tisk=1
      if ($tisk==1) {
         print $radek;
      }
    }
    
    10.11.2008 12:13 Terka | skóre: 13
    Rozbalit Rozbalit vše Re: perl od-do vcetne
    diky obema!

    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.