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 16:11 | Komunita

    V Brestu dnes začala konference vývojářů a uživatelů linuxové distribuce Debian DebConf25. Na programu je řada zajímavých přednášek. Sledovat je lze online.

    Ladislav Hagara | Komentářů: 0
    dnes 11:33 | IT novinky

    Před 30 lety, tj. 14. července 1995, se začala používat přípona .mp3 pro soubory s hudbou komprimovanou pomocí MPEG-2 Audio Layer 3.

    Ladislav Hagara | Komentářů: 12
    dnes 10:55 | IT novinky

    Výroba 8bitových domácích počítačů Commodore 64 byla ukončena v dubnu 1994. Po více než 30 letech byl představen nový oficiální Commodore 64 Ultimate (YouTube). S deskou postavenou na FPGA. Ve 3 edicích v ceně od 299 dolarů a plánovaným dodáním v říjnu a listopadu letošního roku.

    Ladislav Hagara | Komentářů: 16
    včera 17:55 | Zajímavý projekt

    Společnost Hugging Face ve spolupráci se společností Pollen Robotics představila open source robota Reachy Mini (YouTube). Předobjednat lze lite verzi za 299 dolarů a wireless verzi s Raspberry Pi 5 za 449 dolarů.

    Ladislav Hagara | Komentářů: 11
    11.7. 16:44 | Komunita

    Dnes v 17:30 bude oficiálně vydána open source počítačová hra DOGWALK vytvořena v 3D softwaru Blender a herním enginu Godot. Release party proběhne na YouTube od 17:00.

    Ladislav Hagara | Komentářů: 3
    11.7. 14:55 | Humor

    McDonald's se spojil se společností Paradox a pracovníky nabírá také pomocí AI řešení s virtuální asistentkou Olivii běžící na webu McHire. Ian Carroll a Sam Curry se na toto AI řešení blíže podívali a opravdu je překvapilo, že se mohli přihlásit pomocí jména 123456 a hesla 123456 a získat přístup k údajům o 64 milionech uchazečů o práci.

    Ladislav Hagara | Komentářů: 16
    11.7. 00:11 | Nová verze

    Byla vydána (𝕏) červnová aktualizace aneb nová verze 1.102 editoru zdrojových kódů Visual Studio Code (Wikipedie). Přehled novinek i s náhledy a videi v poznámkách k vydání. Ve verzi 1.102 vyjde také VSCodium, tj. komunitní sestavení Visual Studia Code bez telemetrie a licenčních podmínek Microsoftu.

    Ladislav Hagara | Komentářů: 0
    10.7. 21:00 | Bezpečnostní upozornění

    Byla vydána nová verze 2.4.64 svobodného multiplatformního webového serveru Apache (httpd). Řešeno je mimo jiné 8 bezpečnostních chyb.

    Ladislav Hagara | Komentářů: 4
    10.7. 15:22 | Nová verze

    Společnost xAI na síti 𝕏 představila Grok 4, tj. novou verzi svého AI LLM modelu Grok.

    Ladislav Hagara | Komentářů: 12
    10.7. 12:55 | Bezpečnostní upozornění

    Ministerstvo vnitra odhalilo závažný kyberincident v IT systému resortu. Systém, do kterého se dostal útočník bez oprávnění, byl odpojen a nedošlo k odcizení dat [𝕏].

    Ladislav Hagara | Komentářů: 16
    Jaký je váš oblíbený skriptovací jazyk?
     (59%)
     (27%)
     (7%)
     (3%)
     (1%)
     (1%)
     (4%)
    Celkem 391 hlasů
     Komentářů: 16, poslední 8.6. 21:05
    Rozcestník

    Dotaz: perl od-do vcetne

    31.10.2008 14:22 Terka | skóre: 13
    perl od-do vcetne
    Přečteno: 309×
    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.