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 13:33 | Nová verze

    Svobodný kancelářský balík ONLYOFFICE (Wikipedie) byl vydán ve verzi 9.0. Jak online Docs, tak i offline Desktop Editors. Přehled novinek také na YouTube.

    Ladislav Hagara | Komentářů: 0
    dnes 02:11 | Nová verze

    Byla vydána nová verze 5.2.0 programu na úpravu digitálních fotografií darktable (Wikipedie).

    Ladislav Hagara | Komentářů: 0
    dnes 00:55 | Zajímavý software

    XLibre Xserver je fork X.Org Serveru. Enrico Weigelt včera oznámil vydání verze 25.0 se slovy "tento fork je nezbytným, protože je výslovným přáním většiny současné skupiny X.Org (IBM / Red Hat) opustit projekt, nechat ho navždy shnít a blokovat jakékoli podstatné příspěvky, natož nové funkce".

    Ladislav Hagara | Komentářů: 15
    dnes 00:22 | Komunita

    Na čem aktuálně pracují vývojáři GNOME a KDE Plasma? Pravidelný přehled novinek v Týden v GNOME a Týden v KDE Plasma.

    Ladislav Hagara | Komentářů: 0
    včera 17:33 | Bezpečnostní upozornění

    Experti na kybernetickou bezpečnost potvrdili (en) největší dosud zaznamenaný únik dat. Hackeři při něm odkryli skoro 16 miliard přihlašovacích údajů z celého světa včetně účtů společností Google, Apple, Facebook, dalších sociálních sítí nebo některých serverů státní správy.

    Ladislav Hagara | Komentářů: 2
    20.6. 19:55 | IT novinky

    Společnost Meta ve spolupráci se společností Oakley oznámila řadu chytrých brýlí Oakley. První Oakley Meta HSTN si lze předobjednat za 499 dolarů.

    Ladislav Hagara | Komentářů: 0
    20.6. 16:11 | IT novinky

    Ministerstvo průmyslu a obchodu (MPO) vyjádřilo podporu předložení projektu AI Gigafactory CZ, který do veřejné konzultace Evropské komise zaslala společnost České Radiokomunikace (CRA) v rámci iniciativy Project AIGF CZ. Jde o významný krok k rozvoji výpočetní infrastruktury pro umělou inteligenci (AI), která je prioritou resortu. Projekt je v souladu s cíli Národní strategie umělé inteligence ČR 2030 a je již součástí návrhu

    … více »
    Ladislav Hagara | Komentářů: 13
    20.6. 13:11 | Zajímavý článek

    Nové číslo časopisu Raspberry Pi zdarma ke čtení: Raspberry Pi Official Magazine 154 (pdf). S podtitulem Automatizace domácnosti.

    Ladislav Hagara | Komentářů: 0
    20.6. 12:22 | IT novinky

    Americký prezident Donald Trump podepsal exekutivní příkaz, který prodlužuje lhůtu pro prodej amerických aktiv aplikace TikTok vlastněné čínskou společností ByteDance do amerických rukou o dalších 90 dnů. Americký Kongres loni v dubnu kvůli bezpečnostním obavám přijal zákon, podle kterého měl vstoupit v platnost zákaz sítě TikTok v USA v případě, že se prodej neuskuteční do 19. ledna. Trump však v lednu lhůtu pro prodej prodloužil o 75 dnů. V dubnu pak přikročil k prodloužení o dalších 75 dnů, lhůta tak měla vypršet dnešním dnem.

    Ladislav Hagara | Komentářů: 4
    20.6. 12:11 | IT novinky

    Microsoft hodlá zrušit další tisíce pracovních míst, a to především v obchodních odděleních. Předchozí kolo propouštění se uskutečnilo v květnu a dotklo se 6000 zaměstnanců. Vedení firmy již dříve upozornilo, že vzhledem k rozsáhlým investicím do umělé inteligence (AI) se bude snažit omezovat výdaje v jiných oblastech.

    Ladislav Hagara | Komentářů: 5
    Jaký je váš oblíbený skriptovací jazyk?
     (57%)
     (29%)
     (7%)
     (2%)
     (0%)
     (1%)
     (3%)
    Celkem 291 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.