Re: How to end a Perl script

Case number one is used for Packages and Modules, which require (no pun intended) that they end in (= return) a true value. You will also see this one, or any other true value ending packages in the middle of a file if there are several packages in the same one.

Otherwise, just let it fall off the end when possible, and use exit in all other cases. That is by far the cleanest and most readable (and will continue to be the last statement even if someone by mistake adds code after BOTTOM:).

You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue.

Comment on Re: How to end a Perl script Download Code

Replies are listed 'Best First'.
Re: Re: How to end a Perl script by samtregar (Abbot) on May 02, 2002 at 23:08 UTC
You will also see this one, or any other true value ending packages in the middle of a file if there are several packages in the same one. You are correct that you will see this, but it's utterly unnecessary. The true value is there to placate "require." It has absolutely nothing to do with "package." Ending every package with "1;" is like buying a ticket on the Cargo Cult Express. -sam	[reply]
Re: Re: Re: How to end a Perl script by Dog and Pony (Priest) on May 02, 2002 at 23:15 UTC
That is true, as I am aware of (see my no-pun remark above). I still put them there, to a) mark the end of a package in an easily readable way (yes, I want that in addition to a new `package` declaration), and b) so I won't forget it if I decide to move it to a separate file. Cargo Cult or no, I see no error in that practice, at least not for those reasons? But it is ok to point that difference out, of course. You have moved into a dark place. It is pitch black. You are likely to be eaten by a grue.	[reply] [d/l]
Re: Re: Re: Re: How to end a Perl script by samtregar (Abbot) on May 02, 2002 at 23:19 UTC
Cargo Cult practices are very rarely "wrong" in the sense of causing bad results. More often they are, like this one, just plain unnecessary. Instead of a cryptic "1;" you could write "# end of package Foo::Bar." And if you're worried about forgetting the "1;" when you move the package to a new file, well, don't. Perl will be happy to remind you when you try to load the new file! -sam	[reply]
Re(5): How to end a Perl script by Dog and Pony (Priest) on May 03, 2002 at 07:50 UTC
Re: Re(5): How to end a Perl script by demerphq (Chancellor) on May 03, 2002 at 10:23 UTC
Re^3: How to end a Perl script by Anonymous Monk on Oct 15, 2009 at 21:14 UTC
__END__ Anything past that is treated as a comment.	[reply]
Re: Re: How to end a Perl script by Anonymous Monk on May 03, 2002 at 16:05 UTC
if (caller) {return} else {exit}; "exit" is a pain if later you decide to call the scritp from somewhere else with a "do".	[reply]


Perl-Sensitive Sunglasses
	PerlMonks