ต่อไปนี้เป็นคำตอบสำหรับคำถามY (ละเว้นคำถามX ) ซึ่งได้รับแรงบันดาลใจจากความพยายามของ OP:
#!/bin/bash
LC_COLLATE=C
while read ls_out
do
extra=0
perms=0
for i in {1..9}
do
# Shift $perms to the left one bit, so we can always just add the LSB.
let $((perms*=2))
this_char=${ls_out:i:1}
# If it's different from its upper case equivalent,
# it's a lower case letter, so the bit is set.
# Unless it's "l" (lower case L), which is special.
if [ "$this_char" != "${this_char^}" ] && [ "$this_char" != "l" ]
then
let $((perms++))
fi
# If it's not "r", "w", "x", or "-", it indicates that
# one of the high-order (S/s=4000, S/s/L/l=2000, or T/t=1000) bits
# is set.
case "$this_char" in
([^rwx-])
let $((extra += 2 ** (3-i/3) ))
esac
done
printf "%o%.3o\n" "$extra" "$perms"
done
ด้านบนมี bashisms ไม่กี่ ดูเหมือนว่ารุ่นต่อไปนี้จะสอดคล้องกับ POSIX:
#!/bin/sh
LC_COLLATE=C
while read ls_out
do
extra=0
perms=0
for i in $(seq 1 9)
do
# Shift $perms to the left one bit, so we can always just add the LSB.
: $((perms*=2))
this_char=$(expr "$ls_out" : ".\{$i\}\(.\)")
# Lower case letters other than "l" indicate that permission bits are set.
# If it's not "r", "w", "x", or "-", it indicates that
case "$this_char" in
(l)
;;
([a-z])
: $((perms+=1))
esac
# If it's not "r", "w", "x", or "-", it indicates that
# one of the high-order (S/s=4000, S/s/L/l=2000, or T/t=1000) bits
# is set.
case "$this_char" in
([!rwx-])
: $((extra += 1 << (3-i/3) ))
esac
done
printf "%o%.3o\n" "$extra" "$perms"
done
หมายเหตุ:
การใช้งาน:
$ echo drwxr-xr-x | chmod-format
0755
$ echo -rwsr-sr-x | chmod-format
6755
$ echo -rwSr-Sr-- | chmod-format
6644
$ echo -rw-r-lr-- | chmod-format
2644
$ echo ---------- | chmod-format
0000
และใช่ฉันรู้ว่ามันจะดีกว่าที่จะไม่ใช้echoกับข้อความที่อาจเริ่มต้นด้วย-; ฉันแค่ต้องการคัดลอกตัวอย่างการใช้งานจากคำถาม โปรดทราบว่าสิ่งนี้จะละเว้นอักขระที่ 0 (เช่นการนำหน้าd/ b/ c/ -/ l/ p/ s/ D) และอันดับที่ 10 ( +/ ./ @) ถือว่าผู้ดูแลของlsจะไม่กำหนด
r/ Rหรือw/ Wเป็นอักขระที่ถูกต้องในตำแหน่งที่สาม, หกหรือเก้า (และถ้าพวกเขาทำพวกเขาควรจะพ่ายแพ้ด้วยไม้ )
นอกจากนี้ฉันเพิ่งพบรหัสต่อไปนี้โดยcasภายใต้
วิธีการคืนค่ากลุ่ม / เจ้าของผู้ใช้เริ่มต้นของไฟล์ทั้งหมดภายใต้ / var :
let perms=0
[[ "${string}" = ?r???????? ]] && perms=$(( perms + 400 ))
[[ "${string}" = ??w??????? ]] && perms=$(( perms + 200 ))
[[ "${string}" = ???x?????? ]] && perms=$(( perms + 100 ))
[[ "${string}" = ???s?????? ]] && perms=$(( perms + 4100 ))
[[ "${string}" = ???S?????? ]] && perms=$(( perms + 4000 ))
[[ "${string}" = ????r????? ]] && perms=$(( perms + 40 ))
[[ "${string}" = ?????w???? ]] && perms=$(( perms + 20 ))
[[ "${string}" = ??????x??? ]] && perms=$(( perms + 10 ))
[[ "${string}" = ??????s??? ]] && perms=$(( perms + 2010 ))
[[ "${string}" = ??????S??? ]] && perms=$(( perms + 2000 ))
[[ "${string}" = ???????r?? ]] && perms=$(( perms + 4 ))
[[ "${string}" = ????????w? ]] && perms=$(( perms + 2 ))
[[ "${string}" = ?????????x ]] && perms=$(( perms + 1 ))
[[ "${string}" = ?????????t ]] && perms=$(( perms + 1001 ))
[[ "${string}" = ?????????T ]] && perms=$(( perms + 1000 ))
ฉันได้ทดสอบรหัสนี้ (แต่ไม่ละเอียด) และดูเหมือนว่าจะทำงานได้ยกเว้นว่ามันไม่รู้จักlหรือLอยู่ในตำแหน่งที่หก แม้ว่าในขณะที่คำตอบนี้เหนือกว่าในแง่ของความเรียบง่ายและความชัดเจนเหมืองของฉันจะสั้นกว่าจริง ๆ (นับเฉพาะโค้ดภายในลูปเท่านั้นโค้ดที่จัดการกับ-rwxrwxrwxสตริงเดี่ยวไม่นับความคิดเห็น) และอาจทำให้สั้นลงได้ โดยการแทนที่ด้วย
if condition; then …condition && …
แน่นอนคุณไม่ควรแยกการส่งออกของls
statมากง่ายขึ้นด้วย คุณมีหรือไม่ (มันเป็นเครื่องมือ GNU ซึ่งส่วนใหญ่มีอยู่บน Linux ไม่ใช่ใน Unix)