changed or removed in future releases of Perl. It should not be
relied upon.
-The only currently recognized attribute is C<shared> which indicates
+The only currently recognized attribute is C<unique> which indicates
that a single copy of the global is to be used by all interpreters
should the program happen to be running in a multi-interpreter
environment. (The default behaviour would be for each interpreter to
attribute also has the effect of making the global readonly.
Examples:
- our @EXPORT : shared = qw(foo);
- our %EXPORT_TAGS : shared = (bar => [qw(aa bb cc)]);
- our $VERSION : shared = "1.00";
+ our @EXPORT : unique = qw(foo);
+ our %EXPORT_TAGS : unique = (bar => [qw(aa bb cc)]);
+ our $VERSION : unique = "1.00";
Multi-interpreter environments can come to being either through the
fork() emulation on Windows platforms, or by embedding perl in a
-multi-threaded application. The C<shared> attribute does nothing in
+multi-threaded application. The C<unique> attribute does nothing in
all other environments.
=item pack TEMPLATE,LIST
still seen in older code).
If NAMESPACE is omitted, then there is no current package, and all
-identifiers must be fully qualified or lexicals. This is stricter
-than C<use strict>, since it also extends to function names.
+identifiers must be fully qualified or lexicals. However, you are
+strongly advised not to make use of this feature. Its use can cause
+unexpected behaviour, even crashing some versions of Perl. It is
+deprecated, and will be removed from a future release.
See L<perlmod/"Packages"> for more information about packages, modules,
and classes. See L<perlsub> for other scoping issues.
=item readline EXPR
-Reads from the filehandle EXPR. The EXPR can be either the name of
-the handle or the typeglob for it. In scalar context, each call reads
-and returns the next line, until end-of-file is reached, whereupon the
-subsequent call returns undef. In list context, reads until
-end-of-file is reached and returns a list of lines. Note that the
-notion of "line" used here is however you may have defined it with
-C<$/> or C<$INPUT_RECORD_SEPARATOR>). See L<perlvar/"$/">.
+Reads from the filehandle whose typeglob is contained in EXPR. In scalar
+context, each call reads and returns the next line, until end-of-file is
+reached, whereupon the subsequent call returns undef. In list context,
+reads until end-of-file is reached and returns a list of lines. Note that
+the notion of "line" used here is however you may have defined it
+with C<$/> or C<$INPUT_RECORD_SEPARATOR>). See L<perlvar/"$/">.
When C<$/> is set to C<undef>, when readline() is in scalar
context (i.e. file slurp mode), and when an empty file is read, it
operator is discussed in more detail in L<perlop/"I/O Operators">.
$line = <STDIN>;
- $line = readline(STDIN); # same thing
$line = readline(*STDIN); # same thing
=item readlink EXPR
=item semop KEY,OPSTRING
Calls the System V IPC function semop to perform semaphore operations
-such as signaling and waiting. OPSTRING must be a packed array of
+such as signalling and waiting. OPSTRING must be a packed array of
semop structures. Each semop structure can be generated with
-C<pack("sss", $semnum, $semop, $semflag)>. The number of semaphore
+C<pack("s!3", $semnum, $semop, $semflag)>. The number of semaphore
operations is implied by the length of OPSTRING. Returns true if
successful, or false if there is an error. As an example, the
following code waits on semaphore $semnum of semaphore id $semid:
- $semop = pack("sss", $semnum, -1, 0);
+ $semop = pack("s!3", $semnum, -1, 0);
die "Semaphore trouble: $!\n" unless semop($semid, $semop);
To signal the semaphore, replace C<-1> with C<1>. See also
($user,$system,$cuser,$csystem) = times;
+In scalar context, C<times> returns C<$user>.
+
=item tr///
The transliteration operator. Same as C<y///>. See L<perlop>.
projects / p5sagit/p5-mst-13.2.git / blobdiff