Un program care testează dacă un fişier este vid înainte de deschiderea pentru scriere

115

if (-e "outfile") {

     if (!(-w "outfile")) {

           die ("Missing write permission for outfile.\n");

     }

     if (!(-z "outfile")) {

           die ("File outfile is non-empty.\n");

     }

}

# in acest loc, fie fisierul nu exista

# fie exista si este vid

# fie exista si avem permisiunea de scriere in el

Un program ce tipăreşte mărimea în byte a unui fişier

Secvenţă cod

 

Rezultat în consola text

print ("Enter the name of the file:\n");

$filename = <STDIN>;

chop ($filename);

if (!(-e $filename)) {

     print ("File $filename does not exist.\n");

} else {

     $size = -s $filename;

     print ("File $filename contains $size bytes.\n");

}

 

Enter the name of the file:

tst12.pl

File tst12.pl contains 1629 bytes.

© Cornel Mironel Niculae, 2003-2004

13-Nov-2009