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 03:00 | Komunita

Na Humble Bundle lze získat počítačovou hru Company of Heroes 2 (Wikipedie, YouTube) běžící také v Linuxu zdarma. Speciální akce končí v sobotu v 19:00.

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

Christian Kellner představil na svém blogu projekt Bolt řešící bezpečnost rozhraní Thunderbolt 3 na Linuxu. Pomocí příkazu boltctl nebo rozšíření GNOME Shellu lze komunikovat s démonem boltd a například zakázat neznámá zařízení a předejít tak útokům typu Thunderstrike nebo DMA.

Ladislav Hagara | Komentářů: 1
dnes 01:00 | Nová verze

Po půl roce vývoje od vydání verze 11.0 byla vydána verze 11.1 svobodného softwaru pro vytváření datových úložišť na síti FreeNAS (Wikipedie). Nejnovější FreeNAS je postaven na FreeBSD 11.1. Přehled novinek v příspěvku na blogu. Zdůraznit lze zvýšení výkonu OpenZFS, počáteční podporu Dockeru nebo synchronizaci s cloudovými službami Amazon S3 (Simple Storage Services), Backblaze B2 Cloud, Google Cloud a Microsoft Azure

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

Po dvou měsících vývoje od vydání verze 235 oznámil Lennart Poettering vydání verze 236 správce systému a služeb systemd (GitHub, NEWS).

Ladislav Hagara | Komentářů: 1
včera 20:00 | Nová verze Ladislav Hagara | Komentářů: 0
včera 19:33 | Pozvánky

Pražská Fedora 27 Release Party, oslava nedávného vydání Fedory 27, se uskuteční 19. prosince od 19:00 v prostorách společnosti Etnetera (Jankovcova 1037/49). Na programu budou přednášky o novinkách, diskuse, neřízený networking atd.

Ladislav Hagara | Komentářů: 0
včera 18:11 | Nová verze

Byla vydána verze 2.11.0 QEMU (Wikipedie). Přispělo 165 vývojářů. Provedeno bylo více než 2 000 commitů. Přehled úprav a nových vlastností v seznamu změn.

Ladislav Hagara | Komentářů: 0
včera 17:44 | Komunita

Canonical oznámil dostupnost kryptografických balíčků s certifikací FIPS 140-2 úrovně 1 pro Ubuntu 16.04 LTS pro předplatitele podpory Ubuntu Advantage Advanced. Certifikace FIPS (Federal Information Processing Standards) jsou vyžadovány (nejenom) vládními institucemi USA.

Ladislav Hagara | Komentářů: 3
včera 16:11 | Zajímavý software

Společnost Avast uvolnila zdrojové kódy svého dekompilátoru RetDec (Retargetable Decompiler) založeného na LLVM. Vyzkoušet lze RetDec jako webovou službu nebo plugin pro interaktivní disassembler IDA. Zdrojové kódy RetDec jsou k dispozici na GitHubu pod open source licencí MIT.

Ladislav Hagara | Komentářů: 3
13.12. 11:00 | Zajímavý software
Na Good Old Games je v rámci aktuálních zimních slev zdarma k dispozici remasterovaná verze klasické point&click adventury Grim Fandango, a to bez DRM a pro mainstreamové OS včetně GNU/Linuxu. Akce trvá do 14. prosince, 15:00 SEČ.
Fluttershy, yay! | Komentářů: 6
Jak se vás potenciálně dotkne trend odstraňování analogového audio konektoru typu 3,5mm jack z „chytrých telefonů“?
 (8%)
 (1%)
 (1%)
 (1%)
 (75%)
 (14%)
Celkem 992 hlasů
 Komentářů: 45, poslední 1.12. 19:00
    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.