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
Secvenţă cod |
|
Rezultat în consola text |
|
|
Enter the name of the file: tst12.pl File tst12.pl contains 1629 bytes. |
© Cornel Mironel Niculae, 2003-2004
13-Nov-2009