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:44 | Zajímavý článek

    Jak si zobrazit pomocí Chrome a na Chromiu založených webových prohlížečích stránky s neplatným certifikátem? Stačí napsat thisisunsafe.

    Ladislav Hagara | Komentářů: 0
    dnes 00:33 | Bezpečnostní upozornění

    V repozitáři AUR (Arch User Repository) linuxové distribuce Arch Linux byly nalezeny a odstraněny tři balíčky s malwarem. Jedná se o librewolf-fix-bin, firefox-patch-bin a zen-browser-patched-bin.

    Ladislav Hagara | Komentářů: 8
    dnes 00:22 | Komunita

    Dle plánu by Debian 13 s kódovým názvem Trixie měl vyjít v sobotu 9. srpna.

    Ladislav Hagara | Komentářů: 0
    včera 13:22 | Komunita

    Vývoj linuxové distribuce Clear Linux (Wikipedie) vyvíjené společností Intel a optimalizováné pro jejich procesory byl oficiálně ukončen.

    Ladislav Hagara | Komentářů: 1
    18.7. 14:00 | Zajímavý článek

    Byl publikován aktuální přehled vývoje renderovacího jádra webového prohlížeče Servo (Wikipedie).

    Ladislav Hagara | Komentářů: 0
    18.7. 12:00 | Nová verze

    V programovacím jazyce Go naprogramovaná webová aplikace pro spolupráci na zdrojových kódech pomocí gitu Forgejo byla vydána ve verzi 12.0 (Mastodon). Forgejo je fork Gitei.

    Ladislav Hagara | Komentářů: 1
    17.7. 18:44 | Zajímavý článek

    Nová čísla časopisů od nakladatelství Raspberry Pi zdarma ke čtení: Raspberry Pi Official Magazine 155 (pdf) a Hello World 27 (pdf).

    Ladislav Hagara | Komentářů: 1
    17.7. 16:11 | Nová verze

    Hyprland, tj. kompozitor pro Wayland zaměřený na dláždění okny a zároveň grafické efekty, byl vydán ve verzi 0.50.0. Podrobný přehled novinek na GitHubu.

    Ladislav Hagara | Komentářů: 4
    17.7. 15:55 | Komunita

    Patrick Volkerding oznámil před dvaatřiceti lety vydání Slackware Linuxu 1.00. Slackware Linux byl tenkrát k dispozici na 3,5 palcových disketách. Základní systém byl na 13 disketách. Kdo chtěl grafiku, potřeboval dalších 11 disket. Slackware Linux 1.00 byl postaven na Linuxu .99pl11 Alpha, libc 4.4.1, g++ 2.4.5 a XFree86 1.3.

    Ladislav Hagara | Komentářů: 6
    16.7. 21:22 | IT novinky

    Ministerstvo pro místní rozvoj (MMR) jako první orgán státní správy v Česku spustilo takzvaný „bug bounty“ program pro odhalování bezpečnostních rizik a zranitelných míst ve svých informačních systémech. Za nalezení kritické zranitelnosti nabízí veřejnosti odměnu 1000 eur, v případě vysoké závažnosti je to 500 eur. Program se inspiruje přístupy běžnými v komerčním sektoru nebo ve veřejné sféře v zahraničí.

    Ladislav Hagara | Komentářů: 19
    Kolik tabů máte standardně otevřeno ve web prohlížeči?
     (22%)
     (19%)
     (4%)
     (7%)
     (4%)
     (7%)
     (4%)
     (33%)
    Celkem 27 hlasů
     Komentářů: 4, poslední dnes 16:33
    Rozcestník

    Dotaz: Perl - open

    24.2.2013 21:34 Petr
    Perl - open
    Přečteno: 338×
    Dobrý den,

    rád bych vás poprosil o pomoc při programování v perlu. Mám následující příkaz: $adresar = "nazev_adresare" open(DATA, "find $adresar |") tento kod funguje a do DATA se ulozi vystup funkce "find"

    ale kdyz pridam: open(DATA, "find $adresar | grep reg_vyraz |")

    tak mi to nenajde nic. Regulární výraz je určitě správně, protože normalně v konzoli to funguje.

    Děkuji předem za každou radu.

    Odpovědi

    24.2.2013 22:40 ironman
    Rozbalit Rozbalit vše Re: Perl - open
    proc tak slozite (aspon pro me)? Chci spustit externi prikaz a ziskat z nej vystup pak pouziju prikaz system
    my $outputCmd = system("find $adresar | grep reg_vyraz");
    
    Mimo to cele je to slozite napsane:
    1/ find umi prez exec sam volat grep tim se zvysi prehlednost externiho commandu.
    2/ perl ma svoje regularni vyrazi = cistejsi reseni vlastnimi regex v kodu perlu, externe bych volal jen find pro ziskani seznamu souboru
    25.2.2013 09:30 Petr
    Rozbalit Rozbalit vše Re: Perl - open
    Dekuju za radu. Ještě otázka. Funkce system je ze standardních knihoven?
    25.2.2013 18:10 ironman
    Rozbalit Rozbalit vše Re: Perl - open
    Ano funkce system je "v zakladu" Jinak http://search.cpan.org/~dom/perl-5.12.5/pod/perlfunc.pod
    24.2.2013 22:45 Jan Šimák | skóre: 37 | Hradec Králové
    Rozbalit Rozbalit vše Re: Perl - open
    A co varianta:
    print `find $adresar | grep reg_vyraz`;
    
    Pokud bude fungovat, tak bych hledal příčinu v regulárním výrazu, respektive jeho pozměnění v perlu před vykonáním.
    24.2.2013 22:50 NN
    Rozbalit Rozbalit vše Re: Perl - open
    open(DATA,"find /etc | grep host|");
    
    Funguje, takze problem bude nekde jinde. Muzes uvest cely kod ?
    Brilantní modř avatar 26.2.2013 00:48 Brilantní modř | skóre: 14
    Rozbalit Rozbalit vše Re: Perl - open

    No fuj, takhle prasit v Perlu, to je teda hnus…

    A jedna filosofická: co k tomu proboha lidi vede?

    martin-ux avatar 26.2.2013 12:22 martin-ux | skóre: 18 | Bratislava
    Rozbalit Rozbalit vše Re: Perl - open
    Co tak pouzit Find::File:
    #!/usr/bin/perl
    
    use warnings;
    use strict;
    use File::Find;
    
    find (\&open_routine, "/etc/");
    
    sub open_routine {
            return 1 if (! /^hosts$/);
    
            print "DEBUG: got file: $_\n";
    
            open (HFD, '<' . $_) or die ("ERROR: unable to open $_, $!");
    
            print $_ foreach (<HFD>);
    
            close (HFD);
    }
    
    Hladata hosts v /etc. Ak najde, otvori a vypise jeho obsah.
    ..when you do things right, people won't be sure you've done anything at all..

    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.