Exit a Script or Subroutine in Perl

To exit a script or subroutine in Perl place...

exit;

...wherever you want the script to quit.

-Anything placed after exit will not execute.
-Handy for stopping a script if a condition is met.



Copy and Paste Perl Code:

#!/usr/bin/perl

print "Content-type:text/html\n\n";

print "Let's exit!<br>";

$ji=42;

if ($ji eq 33) {
print "Not 42";
}

if ($ji eq 42) {
print "IS 42";
exit;
}


### this code won't execute if $ji equals 42

print "Happy Day!";


### End of Copy and Paste Perl Code



Click HERE to comment or discuss at iLoveTheCode GOOGLE Group

Previous Article: What Environmental Variables are Available

Next Article: Finding the Length (Index Numbers) of an Array in Perl

HTML & XHTML Chuck Musciano, Bi... New $29.99	New Perspectives on Creating Web Pag... Patrick Carey New $69.26	HTML, XHTML, and CSS, Sixth Edition ... Elizabeth Castro New $23.09
jQuery in Action Bear Bibeault, Yeh... New $26.39	CSS Eric Meyer New $29.69	Dreamweaver CS3 David McFarland New $29.69
JavaScript David Flanagan New $31.49	Creating Web Sites Matthew MacDonald New $19.77	Learning Web Design Jennifer Niederst ... New $26.99

Privacy Information