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 09:44 | Pozvánky

Již tento víkend 4. a 5. března proběhne v Praze na Karlově náměstí 13 konference InstallFest 2017. Na programu je celá řada zajímavých přednášek a workshopů. Jaké linuxové distribuce používají návštěvníci chystající se na konferenci? Odpověď na Twitteru.

Ladislav Hagara | Komentářů: 1
dnes 08:44 | Nová verze

Minulý týden byla vydána verze 8.0.0 minimalistické linuxové distribuce (JeOS, Just enough Operating System) pro Kodi (dříve XBMC) a multimediálního centra LibreELEC (Libre Embedded Linux Entertainment Center). Jedná se o fork linuxové distribuce OpenELEC (Open Embedded Linux Entertainment Center). LibreELEC 8.0.0 přichází s Kodi 17.0 Krypton.

Ladislav Hagara | Komentářů: 0
včera 12:30 | IT novinky

Nadace Raspberry Pi představila (YouTube) Raspberry Pi Zero W. Jedná se o vylepšenou verzi miniaturního počítače Raspberry Pi Zero s Wi-Fi a Bluetooth. Koupit jej lze za 10 dolarů. V prodeji je také oficiální krabička.

Ladislav Hagara | Komentářů: 15
včera 00:55 | Komunita

Pocket (dříve Read It Later) (Wikipedie) je oblíbená služba umožňující uložit si článek z webu na později. V červnu 2015 s vydáním Firefoxu 38.0.5 se do té doby doplněk Pocket stal integrovanou součásti Firefoxu, a to i přes odpor celé řady uživatelů tohoto webového prohlížeče. Mozilla po měsících ustoupila a z integrované součásti se stal opět doplněk. Včera bylo oznámeno, že Mozilla službu Pocket kupila (Mozilla Blog, Pocket Blog).

Ladislav Hagara | Komentářů: 20
27.2. 23:55 | Pozvánky

Tentokrát jsme si pro vás připravili neobvyklou akci. Ve středu 1. 3. v 17:30 nás přivítá sdružení CZ.NIC ve svých prostorách v Milešovské ulici číslo 5 na Praze 3, kde si pro nás připravili krátkou prezentaci jejich činnosti.

… více »
xkucf03 | Komentářů: 0
27.2. 18:30 | Komunita

Jednodeskový počítač Raspberry Pi slaví již 5 let. Prodej byl spuštěn 29. února 2012. O víkendu proběhne v Cambridgi velká narozeninová party. Na YouTube bylo při této příležitosti zveřejněno video představující zajímavé projekty postavené na Raspberry Pi.

Ladislav Hagara | Komentářů: 3
27.2. 18:30 | Nová verze

Byla vydána verze 2017.1.1 svobodného multiplatformního leteckého simulátoru FlightGear. Kódový název a výchozí letiště této verze je Bergen. Přehled novinek v Changelogu.

Ladislav Hagara | Komentářů: 0
27.2. 10:50 | Zajímavý software

Mozilla.cz informuje o dvou nových experimentálních funkcích v programu Firefox Test Pilot (zprávička). Snooze Tabs slouží k odkládání panelů na později. Pokud vám někdo pošle odkaz, ale vy nemáte čas si stránku hned přečíst, můžete si naplánovat otevření panelu na později. Stačí kliknout na tlačítko a vybrat, kdy chcete panel otevřít. Firefox panel schová a ve vybraný čas znovu otevře. Pulse umožňuje ohodnotit, jak dobře stránka funguje, např. jak rychle se ve Firefoxu načetla. Podle nasbíraných hodnocení pak bude Mozilla prohlížeč ladit.

Ladislav Hagara | Komentářů: 10
27.2. 02:00 | IT novinky

V Barceloně probíhá veletrh Mobile World Congress 2017. Nokia na něm například představila (360° video na YouTube) novou Nokii 3310 (YouTube). BlackBerry představilo BlackBerry KEYone (YouTube) s QWERTY klávesnicí. LG představilo LG G6 (YouTube). Huawei HUAWEI P10 a P10 Plus. Samsung představil tablet Galaxy Tab S3.

Ladislav Hagara | Komentářů: 3
26.2. 14:00 | Nová verze

Komunita kolem Linuxu From Scratch (LFS) vydala Linux Linux From Scratch 8.0 a Linux From Scratch 8.0 se systemd. Nové verze knih s návody na instalaci vlastního linuxového systému ze zdrojových kódů přichází především s Glibc 2.25 a GCC 6.3.0. Současně bylo oznámeno vydání verze 8.0 knih Beyond Linux From Scratch (BLFS) a Beyond Linux From Scratch se systemd.

Ladislav Hagara | Komentářů: 0
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (13%)
 (2%)
 (72%)
 (3%)
 (10%)
Celkem 743 hlasů
 Komentářů: 72, poslední dnes 11:16
    Rozcestník

    Dotaz: Prosím o pomoc s PERL

    11.11.2009 11:38 TAPSOFT
    Prosím o pomoc s PERL
    Přečteno: 277×
    Dobrý den,mám dotaz.Mám program (robot chatu) který má přibližně 38 txt souboru,je tam zdravení,slova na vyhazování a td. Chtěl bych všechno sloučit do jednoho a z něj to načítat,ale abych mohl oddělit věty ke každé té položce.Děkuji

    Odpovědi

    11.11.2009 12:44 moira | skóre: 30 | blog: nesmysly
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
    Napsal jsi PŘÍLÍŠ málo na to, aby ti někdo mohl poradit.
    Překladač ti nikdy neřekne: "budeme kamarádi"
    11.11.2009 12:46 extremni lama | skóre: 14 | blog: e_lama
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
    mozna jsem to jenom ja, ale to zadani jsem vubec nepochopil. Jinak slouceni treba takhle:
    `cat *.txt >all`;
    (samozrejme existuje milion jinejch zpusobu)
    The enemy of my enemy is still my enemy.
    11.11.2009 12:56 TAPSOFT
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
    udám to tedy přesněji,mám několik souboru třeba první je holky.txt a v něm nick11 nick21 nick31 nick41

    pak další soubor kluci.txt nick1 nick2 nick3 nick4

    a td a protože těch souboru je větší množství,chci udělat jeden soubor třeba vse.txt a v něm např. -nick11 -nick21 -nick31 -nick41 nick1 nick2 nick3 nick4

    ale aby je robot.pl načetl do správných proměnných ted to mám takto $a = 0; $radek = ''; open(xx, 'holky.txt') or die "nelze nacist soubor holky.txt\n"; while($radek = < xx>) { if (substr($radek, 0, 1) ne '#') { $holky[$a] = $radek; $a++; }} close( xx);

    $a = 0; $radek = ''; open(xx, 'kluci.txt') or die "nelze nacist soubor kluci.txt\n"; while($radek = < xx>) { if (substr($radek, 0, 1) ne '#') { $kluci[$a] = $radek; $a++; }} close( xx);
    11.11.2009 15:09 extremni lama | skóre: 14 | blog: e_lama
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
    treba takhle?
    ;
    @g = ();
    @b = ();
    
    $map{"g"} = \@g;
    $map{"b"} = \@b;
    
    open(F, "file.txt");
    while (<F>)
    {
            if (m/(.*):(.*)/)
            {
                    push @{ $map{$1} }, $2;
            }
    }
    close(F);
    
    print "G:\n";
    for $i (@g) { print "\t$i\n"; }
    
    print "B:\n";
    for $i (@b) { print "\t$i\n"; }
    
    ocekava se ze file.txt bude ve formatu:
    g:nick1
    g:nick2
    b:nick3
    b:nick4
    g:nick5
    ...
    The enemy of my enemy is still my enemy.
    11.11.2009 15:26 TAPSOFT
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
    a ted samořejmě těcj +- 38 spuboru můžu udělat do jednoho a to rozlišit tím b.g a td...??? Jinak moc děkuji,zkusím to
    11.11.2009 15:35 extremni lama | skóre: 14 | blog: e_lama
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
    presne tak. a klidne muzes pouzit i delsi identifikatory nez jenom b a g
    The enemy of my enemy is still my enemy.
    12.11.2009 13:45 ph0enix | skóre: 18 | Praha
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL

    Nebo to rozdel do sekci a identifikator dej pouze pred prvni zaznam dane sekce (neco na zpusob *.ini souboru ve Windows). Zpusob zapisu oddelovace si zvol jaky ti vyhovuje - napriklad

    [nazev sekce]
    data
    data

    nebo

    ::nazev sekce
    data
    data

    nebo

    nazev sekce:
    data
    data

    atd.

    12.11.2009 13:40 ph0enix | skóre: 18 | Praha
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL

    Spojeni do jednoho souboru muzes udelat napriklad takto

    for X in *.txt; do
     echo "[${X%.txt}]">>all.txt;
     cat $X >>all.txt;
    done

    Puvodni jmena souboru (bez pripony) jsou pouzity jako oddelovace/nazvy sekci. Vysledny soubor s daty tedy muze vypadat takto

    [kluci]
    mnick1
    # komentar
    mnick2
    mnick3
    
    [holky]
    fnick1
    fnick2
    fnick3

    Pokud vylozene nepotrebujes extra promenne tak bych to pak nacital do HASHe - treba nasledujicim zpusobem

    my %data;
    my $line;
    my $sekce = 'neznama';
    my $config = 'all.dat';
    
    # nacteme data/konfiguraci
    if (open(DATAIN, $config)) {
        while ($line = <DATAIN>) {
            chomp($line);
            next if ($line =~ /^\s*$/);
            next if ($line =~ /^\s*#/);
            if ($line =~ /^\s*\[([^\]]+)]\s*$/) {
                # nalezena nova sekce dat
                $sekce = $1;
                $sekce =~ s/^\s*//;
                $sekce =~ s/\s*$//;
            } else {
                # cteme data
                push @{$data{$sekce}}, $line;
            }
        }
        # data nactena - zavreme soubor
        close(DATAIN);
    } else {
        die("Nelze otevrit soubor '$config'");
    }
    
    # pokracuje vlastni kod programu
    # ...

    Jednotlive kategorie/seznamy jsou pristupne jako @{$data{'jmeno seznamu'}} (napr.: @{$data{holky}} a polozky pak $data{'jmeno seznamu'}[index] (napr.: $data{'holky'}[1]. Seznam vsech nactenych kategorii/seznamu ziskas pomoci keys %data.

    12.11.2009 20:29 TAPSOFT
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
    Tohle vypadá schopně,díky zkusím
    13.11.2009 06:53 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
    Pokud používáte perl, naučte se používat taky CPAN.

    Config::INI a další

    Proč? Protože to vždycky někdo vymyslel už před vámi, ale ne zažvejkaně jen pro sebe na koleně, ale použitelně.
    In Ada the typical infinite loop would normally be terminated by detonation.
    13.11.2009 09:34 ph0enix | skóre: 18 | Praha
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL

    Diky za doporuceni a odkaz na CPAN. Pro vasi informaci na CPANu mam nekolik modulu a vyvoj v PERLu mne i pred lety zivil. Pri pouzivani CPAN modulu jsem bohuzel casto narazil na velmi promenlivou kvalitu kodu a dokumentace. Velmi casto je k dispozici nekolik modulu pro stejny ukol a zadny z nich to nedela poradne… To je ale namet na uplne jinou a poradne dlouhou diskusi.

    Po precteni tazatelova prispevku jsem mu chtel ukazat kousek PERLoveho kodu a silu PERlu. Tazatel zrejme prechazi z C ci neceho podobneho. Pri pouhem uvedeni odkazu na CPAN ci konkretni modul tak tazatel zrejme zustane u psani ceckoveho kodu v PERLu a nevyuzije silu a prednosti tohoto jazyka.

    Napriklad pokud pouze plnim pole, nepotrebuji si udrzovat index posledniho prvku, tedy namisto

    $holky[$a] = $radek;
    $a++;

    lze jednoduse pouzit

    push @holky, $radek;

    Pokud potrebuji pocet prvku, ziskam jej z @holky ve skalarnim kontextu, jenz si lze vynutit pomoci scalar(@holky). Index posledniho prvku pak je $#holky. Tazatel take jeste prilis nezna kouzlo regularnich vyrazu umoznujici volnost v psani zaznamu ve vstupnim souboru (napriklad volitelne mezery jenz nekdy text udelaji pro cloveka prehlednejsim) namisto pouziti substr() kde musim mit zaznam presnou strukturu.

    13.11.2009 13:28 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Prosím o pomoc s PERL
    OK, chápu. Ale dobrá půlka síly perlu je v CPANu.

    Jinak k tomu snippetu bych tedy měl ještě 2 zdokonalující poznámky. Dnes už se používá open(my $input, ...) místo open(INPUT, ...). Vypadá to jako nuance ale má to dalekosáhlé dopady (k lepšímu). A také není potřeba mít if...else otevření selhalo, ale stačí použít autodie.
    In Ada the typical infinite loop would normally be terminated by detonation.

    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.