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íží...
včera 16:24 | Nová verze

Byla vydána Mageia 5.1. Jedná se o první opravné vydání verze 5, jež vyšla v červnu loňského roku (zprávička). Uživatelům verze 5 nepřináší opravné vydání nic nového, samozřejmě pokud pravidelně aktualizují. Vydání obsahuje všechny aktualizace za posledního téměř půldruhého roku. Mageia 5.1 obsahuje LibreOffice 4.4.7, Linux 4.4.32, KDE4 4.14.5 nebo GNOME 3.14.3.

Ladislav Hagara | Komentářů: 0
včera 13:42 | Pozvánky

V Praze probíhá konference Internet a Technologie 16.2, volné pokračování jarní konference sdružení CZ.NIC. Konferenci lze sledovat online na YouTube. K dispozici je také archiv předchozích konferencí.

Ladislav Hagara | Komentářů: 0
2.12. 22:44 | Komunita

Joinup informuje, že Mnichov používá open source groupware Kolab. V srpnu byl dokončen dvouletý přechod na toto řešení. V provozu je asi 60 000 poštovních schránek. Nejenom Kolabu se věnoval Georg Greve ve své přednášce Open Source: the future for the European institutions (SlideShare) na konferenci DIGITEC 2016, jež proběhla v úterý 29. listopadu v Bruselu. Videozáznam přednášek z hlavního sálu je ke zhlédnutí na Livestreamu.

Ladislav Hagara | Komentářů: 18
2.12. 15:30 | Zajímavý projekt

Společnost Jolla oznámila v příspěvku Case study: Sailfish Watch na svém blogu, že naportovala Sailfish OS na chytré hodinky. Využila a inspirovala se otevřeným operačním systémem pro chytré hodinky AsteroidOS. Použita je knihovna libhybris. Ukázka ovládání hodinek na YouTube.

Ladislav Hagara | Komentářů: 8
2.12. 14:15 | Nová verze

Byla vydána verze 7.1.0 skriptovacího jazyka PHP používaného zejména k vývoji dynamických webových stránek. Jedná se o první stabilní verzi nejnovější větvě 7.1. Přehled novinek v dokumentaci. Podrobnosti v ChangeLogu. K dispozici je také příručka pro přechod z PHP 7.0.x na PHP 7.1.x.

Ladislav Hagara | Komentářů: 2
2.12. 12:55 | Nová verze

Google Chrome 55 byl prohlášen za stabilní. Nejnovější stabilní verze 55.0.2883.75 tohoto webového prohlížeče přináší řadu oprav a vylepšení (YouTube). Opraveno bylo také 36 bezpečnostních chyb. Mariusz Mlynski si například vydělal 22 500 dolarů za 3 nahlášené chyby (Universal XSS in Blink).

Ladislav Hagara | Komentářů: 4
2.12. 11:55 | Pozvánky

Máte rádi svobodný software a hardware nebo se o nich chcete něco dozvědět? Přijďte na 135. sraz spolku OpenAlt, který se bude konat ve čtvrtek 8. prosince od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Sraz bude tentokrát tématický. Bude retro! K vidění budou přístroje jako Psion 5mx nebo Palm Z22. Ze svobodného hardwaru pak Openmoko nebo čtečka WikiReader. Přijďte se i vy pochlubit svými legendami, nebo alespoň na pivo. Moderní hardware má vstup samozřejmě také povolen.

xkucf03 | Komentářů: 0
2.12. 00:10 | Nová verze

Byla vydána verze 3.2 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata. Z novinek lze zmínit například podporu protokolů DNP3 a CIP/ENIP, vylepšenou podporu TLS a samozřejmě také aktualizovanou dokumentaci.

Ladislav Hagara | Komentářů: 0
1.12. 21:00 | Nová verze

Byla vydána beta verze Linux Mintu 18.1 s kódovým jménem Serena. Na blogu Linux Mintu jsou hned dvě oznámení. První o vydání Linux Mintu s prostředím MATE a druhé o vydání Linux Mintu s prostředím Cinnamon. Stejným způsobem jsou rozděleny také poznámky k vydání (MATE, Cinnamon) a přehled novinek s náhledy (MATE, Cinnamon). Linux Mint 18.1 bude podporován až do roku 2021.

Ladislav Hagara | Komentářů: 0
1.12. 16:42 | Nová verze

Byl vydán Devuan Jessie 1.0 Beta 2. Jedná se o druhou beta verzi forku Debianu bez systemd představeného v listopadu 2014 (zprávička). První beta verze byla vydána v dubnu letošního roku (zprávička). Jedna z posledních přednášek věnovaných Devuanu proběhla v listopadu na konferenci FSCONS 2016 (YouTube, pdf).

Ladislav Hagara | Komentářů: 0
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%)
 (7%)
 (5%)
 (3%)
Celkem 767 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

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: 486×
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.