in reply to Issuing chmod commands using perl

I've made an script, that read the list you subbmitted ... You can generate a shell script, for chmodding all your listed files: 

perl -ne '($permissions,$file)=/(\d{3})\)(?:[^\)]+\))?(\S+)/ and print
+ "chmod $permissions $file\n"' list

[download]
...

Hope that helps ...

perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'

Replies are listed 'Best First'.
Re^2: Issuing chmod commands using perl
by localist (Initiate) on Feb 19, 2006 at 18:38 UTC
    In your script, insert something like - 
    
system ("chmod 755 cgi-bin/yabb2");
system ("chmod 755 cgi-bin/yabb2/AdminIndex.pl");
system ("chmod 755 cgi-bin/yabb2/FixFile.pl");
system ("chmod 666 cgi-bin/yabb2/Paths.pl");
system ("chmod 755 cgi-bin/yabb2/Setup.pl");
system ("chmod 755 cgi-bin/yabb2/YaBB.pl");


system ("chmod 777 cgi-bin/yabb2/Admin");
system ("chmod 666 cgi-bin/yabb2/Admin/*"); 


system ("chmod 777 cgi-bin/yabb2/Boards");
system ("chmod 666 cgi-bin/yabb2/Boards/*"); 


system ("chmod 777 cgi-bin/yabb2/Convert");
system ("chmod 777 cgi-bin/yabb2/Convert/Boards");
system ("chmod 777 cgi-bin/yabb2/Convert/Members");
system ("chmod 777 cgi-bin/yabb2/Convert/Messages");
system ("chmod 777 cgi-bin/yabb2/Convert/Variables");


system ("chmod 777 cgi-bin/yabb2/Help/English/Admin");
system ("chmod 777 cgi-bin/yabb2/Help/English/Admin/*"); 

system ("chmod 777 cgi-bin/yabb2/Help/English/Gmod");
system ("chmod 777 cgi-bin/yabb2/Help/English/Gmod/*"); 

system ("chmod 777 cgi-bin/yabb2/Help/English/Moderator");
system ("chmod 777 cgi-bin/yabb2/Help/English/Moderator/*"); 

system ("chmod 777 cgi-bin/yabb2/Help/English/User");
system ("chmod 777 cgi-bin/yabb2/Help/English/User/*"); 

system ("chmod 777 cgi-bin/yabb2/Languages/English");
system ("chmod 666 cgi-bin/yabb2/Languages/English/agreement.txt");
system ("chmod 666 cgi-bin/yabb2/Languages/English/censor.txt");
system ("chmod 777 cgi-bin/yabb2/Languages/English/*"); 

system ("chmod 777 cgi-bin/yabb2/Members");
system ("chmod 666 cgi-bin/yabb2/Members/*"); 


system ("chmod 777 cgi-bin/yabb2/Messages");
system ("chmod 666 cgi-bin/yabb2/Messages/*"); 


system ("chmod 777 cgi-bin/yabb2/Modules/Digest");
system ("chmod 777 cgi-bin/yabb2/Modules/Digest/HMAC_MD5.pm");
system ("chmod 777 cgi-bin/yabb2/Modules/Digest/MD5.pm");


system ("chmod 777 cgi-bin/yabb2/Modules/Time");
system ("chmod 777 cgi-bin/yabb2/Modules/Time/HiRes.pm");


system ("chmod 777 cgi-bin/yabb2/Modules/Upload");
system ("chmod 777 cgi-bin/yabb2/Modules/Upload/CGI.pm");
system ("chmod 777 cgi-bin/yabb2/Modules/Upload/CGI");
system ("chmod 777 cgi-bin/yabb2/Modules/Upload/CGI/Util.pm");


system ("chmod 766 cgi-bin/yabb2/Sources");
system ("chmod 755 cgi-bin/yabb2/Sources/*"); 


system ("chmod 766 cgi-bin/yabb2/Templates");
system ("chmod 766 cgi-bin/yabb2/Templates/default");
system ("chmod 666 cgi-bin/yabb2/Templates/default/*"); 

system ("chmod 766 cgi-bin/yabb2/Variables");
system ("chmod 666 cgi-bin/yabb2/Variables/*");

    [download]
[reply]
[d/l]

      I said shell script ... not perl script ...
      to make a perl script, would be more cool to use the 'chmod' perl function; but it didn't works for wildcarded paths like "/home/somewhere/*" ...

      A little more work ... but yesterday, i was a little bit lazzy ...

      Regards
      turo

      perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'
[reply]
[d/l]

In Section Seekers of Perl Wisdom