Dotaz: perl/bash konverzia rwx na octal

[nicco]

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

---

---

Odpovědi

[NN]

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

[nicco]

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.

[smajl]

smajl@leila:~$ stat -c %a .bashrc 644 smajl@leila:~$ ls -l .bashrc -rw-r--r-- 1 smajl smajl 3116 May 9 09:50 .bashrc

[smajl]

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

[nicco]

Bohuzial stat sa na Solarise nenachadza, teda aspon na tom, ktory mam ja, ale diky.

[herne the hunter]

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}')

[nicco]

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 )

[nicco]

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$

[pm]

my @A=stat $ARGV[0];die sprintf "%04o", $A[2] & 07777 ;

[l4m4]

Asi tak. Konvertovat perlem výstup z ls, když se dají vlastnosti souboru zjistit snáz přímo v perlu, je zvrhlé.

[nicco]

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

[NN]

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_]

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

[nicco]

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]

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.

[nicco]

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.

[pht]

napr toto nefunguje:

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

Mně přijde, že to funguje přesně jak má.

[nicco]

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.