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 17:53 | Bezpečnostní upozornění

Google na svém blogu věnovaném počítačové bezpečnost informuje o nalezení "reálného" způsobu generování kolizí hašovací funkce SHA-1. Podrobnosti a zdrojové kódy budou zveřejněny do 90 dnů. Již dnes lze ale na stránce SHAttered nalézt 2 pdf soubory, jejichž obsah se liší a SHA-1 otisk je stejný (infografika).

Ladislav Hagara | Komentářů: 0
dnes 17:51 | Nová verze

Vyšla nová verzia open source software na správu a automatizáciu cloudových datacentier Danube Cloud 2.4. Danube Cloud je riešenie postavené na SmartOS, ZFS, KVM a zónach. Obsahuje vlastnosti ako integrovaný monitoring, DNS manažment, zálohy, a samozrejme rozsiahlu dokumentáciu.

dano | Komentářů: 0
dnes 17:46 | Pozvánky

V Plzni se 3. až 5. března 2017 uskuteční AIMTEChackathon. Je to akce pro vývojáře, grafiky, webdesignéry i veřejnost. Akci provází zajímavé přednášky IT odborníků. Více o programu a možnosti přihlášení na stránkách akce.

cuba | Komentářů: 0
dnes 01:00 | Nová verze

Známý šifrovaný komunikátor Signal od verze 3.30.0 již nevyžaduje Google Play Services. Autoři tak po letech vyslyšeli volání komunity, která dala vzniknout Google-free forku LibreSignal (dnes již neudržovaný). Oficiální binárky jsou stále distribuované pouze přes Google Play, ale lze použít neoficiální F-Droid repozitář fdroid.eutopia.cz s nezávislými buildy Signalu nebo oficiální binárku stáhnout z Google Play i bez Google účtu

… více »
xm | Komentářů: 5
včera 23:14 | Nová verze

Po třech týdnech od vydání první RC verze byla vydána první stabilní verze 17.01.0 linuxové distribuce pro routery a vestavěné systémy LEDE (Linux Embedded Development Environment), forku linuxové distribuce OpenWrt. Přehled novinek v poznámkách k vydání. Dotazy v diskusním fóru.

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

Byly zveřejněny informace o bezpečnostní chybě CVE-2017-6074 v Linuxu zneužitelné k lokální eskalaci práv. Jde o chybu v podpoře DCCP (Datagram Congestion Control Protocol). Do linuxového jádra se dostala v říjnu 2005. V upstreamu byla opravena 17. února (commit). Bezpečnostní chyba byla nalezena pomocí nástroje syzkaller [Hacker News].

Ladislav Hagara | Komentářů: 8
včera 15:00 | Zajímavý software

Společnost Valve vydala novou beta verzi SteamVR. Z novinek lze zdůraznit oficiální podporu Linuxu. Další informace o podpoře této platformy pro vývoj virtuální reality v Linuxu v diskusním fóru. Hlášení chyb na GitHubu.

Ladislav Hagara | Komentářů: 0
včera 06:00 | Nová verze

Po necelém roce od vydání verze 0.67 byla vydána verze 0.68 populárního telnet a ssh klienta PuTTY. Podrobnosti v přehledu změn. Řešeny jsou také bezpečnostní chyby.

Ladislav Hagara | Komentářů: 0
21.2. 21:32 | Nasazení Linuxu

Canonical představuje nejnovější verzi chytré helmy DAQRI s Ubuntu pro rozšířenou realitu. K vidění bude příští týden v Barceloně na veletrhu Mobile World Congress 2017.

Ladislav Hagara | Komentářů: 0
21.2. 21:31 | Pozvánky

Pro zájemce o hlubší znalosti fungování operačních systémů připravila MFF UK nový předmět Pokročilé operační systémy, v rámci něhož se vystřídají přednášející nejen z řad pracovníků fakulty, ale dorazí také odborníci ze společností AVAST, Oracle, Red Hat a SUSE. Tento předmět volně navazuje na kurz Operační systémy ze zimního semestru, ale pokud máte praktické zkušenosti odjinud (například z přispívání do jádra Linuxu) a chcete si

… více »
Martin Děcký | Komentářů: 6
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (13%)
 (2%)
 (71%)
 (3%)
 (10%)
Celkem 690 hlasů
 Komentářů: 66, poslední včera 18:57
    Rozcestník

    Dotaz: perl - pocet vyskytov retazca v texte

    13.3.2006 12:14 hrobar | skóre: 13
    perl - pocet vyskytov retazca v texte
    Přečteno: 173×
    Trocha som hral v perle s regularnymi vyrazmi a skusal som naprogramovat skriptik, ktory pocita pocet vyskytov retazca v texte. Skript vyzera takto:
    #!/usr/bin/perl -w                                                              
    use strict;                                                                     
                                                                                    
    open(FAJL,$ARGV[0]);                                                            
    my @lines = < FAJL >                                                             
    close(FAJL);                                                                    
                                                                                    
    my $i;                                                                          
    my $vyskyt=0;                                                                   
                                                                                    
    for ( $i=0; $i<(scalar @lines)-1; $i++ ) {                                      
                                                                                    
    $vyskyt += ($lines[$i] =~ tr/msgstr/msgstr/);                                   
                                                                                                                                                                    
    }                                                                               
                                                                                    
    print $vyskyt."\n"; 
    Ako vstup je pouzity po subor pre lokalizaciu isteho programu. Subor ma 3265 riadkov. Retazec msgstr sa vyskytuje na riadku maximalne jedenkrat, navyse sa nevyskytuje na kazdom riadku a v pocte riadkov su zahrnute aj prazdne riadky. Kazdopadne pocet msgstr nema sancu prekrocit hranicu 3265 vyskytov. Pocet vyskytov by sa mal pohybovat niekde v rozpati 600-700 vyskytov. Avsak po spusteni skriptiku mi to hodi cislo 20850 vyskytov. Cim je to sposobene?

    Odpovědi

    13.3.2006 12:31 michich
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    Protoze tim ve skutecnosti pocitas, kolikrat se v textu vyskytuji pismenka m,s,g,t,r.
    13.3.2006 12:33 michich
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    Zmen to na: $vyskyt += ($lines[$i] =~ /msgstr/); a melo by to fungovat.
    13.3.2006 12:57 hrobar | skóre: 13
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    Tiez som mal pocit ze sa 'tr' na retazce neda aplikovat. Ide to aj nahradou 's' za 'tr' ale to tvoje riesenie je elegantnejsie. btw. ked regularnemu vyrazu neudam o co ide (s,tr,m) tak sa automaticky pocita s tym, ze ide o pattern matching teda 'm'? Inak povedane =~ /msgstr/ je to iste ako =~ m/msgstr/?
    13.3.2006 14:30 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    1. RTFM
    2. RTFM
    3. RTFM
    Tak dobrá
    1. tr není s ani m
    2. Když hledaný řeťezec nemůže přesahovat konec řádku, tak jen naprostý programátorský někňuba bude načítat do paměti celý soubor a i tak by to programátor, jen trochu zběhlý v perlu, udělal mnohem elegantněji takto:
      #!/usr/bin/env perl
      use warnings;
      use strict;
      undef $/;
      my $vyskyt=0;
      $_ = <>;
      $vyskyt++ while m/msgstr/g;
      print $vyskyt,"\n";
      
      Trošku zkušenější třeba takto
      #!/usr/bin/env perl
      use warnings;
      use strict;
      undef $/;
      print scalar @{[<> =~ m/msgstr/g]}, "\n";
    3. Jenže protože takový programátor nebude trouba a nebude načítat celý soubor do paměti, tak to udělá třeba takto:
      #!/usr/bin/env perl
      use warnings;
      use strict;
      my $vyskyt = 0;
      $vyskyt += @{[m/msgstr/g]} while <> ;
      print $vyskyt,"\n";
      
      Nebo dokonce jako onliner
      perl -ne '$vyskyt += @{[m/msgstr/g]}; END{print $vyskyt,"\n"}'
    XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
    13.3.2006 15:22 hrobar | skóre: 13
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    1. Ja som ani netvrdil ze tr=s=m. tr=translation, s=substitution, m=pattern matching.

    2. Nie vsetci su taky super spica neomylne dokonaly programatori ako ty.

    3. Diky za riesenia. Konecne som pochopil preco je perl "chlpaty".

    4. Nebolo by od veci keby si popri tom urazani odpovedal na otazku, ktoru som polozil a sice je =~ /msgstr/ to iste ako =~ m/msgstr/? Odpoviem si sam, je.
    13.3.2006 16:42 barney
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    to imho nebolo urážanie :-)

    btw, ešte môžeš skúsiť nasledovné:

    $vyskyt = grep { m/msgstr/ } <>;
    
    # alebo
    
    print scalar grep { m/msgstr/ } <>;
    

    to platí pre jeden riadok = jeden výskyt. Inak možno použiť i nasledovnú konštrukciu:
    $/ = 'msgstr';
    1 while <>;
    print $., "\n";
    
    13.3.2006 18:01 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    Inak možno použiť i nasledovnú konštrukciu:
    $/ = 'msgstr';
    1 while <>;
    print $., "\n";
    
    Máš bod :-) Ale správně to má být
    $/ = 'msgstr';
    1 while <>;
    print $. - 1, "\n";
    
    XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
    13.3.2006 18:15 barney
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    hmm, máš pravdu :-)

    TIMTOWDI ...
    undef $/;
    print -1 + scalar split (/msgstr/, <>), "\n";
    
    14.3.2006 08:58 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    Hezké, akorat to scalar je tam zbytečné, protože + to přepne do skalárního kontextu. Použít split mě nenapadlo a přitom je to tak hezké :-) Jako one liner a bez načítání všeho naráz to pak může být třeba
    perl -ne '$a+=-1+split/msgstr/; END{print "$a\n"}'
    Ale když už jsme u toho splitu, tak hezčí by bylo
    perl -Fmsgstr -ane '$a+=-1+@F; END{print "$a\n"}'
    XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
    14.3.2006 09:00 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    Můžem ještě ušetřit znak
    perl -Fmsgstr -ane'$a+=@F-1;END{print "$a\n"}'
    XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
    14.3.2006 09:01 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    A ještě jeden :-)
    perl -Fmsgstr -ane'$a+=$#F;END{print "$a\n"}'
    XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
    14.3.2006 09:10 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    Pro srovnání neoptimální načtení celého souboru
    perl -e'undef$/;print-1+split("msgstr",<>),"\n"'
    a nejkratší varianta se čtením po řádcích
    perl -Fmsgstr -ane'$a+=$#F;END{print"$a\n"}'
    XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
    14.3.2006 09:20 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    Jen pro pořádek aby byla sbírka kompletní
    perl -ne'BEGIN{$/="msgstr"}END{print$.-1,"\n"}'
    XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
    14.3.2006 09:32 barney
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    lol :-)
    jeden telefonát počas písania odpovede :-(((
    14.3.2006 09:37 barney
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    ok, ešte jedno vylepšenie ...
    perl -ne'BEGIN{$/=shift}END{print$.-1,"\n"}' msgstr
    
    rozdiel oproti nižšie spomenutému grep-u je v počítaní výskytov a nie riadkov s výskytom
    14.3.2006 10:06 mrak | skóre: 12 | Olomouc
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    myslel sem ze perl trochu umim ale pichi je demon!
    no zrejmne lepsi oddil :)
    14.3.2006 09:30 barney
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    :-))
    dúfam, že sme nikoho od perlu neodradili :-))

    v porovnani so split, resp s $/ má najkratší variant nevýhodu v tom, že hľadaný reťazec nemôže obsahovať new-line ... takže o tri znaky viac

    perl -ne'BEGIN{$/="msgstr"}END{print$.-1,"\n"}' 
    
    14.3.2006 09:27 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    Jo jentak mimochodem, když chci spočítat počet řádků obsahujících určitý řetězec, tak úplně nejlepší je
    grep -c msgstr
    XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
    14.3.2006 12:12 hrobar | skóre: 13
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    Ono to bolo cele trochu inak. Niekde na webe som narazil na nasledovnu konstrukciu $count +=($sentence =~ tr/*/*/). Zhodou okolnosti som pracoval na preklade isteho softu a zacalo mi v hlave vrtat(zo zvedavosti) ako by sa dalo v perle realizovat spocitanie vyskytu vybraneho retazca v urcitom subore, vyuzitim zmienovanej konstrukcie. Neslo mi o to aby to bolo naj a ani o to aby som spocital pocet retazcov v preklade. Tie sa daju lahko spocitat cez msgfmt --statistics your.po a netreba ani nic programovat. Potom si sa objavil ty a prisiel so svojimi minimalistickymi rieseniami, coz je fajn aspon sa nieco priucim. S preliezania webu a citania programov mam vsak skusenost taku, ze riesenia tvojho druhu sa moc nepouzivaju. Preco? Stale vsak uplne nerozumiem ako perl tie znaky pocita. Moj odhad je taky, ze obsah zatvorky vyhodnoti ako boolean a ten potom vrati ako 1 alebo 0. A pretoze ked v '$sentence' najde '*' vrati true co je 1 je mozne tohoto faktu vyuzit napriklad na urcenie poctu znakov v retazci. Mam pravdu, alebo sa mylim?
    14.3.2006 13:04 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    RTFM
           tr/SEARCHLIST/REPLACEMENTLIST/cds
           y/SEARCHLIST/REPLACEMENTLIST/cds
                   Transliterates all occurrences of the characters found in the
                   search list with the corresponding character in the replacement
                   list.  It returns the number of characters replaced or deleted.
                   If no string is specified via the =~ or !~ operator, the $_
                   string is transliterated.  (The string specified with =~ must
                   be a scalar variable, an array element, a hash element, or an
                   assignment to one of those, i.e., an lvalue.)
    
    XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
    14.3.2006 13:05 barney
    Rozbalit Rozbalit vše Re: perl - pocet vyskytov retazca v texte
    tr// vrati počet nahradených alebo zmazaných znakov. v tomto prípade koľko '*' sa nachádza v retazci.

    odpoveď na otázku "prečo" je jednoduchá ... drvivá vačšina programátorov sa zastaví pri prvom funkčnom riešení. A ako vidíš aj z tejto diskusie, riešenie iterovalo v niekoľkých krokoch. Nevraviac o tom, že tu sú vypísané asi všetky kroky, podľa toho, kto si kedy na akú vlastnosť spomenul :-)

    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.