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í
×
eParkomat, startup z ČR, postoupil mezi finalisty evropského akcelerátoru ChallengeUp!
Robot na pivo mu otevřel dveře k opravdovému byznysu
Internet věcí: Propojený svět? Už se to blíží...
dnes 06:00 | Komunita

Na YouTube byl publikován Blender Institute Reel 2016, ani ne dvouminutový sestřih z filmů, které vznikly za posledních 10 let díky Blender Institutu. V institutu aktuálně pracují na novém filmu Agent 327. Dění kolem filmu lze sledovat na Blender Cloudu. Videoukázka Agenta 327 z června letošního roku na YouTube.

Ladislav Hagara | Komentářů: 0
dnes 01:02 | Zajímavý článek

Minulý týden byly vydány verze 1.2.3 a 1.1.7 webového poštovního klienta Roundcube. V oznámení o vydání bylo zmíněno řešení bezpečnostního problému nalezeného společností RIPS a souvisejícího s voláním funkce mail() v PHP. Tento týden byly zveřejněny podrobnosti. Útočník mohl pomocí speciálně připraveného emailu spustit na serveru libovolný příkaz. Stejně, jak je popsáno v článku Exploit PHP’s mail() to get remote code execution z roku 2014.

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

Byla vydána verze 0.98 svobodného nelineárního video editoru Pitivi. Z novinek lze zmínit například přizpůsobitelné klávesové zkratky. Videoukázka práce s nejnovější verzí Pitivi na YouTube.

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

Stop motion je technika animace, při níž je reálný objekt mezi jednotlivými snímky ručně upravován a posouván o malé úseky, tak aby po spojení vyvolala animace dojem spojitosti. Jaký software lze pro stop motion použít na Linuxu? Článek na OMG! Ubuntu! představuje Heron Animation. Ten bohužel podporuje pouze webové kamery. Podpora digitálních zrcadlovek je začleněna například v programu qStopMotion.

Ladislav Hagara | Komentářů: 3
7.12. 21:21 | Nová verze Ladislav Hagara | Komentářů: 0
7.12. 11:44 | Zajímavý projekt

Na Indiegogo byla spuštěna kampaň na podporu herní mini konzole a multimediálního centra RetroEngine Sigma od Doyodo. Předobjednat ji lze již od 49 dolarů. Požadovaná částka 20 000 dolarů byla překonána již 6 krát. Majitelé mini konzole si budou moci zahrát hry pro Atari VCS 2600, Sega Genesis nebo NES. Předinstalováno bude multimediální centrum Kodi.

Ladislav Hagara | Komentářů: 2
7.12. 00:10 | Nová verze

Byla vydána verze 4.7 redakčního systému WordPress. Kódové označením Vaughan bylo vybráno na počest americké jazzové zpěvačky Sarah "Sassy" Vaughan. Z novinek lze zmínit například novou výchozí šablonu Twenty Seventeen, náhledy pdf souborů nebo WordPress REST API.

Ladislav Hagara | Komentářů: 10
6.12. 12:00 | Zajímavý projekt

Projekt Termbox umožňuje vyzkoušet si linuxové distribuce Ubuntu, Debian, Fedora, CentOS a Arch Linux ve webovém prohlížeči. Řešení je postaveno na projektu HyperContainer. Podrobnosti v často kladených dotazech (FAQ). Zdrojové kódy jsou k dispozici na GitHubu [reddit].

Ladislav Hagara | Komentářů: 27
6.12. 11:00 | Bezpečnostní upozornění

Byly zveřejněny informace o bezpečnostní chybě CVE-2016-8655 v Linuxu zneužitelné k lokální eskalaci práv. Chyba se dostala do linuxového jádra v srpnu 2011. V upstreamu byla opravena minulý týden [Hacker News].

Ladislav Hagara | Komentářů: 2
5.12. 22:00 | Komunita

Přibližně před měsícem bylo oznámeno, že linuxová distribuce SUSE Linux Enterprise Server (SLES) běží nově také Raspberry Pi 3 (dokumentace). Obraz verze 12 SP2 pro Raspberry Pi 3 je ke stažení zdarma. Pro registrované jsou po dobu jednoho roku zdarma také aktualizace. Dnes bylo oznámeno, že pro Raspberry Pi 3 je k dispozici také nové openSUSE Leap 42.2 (zprávička). K dispozici je hned několik obrazů.

Ladislav Hagara | Komentářů: 6
Kolik máte dat ve svém domovském adresáři na svém primárním osobním počítači?
 (32%)
 (24%)
 (29%)
 (8%)
 (5%)
 (3%)
Celkem 799 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: Perl - open

24.2.2013 21:34 Petr
Perl - open
Přečteno: 289×
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: 4
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.