Checks whether an unopened file actually exists. : Open file « File « Perl






Checks whether an unopened file actually exists.

    
#!/usr/local/bin/perl 

unless (open(MYFILE, "file1")) { 
  if (-e "file1") { 
     die ("File file1 exists, but cannot be opened.\n"); 
  } else { 
     die ("File file1 does not exist.\n"); 
  } 
} 
$line = <MYFILE>; 
while ($line ne "") { 
   chop ($line); 
   print ("\U$line\E\n"); 
   $line = <MYFILE>; 
} 

   
    
    
    
  








Related examples in the same category

1.To open a file for appending:
2.To open a file for reading and writing:
3.To open a file for reading:
4.To open a file for writing
5.open (FILEHANDLE, "<&FILEHANDLE2");
6.open (FILEHANDLE2, "<&=FILEHANDLE");
7.open(MYFILE, ">>c:\\outfile.dat")
8.Open FILEHANDLE
9.Open Operators
10.Open a file
11.Open a file from another file handle
12.Open a file to read
13.Open a pipe to the who command
14.Open command expressions
15.Open file for update
16.Open file for writing
17.Open file reading
18.Open for Appending
19.Open for Reading
20.Open for Reading and Writing
21.Open for Writing
22.Open for writing first, then reading
23.Opening an input filter on a Win32 platform
24.Opening files and using file handles: open(filehandle, name);
25.Opens two files and copies one into another.
26.Input Filter: open(FILEHANDLE, COMMAND|);
27.Sending the Output of a Filter to a File: open(STDOUT, ">/dev/tty");
28.Uses die when testing for a successful file open operation.
29.Using open to connect different processes