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í
×
včera 22:00 | Komunita

Portál Stack Overflow po roce opět vyzpovídal své uživatele, jedná se především o vývojáře softwaru, a zveřejnil (podcast) detailní výsledky průzkumu. Průzkumu se letos zúčastnilo více než 64 tisíc vývojářů. Jejich nejmilovanější platformou je linuxový desktop. Ten je také druhou nejpoužívanější platformou vývojářů.

Ladislav Hagara | Komentářů: 1
24.3. 11:55 | Komunita

Vývojový tým OpenSSL ve spolupráci s iniciativou Core Infrastructure konsorcia Linux Foundation spustil proces přelicencování této kryptografické knihovny ze současné licence na licenci Apache Licence v 2.0 (ASLv2). Nová licence usnadní začleňování OpenSSL do dalších svobodných a open source projektů. Všichni dosavadní vývojáři OpenSSL (Authors) obdrží v následujících dnech email s prosbou o souhlas se změnou licence.

Ladislav Hagara | Komentářů: 19
24.3. 01:11 | Komunita

Před třemi týdny Mozilla.cz představila projekt Photon, jehož cílem je návrh a implementace nového vzhledu Firefoxu. Včera zveřejnila první náhled vzhledu Photon. Práce na projektu Photon jsou rozděleny do pěti týmů, které celkem čítají 19 lidí. Zaměřují se na zlepšení prvního spuštění Firefoxu a zaujetí nových uživatelů, celkovou úpravu vzhledu, zlepšení animací, zrychlení odezvy uživatelského rozhraní a také upravení nabídek. Vývoj lze sledovat v Bugzille.

Ladislav Hagara | Komentářů: 44
23.3. 20:00 | Komunita

OneDrive pro firmy je již ve webových prohlížečích na Linuxu stejně rychlý jako na Windows. Microsoft opravil chybu z listopadu loňského roku. OneDrive pro firmy běžel na Linuxu mnohem pomaleji než na Windows. V popisu chyby bylo uvedeno, že stačilo v prohlížeči na Linuxu nastavit v user-agentu Windows a vše se zrychlilo. Odpovědí Microsoftu bylo (Internet Archive: Wayback Machine), že Linux není podporován. Po bouřlivých diskusích na redditu i Hacker News byla chyba nalezena a opravena.

Ladislav Hagara | Komentářů: 6
23.3. 19:00 | Zajímavý projekt

Byla vyhlášena soutěž Hackaday Prize 2017. Soutěž je určena vývojářům open source hardwaru. Pro výherce je připraveno celkově 250 tisíc dolarů. Každý ze 120 finalistů získá tisíc dolarů. Nejlepší pak navíc 50, 30, 20, 15, 10 a 5 tisíc dolarů. Jedná se již o čtvrtý ročník soutěže. V roce 2014 zvítězil projekt globální sítě open source pozemních satelitních stanic SatNOGS. V roce 2015 zvítězil open source systém pro řízení elektrických invalidních vozíků pohybem očí Eyedriveomatic. V roce 2016 zvítězil modulární robot Dtto.

Ladislav Hagara | Komentářů: 0
23.3. 15:00 | Bezpečnostní upozornění

Byla vydána Samba ve verzích 4.6.1, 4.5.7 a 4.4.12. Řešen je bezpečnostní problém CVE-2017-2619. Pomocí symbolických odkazů a souběhu (symlink race) lze "teoreticky" získat přístup k souborům, které nejsou sdíleny. Linuxové distribuce jsou postupně aktualizovány (Debian).

Ladislav Hagara | Komentářů: 0
23.3. 07:43 | Nová verze

Na Steamu se objevil port hry Arma: Cold War Assault (Operation Flashpoint) pro Mac a Linux. … více »

creon | Komentářů: 30
23.3. 05:55 | Nová verze

Po 18 měsících od vydání verze 8.0 byla vydána verze 9.0 open source alternativy GitHubu, tj. softwarového nástroje s webovým rozhraním umožňujícího spolupráci na zdrojových kódech, GitLab. Představení nových vlastností v příspěvku na blogu a na YouTube.

Ladislav Hagara | Komentářů: 0
23.3. 03:33 | Komunita

Platnost posledního patentu souvisejícího s Dolby Digital (AC-3) vypršela. Po MP3 se tak do Fedory oficiálně dostane také kodek AC-3.

Ladislav Hagara | Komentářů: 5
23.3. 00:44 | Komunita

Feral Interactive, společnost zabývající se vydáváním počítačových her pro operační systémy macOS a Linux, nabízí své hry na Steamu vývojářům open source 3D grafické knihovny Mesa zdarma. Podmínkou je minimálně 25 commitů za posledních 5 let. Stejnou nabídku dostali vývojáři knihovny Mesa v roce 2015 od Valve. O rok dříve dostali od Valve tuto nabídku vývojáři Debianu a Ubuntu.

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

    Dotaz: Perl - parsování textu do n-dimenzionálního hash-pole

    Jakub Lucký avatar 28.7.2010 21:01 Jakub Lucký | skóre: 40 | Praha
    Perl - parsování textu do n-dimenzionálního hash-pole
    Přečteno: 491×
    Snažím se naparsovat výstup z getfacl do Perlu... Relevantní část vypadá zhruba takto
    user::rw-
    user:gemini:rwx
    group::r--
    mask::rwx
    other::r--
    
    Já se snažím, aby z toho vzniklo vícedimenzionální hash, kde by se dalo přistupovat k datům zhruba takto:

    $acl{user}{gemini}{read}=1

    Pokud máte svůj vlastní, jednoduchý nápad na řešení, klidně i s jiným způsobem uložení dat, nečtěte dále a navrhněte vaše řešení

    Mám nějaký svůj kód, který ale selhává právě na vytváření vícedimenzionální hashe... Kód není dokončený, výsledné spojení do jednoho hashe by se měl udít pomocí Hash::Merge, nicméně navazování těch hashí do té vícedimenzové nějak selhává... problémový řádek je označený komentářem, je skoro dole...
    
    #!/usr/bin/perl -w
    
    use strict;
    use Data::Dump qw(dump);
    
    
    my $string = "user::rw-
    user:gemini:rwx
    group::r--
    mask::rwx
    other::r--
    ";
    
    #Stripping last end of line
    $string =~ s/^$//g;
    
    my @lines = split(/\n/,$string);
    my %result = ();
    my %output = ();
    
    foreach	my $line(@lines)
    {
    	my @parts = split(/:/,$line);
    	#This small part of code is ugly hack for situation, when while dies, if $part is empty string (OMG why?)
    	if (!$parts[1] and $parts[2])  #FIXME  
    	{
    		$parts[1] = 'NULL';
    	}
    	INTERN:while( my $part = pop(@parts))
    	{
    		if ($part =~ m/[r-][w-][x-]/)
    		{
    			my @perms = split(//,$part);
    			if($perms[0] eq 'r') { $result{'read'} = 1 }
    			else {$result{'read'} = 0 }
    			if($perms[1] eq 'w') { $result{'write'} = 1 }
    			else {$result{'write'} = 0 }
    			if($perms[2] eq 'x') { $result{'exec'} = 1 }
    			else {$result{'exec'} = 0 }
    #			print "$result{'read'},$result{'write'},$result{'exec'} \n";
    		}
    		else
    		{
    			my %meta = ();
    			%meta = %result;
    			%result = ();
                            #Tento radek vsechno rozbije!!
    			$result{$part} = %meta;
    		}	
    	}	
    dump(%result);
    
    }
    
    Bohužel, výstup z toho vůbec není takový, jako by člověk čekal, označený řádek to nějak rozbije a výstupem dumpu je tohle...
    jakub@gondolin:/tmp$ ./test.pl 
    ("user", "1/8")
    ("user", "1/8")
    ("group", "1/8")
    ("mask", "1/8")
    ("other", "1/8")
    
    If you understand, things are just as they are; if you do not understand, things are just as they are. (Zen P.) Blogísek

    Řešení dotazu:


    Odpovědi

    Jakub Lucký avatar 28.7.2010 21:14 Jakub Lucký | skóre: 40 | Praha
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    Jinak rád přijmu i jiné rady k Perl kódu... nějak jsem začal zase po dlouhé době Perlit a mám pocit, že můj kód je ošklivě neelegantní...
    If you understand, things are just as they are; if you do not understand, things are just as they are. (Zen P.) Blogísek
    28.7.2010 23:00 petr_p | skóre: 59 | blog: pb
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    Nechcete si raději ohnout Solaris::ACL?
    Jakub Lucký avatar 29.7.2010 10:42 Jakub Lucký | skóre: 40 | Praha
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    Tam je právě pod tím Cčková knihovna pro Solaris a to já asi neumím, abych to naportoval do Linuxu... Ale bylo by to fajn, protože to co implementuju je hack-of-a-hack
    If you understand, things are just as they are; if you do not understand, things are just as they are. (Zen P.) Blogísek
    1.8.2010 12:16 omg
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    man perlxstut

    je to jednodussi nez se zda pokud uz vis jak pouzivat C a umis psat kod v perlu neni nic snazsiho nez si napsat vlastni modul co bude volat C kod. staci jit akorat po tech examplech s tim, ze na odsazeni zalezi... vse dulezite uz vis.
    28.7.2010 23:18 happy barney | skóre: 34 | blog: dont_worry_be_happy
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    použi $result{$part} = \%meta ... referencia na hash.

    to "parts =~" skús takto:
    if ($parts =~ m/([-r])([-w])([-x])/) {
      $result{read} = $1 eq 'r';
      $result{write} = $1 eq 'w';
      $result{exec} = $1 eq 'x';
    )
    
    Jakub Lucký avatar 29.7.2010 10:42 Jakub Lucký | skóre: 40 | Praha
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    Jo, to je ono... děkuju... <Rve si vlasy z hlavy, že ho to za ty dvě hodiny nenapadlo>

    A to druhé taky funguje... Já věděl, že to moje ošklivé mi v Perlu neprojde...
    If you understand, things are just as they are; if you do not understand, things are just as they are. (Zen P.) Blogísek
    29.7.2010 15:30 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    Pokud máte svůj vlastní, jednoduchý nápad na řešení, klidně i s jiným způsobem uložení dat, nečtěte dále a navrhněte vaše řešení
    Asi by se dalo vymyslet 100 způsobů, jde o to, na co to chcete použít...

    Každopádně ale doporučuju u takovéto datové struktury použít rovnou referenci na hash ($acl->{user}{gemini}) místo hashe.

    Jinak se mi moc nezdá že by ten kód byl v Perlu :) zkusil jsem to napsat takto:
    use Modern::Perl;
    use Test::More tests => 1;
    
    my @input = qw/user::rw- user:gemini:rwx group::r-- mask::rwx other::r--/;
    my $expected_output = {
            user => {
                    NULL   => { read => 1, write => 1, execute => 0 },
                    gemini => { read => 1, write => 1, execute => 1 },
            },
            group => {
                    NULL   => { read => 1, write => 0, execute => 0 },
            },
            mask => {
                    NULL   => { read => 1, write => 1, execute => 1 },
            },
            other => {
                    NULL   => { read => 1, write => 0, execute => 0 },
            },
    };
    
    is_deeply(acl_as_hash(@input), $expected_output);
    
    sub acl_as_hash {
            my $output;
            for my $line (@_) {
                    my ($type, $name, $priv) = split(/:/, $line, 3);
                    $name ||= 'NULL';
                    $output->{$type}->{$name} = _privs_for($priv);
            }
            return $output;
    }
    
    sub _privs_for {
            my $priv = shift;
            return {
                    read    => $priv =~ /r/ ? 1 : 0,
                    write   => $priv =~ /w/ ? 1 : 0,
                    execute => $priv =~ /x/ ? 1 : 0,
            };
    }
    

    In Ada the typical infinite loop would normally be terminated by detonation.
    Jakub Lucký avatar 29.7.2010 15:36 Jakub Lucký | skóre: 40 | Praha
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    Ohledně hash_ref jsem to celkem asi pochopil... Holt, pořád ještě málo Perl-skill

    Jinak váš kód je pěkný, akorát neřeší věc, kterou jsem zapomněl uvést... ACL má proměnnou délku (teda, moc ne, 3 nebo 4, pokud se nepletu) a tak jsem to chtěl implementovat víc obecně (ačkoliv je to kráse kódu celkem naškodu)
    If you understand, things are just as they are; if you do not understand, things are just as they are. (Zen P.) Blogísek
    29.7.2010 15:51 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    Proměnnou délku čeho?
    In Ada the typical infinite loop would normally be terminated by detonation.
    Jakub Lucký avatar 29.7.2010 16:06 Jakub Lucký | skóre: 40 | Praha
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    počet sloupců v těch ACL datech

    tak jako máme user:gemini:r-x tak můžeme mít ještě default:user:someone:rwx (můj blik: čtvrtý sloupec může být pouze(!!!) default)

    A teď, když se na to dívám, tak to vážně šlo všechno udělat jednodušeji a já si jen trval na obecném řešení pro nekonečný počet sloupců

    Důvod pro implementaci je zhruba takový, že potřebuju nějaké programovací rozhraní pro ACL, v Perl není vůbec (jen výše zmíněné nepřenositelné Solaris::ACL) a v Pythonu je jen python-libacl, které je celé nějaké divné...
    If you understand, things are just as they are; if you do not understand, things are just as they are. (Zen P.) Blogísek
    29.7.2010 16:25 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    tak jako máme user:gemini:r-x tak můžeme mít ještě default:user:someone:rwx (můj blik: čtvrtý sloupec může být pouze(!!!) default)

    Jo tohle. No, ale to bych asi držel oboje na stejné úrovni jinak v tom bude pěknej bordel.
    Důvod pro implementaci je zhruba takový, že potřebuju nějaké programovací rozhraní pro ACL
    OK, v tom případě to berete za špatný konec. Začněte s tím, že to rozhraní použijete (i když ho nemáte), tím zjistíte, jaký potřebujete interface, a pak dodělejte tu implementaci. Datová struktura je implementační detail až úplně na konci. Třeba zjistíte že to chcete úplně jinak.

    Např.
    my $acl = Moje::ACL->new('/home/franta');
    if ($acl->readable_by('franta')) { ... }
    
    nebo
    my $acl = Moje::ACL->new( { franta => 'rw-' } );
    $acl->apply_to('/home/franta');
    
    atd.
    In Ada the typical infinite loop would normally be terminated by detonation.
    Jakub Lucký avatar 29.7.2010 17:22 Jakub Lucký | skóre: 40 | Praha
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    Důvod pro implementaci je zhruba takový, že potřebuju nějaké programovací rozhraní pro ACL
    OK, v tom případě to berete za špatný konec. Začněte s tím, že to rozhraní použijete (i když ho nemáte), tím zjistíte, jaký potřebujete interface, a pak dodělejte tu implementaci. Datová struktura je implementační detail až úplně na konci. Třeba zjistíte že to chcete úplně jinak.

    Např.
    my $acl = Moje::ACL->new('/home/franta');
    if ($acl->readable_by('franta')) { ... }
    
    No, do něčeho podobného to směřuju, akorát tu hash chci použít jako podklad pro ty funkce... Každopádně dobrá rada s tou implementací... (A taky jsem díky vám objevil Modern::Perl)
    If you understand, things are just as they are; if you do not understand, things are just as they are. (Zen P.) Blogísek
    29.7.2010 17:43 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Perl - parsování textu do n-dimenzionálního hash-pole
    No, do něčeho podobného to směřuju, akorát tu hash chci použít jako podklad pro ty funkce... Každopádně dobrá rada s tou implementací...

    Pokud se Vám líbí ta objektová notace, tak zkuste třeba Moose. Jak říkám, jestli tam nakonec bude ten hash nebo něco jiného vyplyne z kontextu až budete psát sub readable_by.
    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.