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 11:44 | Nová verze

Glen MacArthur vydal verzi 2018.4.2 na Debianu založené linuxové distribuce optimalizované pro tvůrce audio a video obsahu AV Linux (Wikipedie). Podrobnosti v oznámení o vydání a v stotřicetistránkovém manuálu (pdf).

Ladislav Hagara | Komentářů: 0
včera 23:33 | Nová verze

Byla vydána nová stabilní verze 1.15 (1.15.1147.36) webového prohlížeče Vivaldi (Wikipedie). Z novinek lze zdůraznit možnost nastavení vlastního pozadí okna, přístup k záložkám z hlavního menu, lepší ovládatelnost v režimu celé obrazovky nebo vyřešení problémů se zvukem v HTML5. Nejnovější Vivaldi je postaveno na Chromiu 65.0.3325.183.

Ladislav Hagara | Komentářů: 0
včera 17:22 | Nová verze

Node.js Foundation, oficiální projekt konsorcia Linux Foundation, oznámila vydání verze 10.0.0 otevřeného multiplatformního prostředí pro vývoj a běh síťových aplikací napsaných v JavaScriptu Node.js (Wikipedie). Verze 10 se v říjnu stane novou aktivní LTS verzí. Podpora je plánována do dubna 2021.

Ladislav Hagara | Komentářů: 0
včera 15:33 | Nová verze

Neal Cardwell ze společnosti Google oznámil zveřejnění verze 2.0 nástroje pro testování síťového stacku packetdrill. Jde o souhrnné vydání změn z interního vývoje od roku 2013.

Michal Kubeček | Komentářů: 0
včera 13:22 | Zajímavý software

Microsoft na svém blogu oznámil, že správce knihoven pro C++ Vcpkg (VC++ Packaging Tool) lze nově používat také na Linuxu a macOS. Aktuálně je pro Linux k dispozici více než 350 knihoven [reddit].

Ladislav Hagara | Komentářů: 1
včera 12:44 | Komunita

Byly zveřejněny exploity na Nintendo Switch a platformu Tegra X1: Fusée Gelée a ShofEL2. Jejich zneužití nelze zabránit softwarovou aktualizací. Na druhou stranu exploity umožní na Nintendo Switch snadno a rychle nainstalovat Linux, viz. ukázka na YouTube. Jenom je potřeba sáhnout na hardware.

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

Byla vydána verze 2.12.0 QEMU (Wikipedie). Přispělo 204 vývojářů. Provedeno bylo více než 2 700 commitů. Přehled úprav a nových vlastností v seznamu změn. Řešeny jsou také bezpečnostní chyby Meltdown a Spectre.

Ladislav Hagara | Komentářů: 7
včera 00:33 | Komunita

Google zveřejnil seznam 1 264 studentů přijatých do letošního Google Summer of Code. Přehled projektů, studentů, 212 organizací a mentorů je k dispozici na stránkách GSoC.

Ladislav Hagara | Komentářů: 0
24.4. 23:55 | Nová verze

Oracle vydal verzi 1.0 univerzálního virtuálního stroje GraalVM, který umožňuje běh programů napsaných v jazycích založených na JVM, JavaScript, LLVM bitcode a experimentálně Ruby, R a Python.

razor | Komentářů: 1
24.4. 01:22 | Zajímavý článek

Julia Evans pomocí svých kreslených obrázků proniká do Linuxu a informačních technologií. Vedle ucelených zinů publikuje také jednotlivé kreslené obrázky (RSS).

Ladislav Hagara | Komentářů: 5
Používáte na serverech port knocking?
 (3%)
 (7%)
 (46%)
 (26%)
 (18%)
Celkem 383 hlasů
 Komentářů: 29, poslední 5.4. 12:25
    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: 492×
    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.