Error Handling in Perl - GeeksforGeeks

11 Nov, 2021
Error Handling in Perl is the process of taking appropriate action against a program that causes difficulty in execution because of some error in the code or the compiler. Processes are prone to errors. For example, if opening a file that does not exist raises an error, or accessing a variable that has not been declared raises an error.The program will halt if an error occurs, and thus using error handling we can take appropriate action instead of halting a program entirely. Error Handling is a major requirement for any language that is prone to errors.
Errors can be classified by the time at which they occur:
Compile Time ErrorsRun Time Errors
Compile Time Errors
Run Time Errors
Compile Time Error: It is an error such as syntax error or missing file reference that prevents the program from successfully compiling.
Run Time Error : It is an error that occurs when the program is running and these errors are usually logical errors that produce the incorrect output.
Perl provides two builtin functions to generate fatal exceptions and warnings, that are:
die()warn()
die()
warn()
die() : To signal occurrences of fatal errors in the sense that the program in question should not be allowed to continue.
For example, accessing a file with open() tells if the open operation is successful before proceeding to other file operations.
open FILE, "filename.txt" or die "Cannot open file: $!\n";
Note: $! is a predefined variable that returns the error message returned by the system on the error.
warn() : Unlike die() function, warn() generates a warning instead of a fatal exception.
For example:
open FILE, "filename.txt" or warn "Cannot open file: $!\n";
if statement
unless function
Error ‘:try’ module
The if statement: The statements in a code block will be executed only if the condition holds true.
perl
if(-e $filename)){  print "File exists";  } else {  die "Cannot open the file. $!"}
unless function : The statements in the code block will only be executed if the expression returns false.
perl
unless(-e $filename) {   die "File Does not Exist! $!";}
The Error ‘:try’ : It is similar to the try and catch block as in Java programming language.
perl
use Error ':try';  try{  open FILE, "filename.txt" or die "File cannot be opened: $!";  while () {      # Do something   }   close FILE;} catch Error::Simple with {     my $err = shift;     print "ERROR: $err";};
So far we have seen how Perl handles and informs about the errors to the programmer, but what if there was an error in a module that needs to be informed to the programmer? Such errors will cause difficulty in execution of all those codes which import that particular module.
For example, you make a module let’s say test.pm, and we are doing a wrong calculation, so an error message will be thrown as shown below:
perl
package test;sub functionName{   warn "Error in module!"}1;
use test;
functionName();
Output:
Error in module! at test.pm line 6
This error handling technique can be used by the programmers to rectify all the errors in the module. Carp module() can be used to provide methods for reporting errors within modules.
It is alternative to warn and die for modules. It is useful for user-defined modules because they act somewhat like die() and warn(), but with a message which is added by the programmer.This Carp module provides some functions which are:
carp()cluck()croak()confess()
carp()
cluck()
croak()
confess()
carp() function: This function works similar to warn function and prints the message given by the user without exiting the script.Example:
perl
package test;use Carp;  sub functionName{   carp "Error in module!"}1;
use test;
functionName();
Output:
Error in module!  at test.pm line 8
cluck() function: This function produces a context which is a summary of every call in the call-stack. It follows the same process as the carp() function does but it prints a stack of all the modules that led to the call to the specific function.Example:
perl
package Test;use Carp qw(cluck);  sub function_name {    cluck "Error in module!";}1;
use Test;
function_name();

Output:
Error in module! at Test.pm line 5
   Test::function_name() called at test.pl line 2
croak() function: This function is similar to die() function, except that it produces a shorter message which reports the error as being from where your module was called.Example:
perl
package Test;use carp;  sub functionName {    croak "Error in module!";}1;
use Test;
functionName();
Output:
Error in module! at test.pl line 2
confess() function: This function is similar to cluck() function. It calls the die function and then prints a stack of all the modules that led to the call to the specific function.Example:
perl
package Test;use Carp;  sub functionName {    confess "Error in module!";}1;
use Test;
functionName();
Output:
Error in module! at Test.pm line 5
   Test::functionName() called at test.pl line 2
anikaseth98
saurabh1990aror
Picked
Perl
Perl
Writing code in comment?
Please use ide.geeksforgeeks.org,
generate link and share the link here.
Comments
Old Comments
Perl Tutorial - Learn Perl With Examples
Perl | Hashes
Perl | Basic Syntax of a Perl Program
Perl | Opening and Reading a File
Perl | Multidimensional Hashes
How to Install Perl on Windows?
Perl | CGI Programming
Perl | Sorting of Arrays
Perl | Data Types
Perl | Operators | Set - 1