abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 13:44 | Nová verze

    Multiplatformní open source voxelový herní engine Luanti byl vydán ve verzi 5.10.0. Podrobný přehled novinek v changelogu. Původně se jedná o Minecraftem inspirovaný Minetest (Wikipedie) před měsícem přejmenovaný na Luanti.

    Ladislav Hagara | Komentářů: 0
    dnes 09:11 | Nová verze

    Vyšla nová verze open source ticketovacího nástroje Redmine 6.0.0. Tato verze přináší 146 vylepšení a oprav. Došlo k vylepšení UI, upgrade na Rails 7.2 a Ruby 3.3, byla provedena integrace asset pipelines s Propshaft a mnoho dalšího, viz kompletní changelog.

    Max | Komentářů: 0
    dnes 01:11 | Komunita

    Firefox slaví 20 let (YouTube). Verze 1.0 byla vydána 9. listopadu 2004.

    Ladislav Hagara | Komentářů: 3
    včera 22:11 | Humor

    Z proprietárního světa: Přijdete ráno do práce a zjistíte, že všechny Windows Servery byly neplánovaně automaticky upgradovány z verze 2022 na verzi 2025.

    Ladislav Hagara | Komentářů: 16
    9.11. 23:44 | Nová verze

    Byl vydán Debian 12.8, tj. osmá opravná verze Debianu 12 s kódovým názvem Bookworm. Řešeny jsou především bezpečnostní problémy, ale také několik vážných chyb. Instalační média Debianu 12 lze samozřejmě nadále k instalaci používat. Po instalaci stačí systém aktualizovat.

    Ladislav Hagara | Komentářů: 0
    9.11. 12:44 | Nová verze

    Standard Matter (Wikipedie, GitHub), původně Project Connected Home over IP (CHIP), pro propojení IoT a domácí automatizaci byl vydán ve verzi 1.4.

    Ladislav Hagara | Komentářů: 3
    8.11. 15:55 | Komunita

    Fedora Linux je aktuálně k dispozici v 5 edicích: Workstation, Server, IoT, Cloud a CoreOS. Pro desktopové nasazení je určena edice Workstation, což je prostředí GNOME. Vývojářům a uživatelům KDE Plasma se dlouhodobě nelíbí, že jejich prostředí je schováno mezi spiny, tj. alternativními desktopy. Prosadili si, že s následující verzí Fedora Linuxu KDE Plasma povýší ze spinu na edici a bude tak na úrovni Workstation.

    Ladislav Hagara | Komentářů: 36
    8.11. 15:11 | Nová verze

    UBports, nadace a komunita kolem Ubuntu pro telefony a tablety Ubuntu Touch, vydala Ubuntu Touch OTA-6 Focal, tj. šesté stabilní vydání založené na Ubuntu 20.04 Focal Fossa.

    Ladislav Hagara | Komentářů: 0
    8.11. 01:22 | Nová verze

    Byla vydána nová verze 8.0 (𝕏) frameworku pro vývoj webových aplikací Ruby on Rails (Wikipedie). Přehled novinek v příspěvku na blogu, v poznámkách k vydání a na GitHubu.

    Ladislav Hagara | Komentářů: 0
    7.11. 17:44 | Nová verze

    Byla vydána verze R14.1.3 desktopového prostředí Trinity Desktop Environment (TDE, fork KDE 3.5, Wikipedie). Přehled novinek v poznámkách k vydání, podrobnosti v seznamu změn.

    JZD | Komentářů: 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: 541×
    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.

    Ř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.
    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.
    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.
    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.
    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.
    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.
    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.