[Tech] Concorso chmod

[Gian]

Leonardo Boselli wrote:
> concorso (senza premi in denaro o natura):
> il più elegante script che:
> data una directory o un inseme di directory (con wildcard)
> a tutte le sottodirectory e i file presenti se già non presenti dia al 
> gruppo le permission date dal comando AND quelle dell'owner, e a all 
> quelle del gruppo AND gruppo.
> per intendersi se un file ha rwxr-xr--
> e do come parametro 766 mi diventa 770 e se lo ripeto 776.
> se detti 755 mi diverrebbe 755 e li si ferma ...
> ovviamnte del directory debbono prendere x se esiste r ...
> buona fortuna !

ma è sempliscissimo, quasi banale: detti 755 nell'insieme di directory
dell'owner AND il gruppo che diventa 700 senza fermarsi li, nella
sottodirectory al gruppo prende x col resto di rwx--xr-- ma dal
parametro dei file presenti, quelli ripetuti tipo 776, risulta che,
banalmente, l'AND del gruppo associato al file della directory (quella
con o senza wildcat) le permission 755 diventano 755 e poi si ferma li...

per concorrere al presente concorso lancia nell'insieme delle directory
sui file presenti se già non presenti il presente script che qui presento:

#!/usr/bin/perl
#
$ _=
 qq
.CG
T--A
A---T
A----T
 C----G
  T----A
   A---T
    G--C
     CG
     CG
    C--G
   G---C
  G----C
 C----G
A----T
C---G
G--C
 AT
 CG
A--T
A---T
G----C
 A----T
  G----C
   C---G
    A--T
     GC
     CG
    G--C
   A---T
  G----C
 G----C
G----C
A---T
T--A
 AT
 CG
T--A
C---G
A----T
 A----T
  G----C
   A---T
    A--T
     CG
     TA
    T--A
   G---C
  G----C
 C----G
A----T
C---G
G--C
 CG
 TA
T--A
C---G
T----A
 C----G
  A----T
   C---G
    G--C
     GC
     TA
    G--C
   C---G
  G----C
 G----C
G----C
A---T
T--A
 CG
 AT
G--C
A---T
A----T
 C----G
  C----G
   A---T
    A--T
     CG
     CG
    G--C
   G---C
  G----C
 A----T
T----A
C---G
G--C
 CG
 TA
A--T
A---T
G----C
 A----T
  A----T
   C---G
    A--T
     GC
     TA
    G--C
   C---G
  T----A
 G----C
G----C
C---G
T--A
 AT
 CG
G--C
G---C
T----A
 C----G
  G----C
   C---G
    C--G
     CG
     AT
    T--A
   C---G
  G----C
 G----C
A----T
T---A
G--C
 CG
 TA
G--C
A---T
G----C
 A----T
  G----C
  .;@_{A
    => C
     =>
     G=>
    T=>}
   =0..3
  ;s;. *
 (\w).*
(\w).*
\n;$_
{ $-
 ++
 /9
%2?$
2:$ 1
};gex;
 s;(.)(
  .)(.)(.
   );chr
    64*$
     1+
     16
    *$2+
   4  *$
  3   +$
 4 ;gex
; eval


-- 

Gian

member of  A.G.O.W. #C10771
   and orgoglione to be!

-------------- parte successiva --------------
Un allegato non testuale è stato rimosso....
Nome:        signature.asc
Tipo:        application/pgp-signature
Dimensione:  189 bytes
Descrizione: OpenPGP digital signature
URL:         <http://lists.linux.it/pipermail/flug-tech/attachments/20070223/15330e13/attachment.pgp>