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 | Zajímavý software

OMG! Ubuntu! představuje emulátor terminálu Hyper (GitHub) postavený na webových technologiích (HTML, CSS a JavaScript). V diskusi k článku je zmíněn podobný emulátor terminálu Black Screen. Hyper i Black Screen používají framework Electron, stejně jako editor Atom nebo vývojové prostředí Visual Studio Code.

Ladislav Hagara | Komentářů: 22
dnes 06:00 | Zajímavý článek

I letos vychází řada ajťáckých adventních kalendářů. QEMU Advent Calendar 2016 přináší každý den nový obraz disku pro QEMU. Programátoři se mohou potrápit při řešení úloh z kalendáře Advent of Code 2016. Kalendáře Perl Advent Calendar 2016 a Perl 6 Advent Calendar přinášejí každý den zajímavé informace o programovacím jazyce Perl. Stranou nezůstává ani programovací jazyk Go.

Ladislav Hagara | Komentářů: 4
3.12. 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ářů: 14
3.12. 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ářů: 25
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ářů: 15
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ářů: 4
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ářů: 1
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
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 773 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: perl/bash konverzia rwx na octal

10.10.2011 11:38 nicco | skóre: 6
perl/bash konverzia rwx na octal
Přečteno: 242×

Ahoj,

nenapisal uz niekto perl alebo bash skript na konverziu pristupovych prav z formatu -rxwrwxrwx? Neico som zacal, ale uz nedokazem rozumne zaimplementovat sgid/suid a sticky bit?

Ide o Solaris10, tkaze nie je tam stat ani gnu find a teda napr toto nefunguje:

$ perl -e'printf "%o\n", ( stat "/etc" )[ 2 ]'
40755

Najlepsi by bol perl/bash skript pokial mjozno bez dodatocnych modulov, len so zakladnymi prikazmi.

Bud sa mi teda podari vylistovat prava na Solarise v osmickovom tvare a potom nepotrebujem konverziu, alebo musim napisat skritp

Diky


Řešení dotazu:


Odpovědi

10.10.2011 13:30 NN
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
Nejak jsem nepochopil, ceho tim chces dosahnout, ale opravneni se nastavuje obdobne viz:

http://snap.nlc.dcccd.edu/reference/sysadmin/julian/ch18/402-404.html

NN
10.10.2011 13:58 nicco | skóre: 6
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal

Ide o to, ze mam vystup z ls -al:

-rwxrwxrwx /cesta/subor

a chcem vytvorit pomocou skriptu podla toho vzoru: chmod 777 /cesta/subor, tda skonvertovat rwxrwxrwx na 777

-rwxrwxrwx este nejako zvladnem naskriptovat, ala ked sa tam prida s/S/t/T a teda musim mat neico ako 2640, 4600, 1777,... tak to uz nedokazem.

Inak samozrejeme viem, ako sa v unixe nastavuje sticky bit, len potrebujem konverziu z rwx na 777, pretoze ls ma jeden format a chmod na iny format.

10.10.2011 14:41 smajl | skóre: 3
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
smajl@leila:~$ stat -c %a .bashrc 644 smajl@leila:~$ ls -l .bashrc -rw-r--r-- 1 smajl smajl 3116 May 9 09:50 .bashrc
10.10.2011 14:42 smajl | skóre: 3
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
ospravedlnujem sa, takto to ma vyzerat spravne:
smajl@leila:~$ stat -c %a .bashrc
644
smajl@leila:~$ ls -l .bashrc
-rw-r--r-- 1 smajl smajl 3116 May  9 09:50 .bashrc
10.10.2011 15:49 nicco | skóre: 6
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
Bohuzial stat sa na Solarise nenachadza, teda aspon na tom, ktory mam ja, ale diky.
herne the hunter avatar 10.10.2011 15:00 herne the hunter | skóre: 10 | tor lara
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
haha, tak jsem zkusil oprášit svoje znalosti bashe (moc se to nepovedlo ;)) a vyplodil tuhle hrůzu:

#!/bin/bash

if [ "${#1}" -ne 10 ]; then
	exit 0;
fi

declare -A perm
perm["r"]=4
perm["w"]=2
perm["x"]=1
perm["s"]=1
perm["t"]=1
perm["-"]=0
perm["S"]=0
perm["T"]=0

res[0]=0
res[1]=0
res[2]=0
res[3]=0

for i in `seq 1 $((${#1} - 1))`; do
	znak=${1:$i:1}
	idx=$((1 + (($i - 1) / 3)))
	res[$idx]=$((${res[$idx]} + ${perm[$znak]}))
	if [ "${znak}" == "s" ] || [ "${znak}" == "S" ] || [ "$znak" == "T" ] || [ "${znak}" == "t" ]; then
		res[0]=$((${res[0]}  + (1 << (3 - $idx))))
	fi
done

echo ${res[0]}${res[1]}${res[2]}${res[3]}

ale tak snad je důležitý, že to funguje, ne? :D (vstup to předpokládá ve tvaru ls -l soubor | awk '{print $1}')
i am herne the hunter and you are a leaf driven by the wind.
10.10.2011 15:48 nicco | skóre: 6
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal

Tak to je hodne dobre a funguje to s s/S/t/T !

Diky moc

(este keby sa mi podarilo to naportovat do perlu, tak to uplne super;-) )

10.10.2011 16:06 nicco | skóre: 6
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal

V linuxe to fungovalo, ale na Solarise uz nie:

bash-3.00$ bash convert_rwx.sh -rw-r-----

convert_rwx.sh: line 7: declare: -A: invalid option

declare: usage: declare [-afFirtx] [-p] [name[=value] ...]

convert_rwx.sh: line 13: -: syntax error: operand expected (error token is "-")

convert_rwx.sh: line 29: seq: command not found

0000

bash-3.00$

10.10.2011 16:59 pm
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
my @A=stat $ARGV[0];die sprintf "%04o", $A[2] & 07777 ;
10.10.2011 17:23 l4m4
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
Asi tak. Konvertovat perlem výstup z ls, když se dají vlastnosti souboru zjistit snáz přímo v perlu, je zvrhlé.
11.10.2011 10:21 nicco | skóre: 6
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal

Ano mate pravdu, lepsie je to zistip priamo cez stat, ako konvertovat:  
find . -type f | perl -e ' while (<STDIN>) { chomp; printf "%s %4o\n", $_, (stat $_)[2] & 07777; }'
./file1 644
./file2 644
./file3 600

10.10.2011 20:45 NN
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
ls -l | awk '{k=0;for(i=0;i<=8;i++)k+=((substr($1,i+2,1)~/[rwx]/)*2^(8-i));printf("%0o",k);print}'
One-liner, netstovano..

NN
pepe_ avatar 10.10.2011 21:11 pepe_ | skóre: 46
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal

Nebylo to tu uz ?

#!/bin/bash
ls -lhF $1 | while read DATA
do
case "${DATA:0:1}" in
"-"|"d")
PERM=$( echo "${DATA:1:9}" | sed 's/-/0/g;s/r/4/g;s/w/2/g;s/x/1/g' )
P_US=$((${PERM:0:1}+${PERM:1:1}+${PERM:2:1}))
P_GR=$((${PERM:3:1}+${PERM:4:1}+${PERM:5:1}))
P_OT=$((${PERM:6:1}+${PERM:7:1}+${PERM:8:1}))
DATA=$( echo "$DATA" | sed "s/${DATA:0:10}/${P_US}${P_GR}${P_OT}/" )
echo "$DATA"
;;
*)
continue
;;
esac
done
exit 0
11.10.2011 10:30 nicco | skóre: 6
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
Moznosti je viacero, najlepsie je asi priamo cez perl/stat zistit co potrebujem a vyhnut sa konvertovaniu, ale kedze som povodne smeroval otazku na konverziu v perle/bashi, tak som oznacil toto riesenir ako spravne. Diky
martin-ux avatar 10.10.2011 21:33 martin-ux | skóre: 18 | Bratislava
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
az teraz som si vsimol, ze si spravil thread aj v programatorskej casti. v tvojom prvom threade som ti pastol sposob ako to spravit v perle; ako vsak pozeram tak ti to uz navrhol aj tu niekto hore.
..when you do things right, people won't be sure you've done anything at all..
11.10.2011 10:25 nicco | skóre: 6
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
Mal som 2 moznosti, zistit hexa prava priamo v Solarise, alebo konvertovat ich v perle/bashi. Rieseni je viac, ale asi najlepsie je to zistit uz v Solarise cez perl/stat a vyhnut sa zlozitemu konvertovaniu.
10.10.2011 21:34 pht | skóre: 48 | blog: pht
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
napr toto nefunguje:
$ perl -e'printf "%o\n", ( stat "/etc" )[ 2 ]'
40755
Mně přijde, že to funguje přesně jak má.
In Ada the typical infinite loop would normally be terminated by detonation.
11.10.2011 10:23 nicco | skóre: 6
Rozbalit Rozbalit vše Re: perl/bash konverzia rwx na octal
Toto je moja chyba, hned som to zamietol, lebo som si neuvedomil, ze stat je (aj) funkcia perlu, muslel som, ze sa vola stat z OS, teda gnu stat, ktory na Solarise standardne nie je.

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.