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:33 | Komunita

    Na Kickstarteru byla spuštěna crowdfundingová kampaň na podporu telefonu Murena 2 s /e/OS. Telefon má 2 hardwarové přepínače. Prvním lze jednoduše vypnout kamery a mikrofony. Druhým se lze odpojit od sítí.

    Ladislav Hagara | Komentářů: 1
    včera 20:11 | Bezpečnostní upozornění

    Společnost Qualcomm publikovala říjnový bezpečnostní bulletin. V úvodu informuje, že bezpečnostní chyby CVE-2023-33106, CVE-2023-33107, CVE-2022-22071 a CVE-2023-33063 jsou cíleně využívány útočníky. O CVE-2022-22071 se píše už v loňském květnovém bulletinu. Detaily o zbylých chybách jsou k dispozici OEM partnerům. Veřejně budou k dispozici až s vydáním prosincového bulletinu.

    Ladislav Hagara | Komentářů: 0
    včera 13:55 | Nová verze

    Byla vydána nová verze 5.18 živé linuxové distribuce Tails (The Amnesic Incognito Live System), jež klade důraz na ochranu soukromí uživatelů a anonymitu. Přehled změn v příslušném seznamu. Tor Browser byl povýšen na verzi 12.5.6. Tor na verzi 0.4.8.6.

    Ladislav Hagara | Komentářů: 0
    včera 10:55 | Nová verze

    Šifrovací nástroj VeraCrypt v menším vydání 1.26.7 nejen opravuje chyby a aktualizuje podporované algoritmy (podrobnosti v poznámkách vydání), ale také přestává podporovat původní svazky TrueCrypt.

    Fluttershy, yay! | Komentářů: 0
    včera 09:00 | Pozvánky

    V sobotu 7. října proběhne Maker Faire Liberec, festival plný workshopů, interaktivních činností a především nadšených a zvídavých lidí.

    Ladislav Hagara | Komentářů: 0
    včera 08:00 | Zajímavý článek Ladislav Hagara | Komentářů: 0
    2.10. 23:44 | Komunita

    Ubuntu Summit 2023 proběhne od 3. do 5. listopadu v Rize.

    Ladislav Hagara | Komentářů: 0
    2.10. 19:33 | Nová verze

    Programovací jazyk Python byl vydán v nové major verzi 3.12.0. Podrobný přehled novinek v Changelogu.

    Ladislav Hagara | Komentářů: 0
    2.10. 17:00 | Zajímavý projekt

    Linux ve Scratchi. Ne Linux v linuxové distribuci Linux From Scratch, ale Linux bežící v emulátoru procesoru RISC-V ve vizuálním programovacím jazyce Scratch.

    Ladislav Hagara | Komentářů: 0
    2.10. 16:22 | Pozvánky

    Dnes ve 12 hodin začal další ročník CTF (Capture the Flag) soutěže The Catch: "Tentokrát nás kolegové z Forenzní laboratoře zavedou na loď plnou sofistikovaných síťových technologiích, kde soutěžící budou muset zvládnout náročné úkoly. Loď nese jméno našeho skvělého kolegy Josefa Vericha – síťového guru. Tradičně se soutěž koná v říjnu – měsíci kybernetické bezpečnosti."

    Ladislav Hagara | Komentářů: 1
    Raději
     (53%)
     (47%)
    Celkem 49 hlasů
     Komentářů: 3, poslední 2.10. 23:31
    Rozcestník

    Dotaz: perl od-do vcetne

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