Perl | Opening and Reading a File

Syntax: open FILEHANDLE, VAR

• Using a File Handle Operator
• Using getc function
• Using read function

• The FileHandle Operator The main method of reading the information from an open filehandle is using the operator < >. When < > operator is used in a list context, it returns a list of lines from the specified filehandle. The example below reads one line from the file and stores it in the scalar. Let the content of file "GFG.txt" is as given below:

  GeeksforGeeks
  Hello Geek
  Geek a revolution
  Geeks are the best
  

  Example: GFG.pl Perl

  # Opening the file 
  open(fh, "GFG.txt") or die "File '$filename' can't be opened";
  
  # Reading First line from the file
  $firstline = <fh>;
  print "$firstline\n";
  

  Output :
• getc Function The getc function returns a single character from the specified FILEHANDLE, or STDIN if none is specified

  Syntax: getc FILEHANDLE

  Perl

  # Opening the file 
  open(fh, "GFG.txt") or die "File '$filename' can't be opened";
   
  # Reading First char from the file
  $firstchar = getc(fh);
  print "$firstchar\n";
  

  Output: If there was an error or the filehandle is at end of the file, then it returns undef.
• read Function The read function is used to read binary data from a file using filehandle.

  Syntax read FILEHANDLE, SCALAR, LENGTH, OFFSET read FILEHANDLE, SCALAR, LENGTH

  Here, LENGTH represents the length of data to be read and the data is placed at the start of SCALAR if no OFFSET is specified. Otherwise, data is placed after bytes of OFFSET in SCALAR. On the success of file reading, the function returns the number of bytes read, zero at end of file, or undef if there was an error.
 
Reading Multiple line at a time
  The example shown below reads the content of file specified by filehandle till it reaches End Of File(EOF). Example: File.pl Perl

# Opening the file
open(FH, "GFG.txt")or die "Sorry!! couldn't open";
print "Reading file \n";

# Reading the file till FH reaches EOF
while(<FH>)
{
    # Printing one line at a time
    print $_;
}
close;

Output :  
Exception Handling in Files
  There are two ways in which Exception can be handled
• Throw an exception if file cannot be opened
• Give a warning if file cannot be opened and continue running
• Throw an Exception When filehandle could not be assigned a valid file pointer at that time die gets executed printing the message and kills the current program. Example : Perl

  # Initializing filename 
  $filename = 'GFG1.txt';
  
  # Prints an error and exits if file not found
  open(fh, '<', $filename) or die "Couldn't Open file $filename";
  

  Output: The above code prints an error if file not found and exits from the code.
• Give a warning When filehandle could not be assigned a valid file pointer it just prints warning message using warn function and keeps running. Example : Perl

  # Initializing filename
  $filename = 'GFG.txt';
  # Opening a file and reading content
  if(open(fh, '<', $filename))
  {
      while(<fh>)
      {
          print $_;
      }
  }
  
  # Executes if file not found
  else
  {
    warn "Couldn't Open a file $filename";
  }
  

  Output:
  
  
  Comment

  More info

  Advertise with us

  Next Article

  Perl | Writing to a File

  R

  rupanisweety

  Follow

  Improve

  Article Tags :

  • Perl
  • Perl-files