Lauf Perl-Skript gesperrt versehentlich einen Ordner

Question

Ich habe ein Perl-Skript, das den folgenden Code

#/usr/bin/perl 
use strict; use warnings; 
chmod -R 775,"path-to-current-folder"; 

Nach dem Ausführen dieses Skript hat, bin ich nicht in der Lage den aktuellen Ordner zuzugreifen (und öffnen Sie das Skript natürlich) nicht mehr. Wenn Sie den Ordner in Konqueror sehen, gibt es eine zusätzliche Sperre im Ordnersymbol. Kann mir jemand sagen, was passiert ist und wie kann ich das rückgängig machen?

Ich habe die Erlaubnis dieses Ordners überprüft, anscheinend wurde es zu d--------- geändert. Ich habe dieses Problem gelöst, indem ich die Erlaubnis zurücksetzte, aber es wäre großartig, wenn irgendjemand erklären könnte, warum das passiert ist. Vielen Dank.

Answer 1

Ich denke, Sie verwirren die Shell-Kommando 'chmod' mit der 'chmod' Perl-Funktion. Letzterer nimmt eine einzelne Liste als Parameter, dessen erstes Element der numerische Code sein muss, der oktal ausgedrückt wird. Von perldoc -f chmod;

chmod LIST 
      Changes the permissions of a list of files. The first element 
      of the list must be the numeric mode, which should probably be 
      an octal number, and which definitely should not be a string of 
      octal digits: 0644 is okay, but "0644" is not. Returns the 
      number of files successfully changed. See also "oct" if all 
      you have is a string. 

       $cnt = chmod 0755, "foo", "bar"; 
       chmod 0755, @executables; 
      ... etc ... 

Erstere - das heißt, die Schale - hat einen -R Schalter. Details siehe man chmod.