Differences between current version and predecessor to the previous major change of perlfunc(1).
Other diffs: Previous Revision, Previous Author, or view the Annotated Edit History
Newer page: | version 2 | Last edited on Tuesday, June 4, 2002 12:22:35 am | by perry | |
Older page: | version 1 | Last edited on Tuesday, June 4, 2002 12:22:35 am | by perry | Revert |
@@ -550,9 +550,9 @@
For delays of finer granularity than one second, you may use
Perl's four-argument version of ''select()'' leaving the
first three arguments undefined, or you might be able to use
the syscall interface to access setitimer(2)
-if your system supports it. The Time::HiRes module from
+if your system supports it. The Time::!
HiRes module from
CPAN may also prove useful.
It is usually a mistake to intermix alarm and
@@ -2065,9 +2065,9 @@
The POSIX::getattr function can do this more
portably on systems purporting POSIX
-compliance. See also the Term::ReadKey module from
+compliance. See also the Term::!
ReadKey module from
your nearest CPAN site; details on
CPAN can be found on `` CPAN
'' in perlmodlib.
@@ -4753,9 +4753,9 @@
For delays of finer granularity than one second, you may use
Perl's syscall interface to access
setitimer(2) if your system supports it, or else see
-``select'' above. The Time::HiRes module from
+``select'' above. The Time::!
HiRes module from
CPAN may also help.
See also the POSIX module's pause
@@ -4886,13 +4886,13 @@
sub backwards { $b cmp $a }
@harry = qw(dog cat x Cain Abel);
@george = qw(gone chased yz Punished Axed);
print sort @harry;
-# prints AbelCaincatdogx
+# prints !
AbelCaincatdogx
print sort backwards @harry;
# prints xdogcatCainAbel
print sort @george, 'to', @harry;
-# prints AbelAxedCainPunishedcatchaseddoggonetoxyz
+# prints !
AbelAxedCainPunishedcatchaseddoggonetoxyz
# inefficiently sort by descending numeric compare using
# the first integer after the first = sign, or the
# whole record case-insensitively otherwise
@new = sort {
@@ -4918,12 +4918,12 @@
If you're using strict, you ''must not'' declare $a and $b as lexicals. They are package globals. That means if you're in the main package and type
@articles = sort {$b
-then $a and $b are $main::a and $main::b (or $::a and $::b), but if you're in the FooPack package, it's the same as typing
+then $a and $b are $main::a and $main::b (or $::a and $::b), but if you're in the !
FooPack package, it's the same as typing
- @articles = sort {$FooPack::b
+ @articles = sort {$!
FooPack::b
The comparison function is required to behave. If it returns inconsistent results (sometimes saying $x[[1] is less than $x[[2] and sometimes saying the opposite, for example) the results are not well-defined.
splice ARRAY ,OFFSET,LENGTH,LIST
@@ -5267,9 +5267,9 @@
example:
srand (time ^ $$ ^ unpack
-If you're particularly concerned with this, see the Math::TrulyRandom module in CPAN .
+If you're particularly concerned with this, see the Math::!
TrulyRandom module in CPAN .
Do ''not'' call srand multiple times in your
program unless you know exactly what you're doing and why
@@ -5967,9 +5967,9 @@
localtime.
For measuring time in better granularity than one second,
-you may use either the Time::HiRes module from
+you may use either the Time::!
HiRes module from
CPAN , or if you have gettimeofday(2),
you may be able to use the syscall interface of
Perl, see perlfaq8 for details.
@@ -6435,22 +6435,22 @@
``Bitwise String Operators'' in perlop.
The following code will build up an ASCII
-string saying 'PerlPerlPerl'. The comments show the
+string saying '!
PerlPerlPerl'. The comments show the
string after each step. Note that this code works in the
same way on big-endian or little-endian
machines.
my $foo = '';
vec($foo, 0, 32) = 0x5065726C; # 'Perl'
# $foo eq
- vec($foo, 2, 16) = 0x5065; # 'PerlPe'
-vec($foo, 3, 16) = 0x726C; # 'PerlPerl'
+ vec($foo, 2, 16) = 0x5065; # '!
PerlPe'
+vec($foo, 3, 16) = 0x726C; # '!
PerlPerl'
vec($foo, 8, 8) = 0x50; # 'PerlPerlP'
-vec($foo, 9, 8) = 0x65; # 'PerlPerlPe'
-vec($foo, 20, 4) = 2; # 'PerlPerlPe' .
+vec($foo, 9, 8) = 0x65; # '!
PerlPerlPe'
+vec($foo, 20, 4) = 2; # '!
PerlPerlPe' .
To transform a bit vector into a string or list of 0's and 1's, use these:
$bits = unpack(