NAME SYNOPSIS DESCRIPTION NAME vmsish - Perl pragma to control VMS-specific language features SYNOPSIS use vmsish; use vmsish 'status'; # or '$?' use vmsish 'exit'; use vmsish 'time'; use vmsish 'hushed'; no vmsish 'hushed'; vmsish::hushed($hush); use vmsish; no vmsish 'time'; DESCRIPTION If no import list is supplied, all possible VMS-specific features are assumed. Currently, there are four VMS-specific features available: 'status' (a.k.a '$?'), 'exit', 'time' and 'hushed'. If you're not

vec EXPR,OFFSET,BITS Treats the string in EXPR as a bit vector made up of elements of width BITS and returns the value of the element specified by OFFSET as an unsigned integer. BITS therefore specifies the number of bits that are reserved for each element in the bit vector. This must be a power of two from 1 to 32 (or 64, if your platform supports that). If BITS is 8, "elements" coincide with bytes of the input string. If BITS is 16 or more, bytes of the input string are grouped into chunks of

NAME SYNOPSIS DESCRIPTION NAME vars - Perl pragma to predeclare global variable names SYNOPSIS use vars qw($frob @mung %seen); DESCRIPTION NOTE: For use with variables in the current package for a single scope, the functionality provided by this pragma has been superseded by our declarations, available in Perl v5.6.0 or later, and use of this pragma is discouraged. See our. This will predeclare all the variables whose names are in the list, allowing you to use them under "use strict", and di

values HASH values ARRAY values EXPR In list context, returns a list consisting of all the values of the named hash. In Perl 5.12 or later only, will also return a list of the values of an array; prior to that release, attempting to use an array argument will produce a syntax error. In scalar context, returns the number of values. Hash entries are returned in an apparently random order. The actual random order is specific to a given hash; the exact same series of operations on two hashes may re

utime LIST Changes the access and modification times on each file of a list of files. The first two elements of the list must be the NUMERIC access and modification times, in that order. Returns the number of files successfully changed. The inode change time of each file is set to the current time. For example, this code has the same effect as the Unix touch(1) command when the files already exist and belong to the user running the program: #!/usr/bin/perl $atime = $mtime = time; utime $atime,

NAME SYNOPSIS DESCRIPTIONUtility functions BUGS SEE ALSO NAME utf8 - Perl pragma to enable/disable UTF-8 (or UTF-EBCDIC) in source code SYNOPSIS use utf8; no utf8; # Convert the internal representation of a Perl scalar to/from UTF-8. $num_octets = utf8::upgrade($string); $success = utf8::downgrade($string[, $fail_ok]); # Change each character of a Perl scalar to/from a series of # characters that represent the UTF-8 bytes of each original character. utf8::encode($string); # "\x{100}"

NAME SYNOPSIS DESCRIPTIONSystem Specifics NOTE AUTHOR HISTORY NAME User::pwent - by-name interface to Perl's built-in getpw*() functions SYNOPSIS use User::pwent; $pw = getpwnam('daemon') || die "No daemon user"; if ( $pw->uid == 1 && $pw->dir =~ m#^/(bin|tmp)?\z#s ) { print "gid 1 on root dir"; } $real_shell = $pw->shell || '/bin/sh'; for (($fullname, $office, $workphone, $homephone) = split /\s*,\s*/, $pw->gecos) { s/&/ucfirst(lc($pw->name))

NAME SYNOPSIS DESCRIPTION NOTE AUTHOR NAME User::grent - by-name interface to Perl's built-in getgr*() functions SYNOPSIS use User::grent; $gr = getgrgid(0) or die "No group zero"; if ( $gr->name eq 'wheel' && @{$gr->members} > 1 ) { print "gid zero name wheel, with other members"; } use User::grent qw(:FIELDS); getgrgid(0) or die "No group zero"; if ( $gr_name eq 'wheel' && @gr_members > 1 ) { print "gid zero name wheel, with other members"; } $gr = ge

use Module VERSION LIST use Module VERSION use Module LIST use Module use VERSION Imports some semantics into the current package from the named module, generally by aliasing certain subroutine or variable names into your package. It is exactly equivalent to BEGIN { require Module; Module->import( LIST ); } except that Module must be a bareword. The importation can be made conditional by using the if module. In the peculiar use VERSION form, VERSION may be either a positive decimal fraction

until These flow-control keywords are documented in Compound Statements in perlsyn.