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 | Zajímavý software

Společnost Google na svém blogu věnovaném open source představila container-diff, nástroj pro analýzu a porovnávání Docker kontejnerů. Zdrojové kódy jsou k dispozici pod licencí Apache 2.0.

Ladislav Hagara | Komentářů: 0
dnes 08:00 | Komunita

Flatpak Workshop proběhne ve středu 29. listopadu od 10:00 v Brně. V dopolední přednáškové části se účastníci seznámí s Flatpakem, se specifiky pro aplikace napsané v Qt a GTK+, portály, které integrují aplikace do systému, a na závěr, jak dostat aplikaci do Flathubu, což je momentálně největší centralizovaný repozitář Flatpaků. V odpolední části si pak mohou za pomoci lektorů zkusit nějakou aplikaci zabalit pro Flatpak. Workshop je určen pro 20 účastníků. Nutná je registrace.

Ladislav Hagara | Komentářů: 3
dnes 07:00 | Zajímavý článek

Software Freedom Law Center a Software Freedom Conservancy jsou organizace zaměřené na podporu svobodných/open-source projektů: SFLC poskytuje právní konzultace, SFC mj. také zázemí. SFC upozornila, že ze strany SFLC vůči ní proběhly právní kroky směřující k odebrání obchodní známky. SFLC v reakci tvrdí, že se jedná o logický krok, protože obchodní známky jsou si podobné, a SFC dlouhodobě nekooperuje. Brian Lunduke situaci shrnuje včetně ohlasů Neila McGoverna a Matthewa Garretta. Podle nich je Eben Moglen ze SFLC v konfliktu se zájmy komunity.

Fluttershy, yay! | Komentářů: 1
dnes 06:00 | Komunita

MariaDB Foundation, nadace stojící za vývojem open source relační databáze MariaDB, oznámila, že Microsoft se stal jejím členem a platinovým sponzorem. Cílem Microsoftu je optimalizace MariaDB pro cloudovou platformu Microsoft Azure.

Ladislav Hagara | Komentářů: 0
16.11. 23:44 | IT novinky

Společnosti Dell a Canonical společně představily 5 nových počítačů Dell Precision s předinstalovaným Ubuntu. Jedná se o 4 notebooky a 1 all-in-one počítač. Cena počítačů s Ubuntu je o 100 dolarů nižší než jejich cena s Windows 10.

Ladislav Hagara | Komentářů: 14
16.11. 22:55 | Nová verze

Po pěti měsících vývoje od vydání verze 4.8 byla vydána nová verze 4.9 svobodného open source redakčního systému WordPress. Kódové označením Tipton bylo vybráno na počest amerického jazzového muzikanta a kapelníka Billyho Tiptona.

Ladislav Hagara | Komentářů: 0
16.11. 22:11 | Pozvánky

Spolek OpenAlt zve příznivce otevřených technologií a otevřeného přístupu na 146. brněnský sraz, který proběhne v pátek 17. listopadu od 18:00 hodin v restauraci Bogota na Nových Sadech.

Ladislav Hagara | Komentářů: 0
16.11. 21:55 | Nová verze

Dle plánu byla vydána nová verze 9.2.1 živé linuxové distribuce Slax. Novinkou je především přechod ze Slackware na Debian a z KDE na Fluxbox.

Ladislav Hagara | Komentářů: 3
15.11. 22:44 | Zajímavý projekt

Vítězným projektem letošního ročníku soutěže určené vývojářům open source hardwaru Hackaday Prize se stal podvodní kluzák (YouTube, Onshape). Cenu za nejlepší produkt získala braillská klávesnice pro chytré telefony Tipo (YouTube).

Ladislav Hagara | Komentářů: 0
15.11. 06:33 | Nová verze

Byla vydána verze 3.3 ž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. Řešena je také řada bezpečnostních problémů.

Ladislav Hagara | Komentářů: 3
Jak se vás potenciálně dotkne trend odstraňování analogového audio konektoru typu 3,5mm jack z „chytrých telefonů“?
 (9%)
 (1%)
 (1%)
 (1%)
 (74%)
 (14%)
Celkem 693 hlasů
 Komentářů: 36, poslední 17.11. 18:43
    Rozcestník

    Dotaz: multiline grep

    30.4.2008 14:36 Terka | skóre: 13
    multiline grep
    Přečteno: 622×
    Mejme file kde zaznamy zacinaji "2008-" a jsou viceradkove. Chtela bych na nej provest grep tak aby mi zobrazil ne radky, ale zaznamy. Napsala jsem neco v Perlu, ale myslim, ze by to slo lepe. Muzete mi poradit?
    re="4718|4717";
    #main ######################################################
    $/=undef;
    
    
    while ($file=(<>)) # cteni z prikaz radky 
    {
    $a="\n".$file; #kvuli split \n2008
    chop ($a);  #kvuli print "$pole[$i]\n"; - zbavim se posledniho znaku enter
    @pole=split (/\n2008/,$a) ;
    $delka_pole=@pole;
    
    $i=1;
    while ($delka_pole > $i)
    {
        if ($pole[$i]=~/$re/)
        {
        $pridej ="2008" ;
        $pridej =$pridej.$pole[$i]."\n";
        $" = "";             #"########################### ok
        push (@vystup, $pridej);
        }
        $i++ ;
    }
    }
    

    Odpovědi

    30.4.2008 16:00 rastos | skóre: 60 | blog: rastos
    Rozbalit Rozbalit vše Re: multiline grep
    Je počet riadkov v zázname fixný? Ak áno, tak "grep -A".
    30.4.2008 16:37 Terka | skóre: 13
    Rozbalit Rozbalit vše Re: multiline grep
    neni, grep -A -B znam
    30.4.2008 16:41 Jan Šimák | skóre: 37 | Hradec Králové
    Rozbalit Rozbalit vše Re: multiline grep
    Přesně jsem nepochopil tvůj dotaz :-( ale pokud ti jde o počet úspěchů nalezení řetězce, tak by to šlo takto:
    chomp (my @var = STDIN>);
    my $times = grep (/se/m, @var);
    print "$times\n";
    30.4.2008 16:51 Terka | skóre: 13
    Rozbalit Rozbalit vše Re: multiline grep
    jde o grep ne na radky, ale na zaznamy. cili oddelovac neni \n ale ^2008.
    30.4.2008 20:01 ams
    Rozbalit Rozbalit vše Re: multiline grep
    perl -0777 -e 'print map "2008$_", grep /4718|4717/, split/\n2008/, <>' soubor_s_daty.dat
    
    30.4.2008 20:03 ams
    Rozbalit Rozbalit vše Re: multiline grep
    Pisu rychleji nez premyslim :). Toto bude lepsi:
    perl -0777 -e 'print grep /4718|4717/, split/\n(?=2008)/, <>' soubor_s_daty.dat
    
    30.4.2008 20:10 ams
    Rozbalit Rozbalit vše Re: multiline grep
    A jeste poznamka - kdybyste chtela nejakym zpusobem oznacit hranice zaznamu, pak je nejlepsi pouzit $,. Treba dat $,="\n####\n"; pred ten print.
    1.5.2008 11:23 Terka | skóre: 13
    Rozbalit Rozbalit vše Re: multiline grep
    diky za odpoved, mohla bych Vas poprosit jeste o komentar? S Perlem zacinam, tudiz nechapu jak Vas program pracuje. T.
    1.5.2008 11:59 Terka | skóre: 13
    Rozbalit Rozbalit vše Re: multiline grep
    me to za kazdym zaznamem tisklo \n, vam ho to netiskne.
    1.5.2008 12:59 Terka | skóre: 13
    Rozbalit Rozbalit vše Re: multiline grep
    uz mi to tiskne = moje blbost $,
    1.5.2008 13:09 Terka | skóre: 13
    Rozbalit Rozbalit vše Re: multiline grep
    tak to pomalu chapu
    -0777 nacte data jako jeden zaznam
    -e skript je v radce
    (?=2008) si zapamatuje 2008 a do pole to da vcetne toho 2008 (nezahodi tuto cast oddelovace)
    nechapu proc: 
    1. jsou carky mezi prikazy (jde o oddelovac vice prikazu na radce?)
    2. proc je poradi prikazu 1.print 2.split 3.<>
    diky!
    
    1.5.2008 13:17 Terka | skóre: 13
    Rozbalit Rozbalit vše Re: multiline grep
    muzete mi nekdo vysvetlit nasledujici:
    time cat soubor|perl -0777 -e '$,="\n", print grep /40030/, split/\n(?=2008)/, <>'
    real    0m1.137s
    user    0m0.760s
    sys     0m0.510s
    
    time cat soubor|perl -0777 -e 'print grep /40030/, split/(?=\n2008)/, <>' 
    real    0m8.116s
    user    0m7.800s
    sys     0m0.410s
    
    2.5.2008 12:04 ams
    Rozbalit Rozbalit vše Re: multiline grep
    Opravdu zvlastni chovani. Provedla jste mereni casu vicekrat u obou verzi?

    Co se tyce kodu, tak po $,="\n" bych radeji pouzil strednik misto carky i kdyz v tomto pripade je to celkem jedno. Carka obvykle neoddeluje prikazy (na to pouzivate strednik), ale zaznamy v seznamu anebo argumenty prikazu. Tento kod funguje takto:

    1) $,="\n"; Vkladame \n mezi jednotlive polozky v print. Napr., print("a","b","c"); ted vytiskne "a\nb\nc".

    2) Kdyz pridame zavorky, pak prikaz vypada nasledovne:
    print(grep(/40030/, split(/(?=\n2008)/, <>)))
    
    Takze to neni posloupnost prikazu, ale jsou to vlozene prikazy. Operator <> nacte cely soubor (protoze mame $/=undef v dusledku -0777). Provadime split na zaklade regexpu /(?=\n2008)/. Kdybychom pouzili jako oddelovac poli jenom /\n2008/, pak ztratili bychom tuto cast zaznamu (prave proto v mem prvnim reseni je map "2008$_", ktere vraci tuto cast zpatky). Kdyz pouzijeme look-ahead assertion (?=\n2008), pak vlastne provadime split v kazdem bode retezce, za kterym nasleduje \n2008, ale \n2008 neni brano jako soucast oddelovace poli. Vysledek splitu je seznam zaznamu, ktery je predavany jako druhy argument grepu. grep prochazi vsechny zaznamy tohoto seznamu a hleda jenom vyhovujici regexpu /40030/. Funguje nejak takto:
    for $_ (seznam_zaznamu_ktery_vygeneroval_split) {
       if ( $_ =~ /40030/ ) {
           nechame_tento_zaznam_ve_vysledku;
       } else {
           zahodime_tento_zaznam;
       }
    }
    
    Nakonec, print vytiskne vsechny nalezene zaznamy a vlozi mezi ne $, (v nasem pripade prazdny radek).
    2.5.2008 12:11 ams
    Rozbalit Rozbalit vše Re: multiline grep
    Mozna bude jednodussi si to zapsat jako nekolik prikazu:
    $, = "\n";
    $soubor = <>;
    @vsechny_zaznamy = split(/(?=\n2008)/, $soubor);
    @jenom_obsahujici_regexp = grep(/40030/, @vsechny_zaznamy);
    print @jenom_obsahujici_regexp;
    
    2.5.2008 12:26 Terka | skóre: 13
    Rozbalit Rozbalit vše Re: multiline grep
    ad 0) to mereni casu jsem delala nekolikrat.
    ad 1) ted je mi to jasne - vlozene prikazy - proto carka a proto to poradi.
    nakonec jsem tam jeste pridala sort (jako v mem puvodnim skriptu)
    casove je to +- stejne (muj puvodni vs vas)
    
    perl -0777 -e 'print sort grep /neco/, split/^(?=2008)/m, <>'
    velike diky za vysvetleni!
    
    2.5.2008 12:06 ams
    Rozbalit Rozbalit vše Re: multiline grep
    Mimochodem, misto cat soubor | perl -0777 -e '...' je lepsi pouzit perl -0777 -e '...' soubor
    2.5.2008 12:19 Terka | skóre: 13
    Rozbalit Rozbalit vše Re: multiline grep
    jasne. vim ze to je zacatecnicka chyba. delam to casto, lip se mi to cte.
    27.5.2008 07:33 jsk | skóre: 7
    Rozbalit Rozbalit vše Re: multiline grep

    Dobrý den,

    obdobný problém řeším tak, že pomocí tr -d '\r\n' (pro dos) spojím vše do jednoho řádku a následně sed-em rozřežu, na např. pro grep, použitelné řádky, tj. z mého pohledu standardně/typově začínající nebo končící. Pokud mi pošlete vzorek s konkrétním popisem požadavku, mohu se na to zkusit podívat.

    jsk
    27.5.2008 13:52 Yokotashi
    Rozbalit Rozbalit vše Re: multiline grep
    Predpokladam, ze soubor nemuze obsahovat nejaky znak (nebo muze jenom v komentari, kde se da snadno odstranit bez jeho poskozeni). Dejme tomu, ze ten znak je # (lze pouzit jakykoliv).

    cat file|sed 's/^2008/#/'|tr '\n#' '#\n'|grep 'treba konec tretiho#a zacatek ctvrteho radku zaznamu'|tr '\n#' '#\n'| sed 's/#/2008/g'

    Neni to moc hezke, ale funguje to spolehlive.
    27.5.2008 17:57 ams
    Rozbalit Rozbalit vše Re: multiline grep
    Napad je dobry, ale v tomto provedeni nefunguje uplne tak jak je treba. U prvniho nalezeneho zaznamu bude chybet 2008 a naopak za poslednim zaznamem bude 2008 navic. V textovych souborech zpravidla chybi znak s ASCII-kodem 0, proto muzeme pouzit sed 's/^2008/\x002008/' soubor_s_daty.dat | grep -z 'co_hledame' | tr -d '\0', ale i tak je to 4-krat pomalejsi nez reseni v Perlu.
    27.5.2008 18:04 ams
    Rozbalit Rozbalit vše Re: multiline grep
    Zase pisu rychleji nez premyslim :). Takhle to vypada lip (i kdyz funguje naproste stejne):
    sed 's/^2008/\x00&/' soubor_s_daty.dat | grep -z 'co_hledame' | tr -d '\0'

    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.