Chmod auslesen & prüfen (Allgemeines zu Perl)

[thread]14614[/thread]

Chmod auslesen & prüfen

Leser: 17

Articles: hide open all | hide show old branches

+6 replies
Gast Pep

2010-02-08 16:34
Hallo Leute,
ich habe ein kleines Problem mit meinem Script.

Ich möchte den Chmod von Dateien auslesen & ausgeben lassen.
Liegt der Chmod über 755 soll Grün ausgegeben werden. Andernfalls Rot.

Hier der Schnipsel:
Code (perl): (dl )

1 2 3 4 5 6 7 8

foreach (glob("*.cgi")) { my $mode = (stat($_))[2]; $mode = sprintf '%04o', $mode & 07777; if($mode >= 0755) { $mode = "<span style=\"color:green;\">$mode</span>"; } else { $mode = "<span style=\"color:red;\">$mode</span>"; } print $_." - ".$mode."\n"; }
So richtig funktioniert es nicht.
Es wurde auch wenn ich mich erinner bei 644 grün angezeigt.
Woran liegt es und wie kann ich das vergleichen ?

mfg Pep
- +4 replies
- Linuxer
  
  2010-02-08 16:50
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Hi,
  
  prüf die Rechte doch direkt:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  $mode = (stat($file) )[2] & 07777; if ( $mode >= 0755 ) { # permission of $file is ok } else { # permission is not ok }
  
  edit01:
  Die Zahlenwerte sollte Perl schon selber rechnen können ;o)
  Die oktale Schreibweise ist nur nett dem Benutzer gegenüber, weil es schöner zu lesen ist.
  edit02:
  Filemode-Kontrolle korrigiert: s/<=/>=/
  Last edited: 2010-02-08 17:07:25 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +3 replies
  - betterworld
    
    2010-02-08 18:03
    
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    2010-02-08T15:50:08 Linuxer
    Filemode-Kontrolle korrigiert: s/<=/>=/
    
    Ob ">=" hier wohl so sinnvoll ist? Zum Beispiel ist 0770 größer als 0755, aber gewissermaßen restriktiver. Wenn ich prüfen möchte, ob die Rechte 0755 (oder mehr) vorhanden sind, kann ich $mode & 0755 == 0755 schreiben. (Wem das nicht kryptisch genug ist, der kann auch !(~$mode&0755) schreiben.)
    
    Was genau mit "über 755" gemeint ist, könnte Pep noch mal schreiben. Eine Datei grün darzustellen, die 0777 hat, finde ich nicht besonders schön, denn eigentlich sind solche Dateien ja gerade gefährlich. Normalerweise sollte man versuchen, die Berechtigungen so zu verteilen, dass man nicht auf world-writable-Dateien angewiesen ist. Leider ist das manchmal nicht möglich, wenn man selbst nicht Root ist und dem Webserver Schreibrechte geben will, und der Hoster dafür kein Konzept entwickelt hat.
    
    Edit: Das Bit-Gewurschtel korrigiert.
    Last edited: 2010-02-08 18:20:45 +0100 (CET)
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - Linuxer
      
      2010-02-08 18:09
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hast natürlich recht mit Deinem Einwand. Da habe ich nicht genauer drüber nachgedacht. Mir ging es mehr ums Aufzeigen, dass man die Werte auch direkt vergleichen kann, ohne sie vorher in oktale Schreibweise konvertieren zu müssen...
      ++ für die Rechtebetrachtung.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - Gast Pep
      
      2010-02-08 20:42
      
      Hallo,
      vielen Dank das schon soviele geschrieben haben.
      Ich meinte eigentlich Chmod 755 oder mehr Rechte.
      Da aber schon gesagt wurde das es natürlich bei mehr Rechten gefährlicher wird, reicht es mir wenn bei einem Chmod von 755 grün , andernfalls rot angezeigt wird.
      
      Das ganze läuft in einem Install Script, welches mindestens 755 Rechte benötigt.
      
      lg Pep
- murphy
  
  2010-02-08 18:25
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Guest Pep
  [...]
  
  Code (perl): (dl )
  
  1 2
  
  $mode = sprintf '%04o', $mode & 07777; if($mode >= 0755) { [...] }
  
  So richtig funktioniert es nicht.
  [...]
  
  Das ist ja auch kein Wunder: Du konvertierst eine Zahl in einen String in Oktaldarstellung, den Du dann in einem numerischen Vergleich als Dezimalzahl interpretierst!
  
  Wenn Perl in einer numerischen Operation einen String als Operand antrifft, versucht es immer, den als Dezimalzahl zu interpretieren, ganz egal mit welcher Ziffer er beginnt. Nur numerische Konstanten im Quelltext werden unterschiedlich interpretiert, je nachdem ob sie mit 0, 0x oder etwas anderem beginnen.
  
  In Deinem Falle ist bereits die Konversion der Zahl in einen String überflüssig, Du kannst Perl aber auch anweisen einen String als Oktalzahl zu interpretieren, indem Du oct($mode) schreibst.
  When C++ is your hammer, every problem looks like your thumb.

View all threads created 2010-02-08 16:34.