Perl: Appending and Writing to Files - More Ways to Test Files

(Page 5 of 5 )

There are also ways to test if a file is read, writable, or executable:

$my_file="superhero.txt";

if (-r $my_file)

{

#whatever you want to occur if the file is readable

}

$my_file="superhero.txt";

if (-w $my_file)

{

#whatever you want to occur if the file is writable

}

$my_file="superhero.txt";

if (-x $my_file)

{

#whatever you want to occur if the file is executable

}

And lastly, if you want to test more than one you can use the OR (||), and AND (&&) (ow my brains!) operators.

$my_file="superhero.txt";

if ( (-e $my_file) && (-w $my_file) )

{

#whatever you want to occur if the file exists and is writable

}

Here is a table for a quick reference:

 

File Checks	What it Does
-e	Checks to see if the file exists
-z	Checks to see if a file size is zero
-s	Checks to see if a file size is not zero
-r	Checks to see if a file is readable
-w	Checks to see if a file is writable
-x	Checks to see if a file is executable
-T	Checks to see if a file is a text file
-B	Checks to see if a file is a binary file
&&, ||	And and OR Operators used to check if one criteria or another is true, or if this criteria AND that criteria are true

All right folks. That's it for this section covering Files. In the next series we will cover how to work with Directories and possibly forms, time permitting.

So swing by often.

Till then...

DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware.

Comments On: Perl: Appending and Writing to Files

· > we must first escape using the backslash(/).Do you mean '\' ? -pamag    · Hey thanks for catching that pamag; I did indeed intend for that to read:...   >>> Post your comment now!