Skip to Main Content
Perl in a Nutshell, 2nd Edition
book

Perl in a Nutshell, 2nd Edition

by Nathan Patwardhan, Ellen Siever, Stephen Spainhour
June 2002
Beginner content levelBeginner
759 pages
80h 42m
English
O'Reilly Media, Inc.
Content preview from Perl in a Nutshell, 2nd Edition

vmsish

Controls VMS-specific language features. Currently, there are four VMS-specific features available: status ($?), exit, time, and hushed. If you’re not using VMS, then this module won’t have any affect.

vmsish is shipped with the Perl 5.8 source kit.

For example, without vmsish, you can’t execute a hushed version of exit:

$ perl -e"exit 44;" Non-hushed error exit
%SYSTEM-F-ABORT, abort DCL message $ show sym $STATUS $STATUS ==
"%X0000002C"

When you use vmsish, you get . . . nothing!

$ perl -e"use vmsish qw(hushed); exit 44;"

vmsish implements the following options.

status

Causes $? and system to return the native VMS exit status instead of emulating the POSIX exit status.

exit

Causes exit 1 to produce a successful exit (with status SS$_NORMAL) instead of emulating Unix exit(), which considers exit 1 as an indication of an error. As with the CRTL’s exit() function, exit 0 is also mapped to an exit status of SS$_NORMAL, and any other argument to exit() is used directly as Perl’s exit status.

time

Makes all times relative to the local time zone instead of the default Universal Time (a.k.a. Greenwich Mean Time, or GMT).

hushed

Suppresses printing of VMS status messages to SYS$OUTPUT and SYS$ERROR if Perl terminates with an error status and allows programs that are expecting Unix-style Perl to avoid parsing VMS error messages. It does not supress any messages from Perl itself, just the messages generated by DCL after Perl exits. The DCL symbol $STATUS will still have the termination status, ...

Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Start your free trial

You might also like

Perl by Example, Fourth Edition

Perl by Example, Fourth Edition

Ellie Quigley
Perl Cookbook, 2nd Edition

Perl Cookbook, 2nd Edition

Tom Christiansen, Nathan Torkington
Perl in a Nutshell

Perl in a Nutshell

Nathan Patwardhan, Ellen Siever, Stephen Spainhour
Learning Perl, 7th Edition

Learning Perl, 7th Edition

Randal L. Schwartz, brian d foy, Tom Phoenix

Publisher Resources

ISBN: 0596002416Errata Page