Use chmod in Perl

chmod(0777, "hohofiles") || print $!;

This will change the permissions of our directory hohofiles to 777.


-We called Perl's built-in chmod function.
-We set permissions to 777.
-We enclosed the name of the thing to be chmoded in quotation marks. This could have also included the path to hohofiles if it was in a different directory than our script.
-We included two vertical bars or pipes, which mean "or".
-We said to print any error we might receive. The errors are contained in the built-in variable $!

-Summary: chmod our directory or print errors.




Copy and Paste Perl Code:

#!/usr/bin/perl

print "Content-type:text/html\n\n";

chmod(0777, "hohofiles") || print $!;

print " -Done";

exit;



Resources:
Use the Perl PRINT FUNCTION
Making a Directory Using mkdir in Perl



Click HERE to comment or discuss at iLoveTheCode GOOGLE Group

Previous Article: Making a Directory Using mkdir in Perl

Next Article: Delete a File Using unlink in Perl

Build Your Own Website The Right Way... Ian Lloyd New $19.77	jQuery in Action Bear Bibeault, Yeh... New $26.39	Struts 2 in Action Don Brown, Chad Da... New $29.69
CSS Mastery Andy Budd, Simon C... New $23.09	Learning Web Design Jennifer Niederst ... New $29.69	Dreamweaver CS3 David McFarland New $29.69
JavaScript David Flanagan New $31.49	Bulletproof Web Design Dan Cederholm New $26.39	CSS David McFarland New $23.09

Privacy Information