The biggest trap of all is forgetting to use the B<-w> switch; see
L<perlrun>. The second biggest trap is not making your entire program
-runnable under C<use strict>.
+runnable under C<use strict>. The third biggest trap is not reading
+the list of changes in this version of Perl; see L<perldelta>.
=head2 Awk Traps
use English;
-allows you to refer to special variables (like $RS) as
-though they were in B<awk>; see L<perlvar> for details.
+allows you to refer to special variables (like C<$/>) with names (like
+$RS), as though they were in B<awk>; see L<perlvar> for details.
=item *
=item *
-Variables begin with "$" or "@" in Perl.
+Variables begin with "$", "@" or "%" in Perl.
=item *
=item *
-Associative array values do not spring into existence upon mere
-reference.
+Hash values do not spring into existence upon mere reference.
=item *
=item *
Reading an input line does not split it for you. You get to split it
-yourself to an array. And the split() operator has different
-arguments.
+to an array yourself. And the split() operator has different
+arguments than B<awk>'s.
=item *
=item *
-$<I<digit>> does not refer to fields--it refers to substrings matched by
-the last match pattern.
+$<I<digit>> does not refer to fields--it refers to substrings matched
+by the last match pattern.
=item *
The print() statement does not add field and record separators unless
-you set C<$,> and C<$.>. You can set $OFS and $ORS if you're using
+you set C<$,> and C<$\>. You can set $OFS and $ORS if you're using
the English module.
=item *
=item *
The concatenation operator is ".", not the null string. (Using the
-null string would render C</pat/ /pat/> unparsable, since the third slash
-would be interpreted as a division operator--the tokener is in fact
+null string would render C</pat/ /pat/> unparsable, because the third slash
+would be interpreted as a division operator--the tokenizer is in fact
slightly context sensitive for operators like "/", "?", and ">".
And in fact, "." itself can be the beginning of a number.)
=item *
-The C<break> and C<continue> keywords from C become in
+The C<break> and C<continue> keywords from C become in
Perl C<last> and C<next>, respectively.
-Unlike in C, these do I<NOT> work within a C<do { } while> construct.
+Unlike in C, these do I<not> work within a C<do { } while> construct.
=item *
=item *
-Variables begin with "$" or "@" in Perl.
+Variables begin with "$", "@" or "%" in Perl.
=item *
=item *
You can't take the address of anything, although a similar operator
-in Perl 5 is the backslash, which creates a reference.
+in Perl is the backslash, which creates a reference.
=item *
=item *
Shells (especially B<csh>) do several levels of substitution on each
-command line. Perl does substitution only in certain constructs
+command line. Perl does substitution in only certain constructs
such as double quotes, backticks, angle brackets, and search patterns.
=item *
=item *
-Avoid barewords if you can, especially all lower-case ones.
-You can't tell just by looking at it whether a bareword is
-a function or a string. By using quotes on strings and
-parens on function calls, you won't ever get them confused.
+Avoid barewords if you can, especially all lowercase ones.
+You can't tell by just looking at it whether a bareword is
+a function or a string. By using quotes on strings and
+parentheses on function calls, you won't ever get them confused.
=item *
-You cannot discern from mere inspection which built-ins
-are unary operators (like chop() and chdir())
+You cannot discern from mere inspection which builtins
+are unary operators (like chop() and chdir())
and which are list operators (like print() and unlink()).
-(User-defined subroutines can B<only> be list operators, never
+(User-defined subroutines can be B<only> list operators, never
unary ones.) See L<perlop>.
=item *
People have a hard time remembering that some functions
default to $_, or @ARGV, or whatever, but that others which
-you might expect to do not.
+you might expect to do not.
=item *
The <FH> construct is not the name of the filehandle, it is a readline
-operation on that handle. The data read is only assigned to $_ if the
+operation on that handle. The data read is assigned to $_ only if the
file read is the sole condition in a while loop:
while (<FH>) { }
- while ($_ = <FH>) { }..
+ while (defined($_ = <FH>)) { }..
<FH>; # data discarded!
=item *
-Remember not to use "C<=>" when you need "C<=~>";
+Remember not to use C<=> when you need C<=~>;
these two constructs are quite different:
$x = /foo/;
=item *
-The C<do {}> construct isn't a real loop that you can use
+The C<do {}> construct isn't a real loop that you can use
loop control on.
=item *
-Use C<my()> for local variables whenever you can get away with
-it (but see L<perlform> for where you can't).
-Using C<local()> actually gives a local value to a global
+Use C<my()> for local variables whenever you can get away with
+it (but see L<perlform> for where you can't).
+Using C<local()> actually gives a local value to a global
variable, which leaves you open to unforeseen side-effects
of dynamic scoping.
=back
-=head2 Perl4 to Perl5 Traps
+=head2 Perl4 to Perl5 Traps
-Practicing Perl4 Programmers should take note of the following
+Practicing Perl4 Programmers should take note of the following
Perl4-to-Perl5 specific traps.
They're crudely ordered according to the following list:
=back
If you find an example of a conversion trap that is not listed here,
-please submit it to Bill Middleton F<wjm@best.com> for inclusion.
-Also note that at least some of these can be caught with C<-w>.
+please submit it to Bill Middleton <F<wjm@best.com>> for inclusion.
+Also note that at least some of these can be caught with the
+C<use warnings> pragma or the B<-w> switch.
=head2 Discontinuance, Deprecation, and BugFix traps
Anything that has been discontinued, deprecated, or fixed as
-a bug from perl4.
+a bug from perl4.
=over 4
-=item * Discontinuance
+=item * Discontinuance
Symbols starting with "_" are no longer forced into package main, except
for C<$_> itself (and C<@_>, etc.).
package main;
print "\$_legacy is ",$_legacy,"\n";
-
+
# perl4 prints: $_legacy is 1
# perl5 prints: $_legacy is
-=item * Deprecation
+=item * Deprecation
Double-colon is now a valid package separator in a variable name. Thus these
-behave differently in perl4 vs. perl5, since the packages don't exist.
+behave differently in perl4 vs. perl5, because the packages don't exist.
$a=1;$b=2;$c=3;$var=4;
print "$a::$b::$c ";
print "$var::abc::xyz\n";
-
+
# perl4 prints: 1::2::3 4::abc::xyz
# perl5 prints: 3
$x = 10 ;
print "x=${'x}\n" ;
-
+
# perl4 prints: x=10
# perl5 prints: Can't find string terminator "'" anywhere before EOF
-Also see precedence traps, for parsing C<$:>.
+You can avoid this problem, and remain compatible with perl4, if you
+always explicitly include the package name:
+
+ $x = 10 ;
+ print "x=${main'x}\n" ;
+
+Also see precedence traps, for parsing C<$:>.
=item * BugFix
The second and third arguments of C<splice()> are now evaluated in scalar
context (as the Camel says) rather than list context.
- sub sub1{return(0,2) } # return a 2-elem array
- sub sub2{ return(1,2,3)} # return a 3-elem array
- @a1 = ("a","b","c","d","e");
+ sub sub1{return(0,2) } # return a 2-element list
+ sub sub2{ return(1,2,3)} # return a 3-element list
+ @a1 = ("a","b","c","d","e");
@a2 = splice(@a1,&sub1,&sub2);
print join(' ',@a2),"\n";
-
+
# perl4 prints: a b
- # perl5 prints: c d e
+ # perl5 prints: c d e
-=item * Discontinuance
+=item * Discontinuance
You can't do a C<goto> into a block that is optimized away. Darn.
goto marker1;
- for(1){
+ for(1){
marker1:
print "Here I is!\n";
- }
-
+ }
+
# perl4 prints: Here I is!
# perl5 dumps core (SEGV)
-=item * Discontinuance
+=item * Discontinuance
It is no longer syntactically legal to use whitespace as the name
of a variable, or as a delimiter for any kind of quote construct.
-Double darn.
+Double darn.
$a = ("foo bar");
$b = q baz ;
print "a is $a, b is $b\n";
-
+
# perl4 prints: a is foo bar, b is baz
- # perl5 errors: Bare word found where operator expected
+ # perl5 errors: Bareword found where operator expected
=item * Discontinuance
else {
print "False!";
}
-
+
# perl4 prints: True!
# perl5 errors: syntax error at test.pl line 1, near "if {"
It was documented to work this way before, but didn't.
print -4**2,"\n";
-
+
# perl4 prints: 16
# perl5 prints: -16
-=item * Discontinuance
+=item * Discontinuance
The meaning of C<foreach{}> has changed slightly when it is iterating over a
list which is not an array. This used to assign the list to a
$var = 1;
}
print (join(':',@list));
-
+
# perl4 prints: ab:abc:bcd:def
# perl5 prints: 1:1:bcd:def
To retain Perl4 semantics you need to assign your list
-explicitly to a temporary array and then iterate over that. For
+explicitly to a temporary array and then iterate over that. For
example, you might need to change
foreach $var (grep(/ab/,@list)){
# perl4 prints: :hi:mom
# perl5 prints: hi:mom
+=item * BugFix
+
+Perl 4 would ignore any text which was attached to an B<-e> switch,
+always taking the code snippet from the following arg. Additionally, it
+would silently accept an B<-e> switch without a following arg. Both of
+these behaviors have been fixed.
+
+ perl -e'print "attached to -e"' 'print "separate arg"'
+
+ # perl4 prints: separate arg
+ # perl5 prints: attached to -e
+
+ perl -e
+
+ # perl4 prints:
+ # perl5 dies: No code specified for -e.
+
+=item * Discontinuance
+
+In Perl 4 the return value of C<push> was undocumented, but it was
+actually the last value being pushed onto the target list. In Perl 5
+the return value of C<push> is documented, but has changed, it is the
+number of elements in the resulting list.
+
+ @x = ('existing');
+ print push(@x, 'first new', 'second new');
+
+ # perl4 prints: second new
+ # perl5 prints: 3
+
=item * Deprecation
Some error messages will be different.
-=item * Discontinuance
+=item * Discontinuance
Some bugs may have been inadvertently removed. :-)
$string . = "more string";
print $string;
-
+
# perl4 prints: more string
# perl5 prints: syntax error at - line 1, near ". ="
sub foo {}
&foo
print("hello, world\n");
-
+
# perl4 prints: hello, world
# perl5 prints: syntax error
print
($foo == 1) ? "is one\n" : "is zero\n";
-
+
# perl4 prints: is zero
# perl5 warns: "Useless use of a constant in void context" if using -w
+=item * Parsing
+
+String interpolation of the C<$#array> construct differs when braces
+are to used around the name.
+
+ @ = (1..3);
+ print "${#a}";
+
+ # perl4 prints: 2
+ # perl5 fails with syntax error
+
+ @ = (1..3);
+ print "$#{a}";
+
+ # perl4 prints: {a}
+ # perl5 prints: 2
+
=back
=head2 Numerical Traps
Formatted output and significant digits
print 7.373504 - 0, "\n";
- printf "%20.18f\n", 7.373504 - 0;
-
+ printf "%20.18f\n", 7.373504 - 0;
+
# Perl4 prints:
7.375039999999996141
7.37503999999999614
-
+
# Perl5 prints:
7.373504
7.37503999999999614
=item * Numerical
-This specific item has been deleted. It demonstrated how the autoincrement
+This specific item has been deleted. It demonstrated how the auto-increment
operator would not catch when a number went over the signed int limit. Fixed
-in 5.003_04. But always be wary when using large ints. If in doubt:
+in version 5.003_04. But always be wary when using large integers.
+If in doubt:
use Math::BigInt;
-=item * Numerical
+=item * Numerical
Assignment of return values from numeric equality tests
does not work in perl5 when the test evaluates to false (0).
Logical tests now return an null, instead of 0
-
+
$p = ($test == 1);
print $p,"\n";
-
+
# perl4 prints: 0
# perl5 prints:
-Also see the L<General Regular Expression Traps> tests for another example
-of this new feature...
+Also see L<"General Regular Expression Traps using s///, etc.">
+for another example of this new feature...
+
+=item * Bitwise string ops
+
+When bitwise operators which can operate upon either numbers or
+strings (C<& | ^ ~>) are given only strings as arguments, perl4 would
+treat the operands as bitstrings so long as the program contained a call
+to the C<vec()> function. perl5 treats the string operands as bitstrings.
+(See L<perlop/Bitwise String Operators> for more details.)
+
+ $fred = "10";
+ $barney = "12";
+ $betty = $fred & $barney;
+ print "$betty\n";
+ # Uncomment the next line to change perl4's behavior
+ # ($dummy) = vec("dummy", 0, 0);
+
+ # Perl4 prints:
+ 8
+
+ # Perl5 prints:
+ 10
+
+ # If vec() is used anywhere in the program, both print:
+ 10
=back
@a = (1, 2, 3, 4, 5);
print "The third element of the array is $a[3] also expressed as $a[-2] \n";
-
+
# perl4 prints: The third element of the array is 4 also expressed as
# perl5 prints: The third element of the array is 4 also expressed as 4
Setting C<$#array> lower now discards array elements, and makes them
impossible to recover.
- @a = (a,b,c,d,e);
+ @a = (a,b,c,d,e);
print "Before: ",join('',@a);
- $#a =1;
+ $#a =1;
print ", After: ",join('',@a);
$#a =3;
print ", Recovered: ",join('',@a),"\n";
-
+
# perl4 prints: Before: abcde, After: ab, Recovered: abcd
# perl5 prints: Before: abcde, After: ab, Recovered: ab
Hashes get defined before use
- local($s,@a,%h);
+ local($s,@a,%h);
die "scalar \$s defined" if defined($s);
die "array \@a defined" if defined(@a);
die "hash \%h defined" if defined(%h);
-
+
# perl4 prints:
# perl5 dies: hash %h defined
+Perl will now generate a warning when it sees defined(@a) and
+defined(%h).
+
=item * (Globs)
glob assignment from variable to variable will fail if the assigned
*b = *a;
local(@a);
print @b,"\n";
-
+
# perl4 prints: This is Perl 4
# perl5 prints:
-
- # Another example
-
- *fred = *barney; # fred is aliased to barney
- @barney = (1, 2, 4);
- # @fred;
- print "@fred"; # should print "1, 2, 4"
-
- # perl4 prints: 1 2 4
- # perl5 prints: Literal @fred now requires backslash
+
+=item * (Globs)
+
+Assigning C<undef> to a glob has no effect in Perl 5. In Perl 4
+it undefines the associated scalar (but may have other side effects
+including SEGVs).
=item * (Scalar String)
print ++$x," : ";
print -$x," : ";
print ++$x,"\n";
-
+
# perl4 prints: aab : -0 : 1
# perl5 prints: aab : -aab : aac
$_[0] = "m";
print " after: $_[0]\n";
}
-
+
# perl4:
# before: x after: m
# before: a after: m
# before: m after: m
# before: m after: m
-
+
# Perl5:
# before: x after: m
# Modification of a read-only value attempted at foo.pl line 12.
The behavior is slightly different for:
print "$x", defined $x
-
+
# perl 4: 1
# perl 5: <no output, $x is not called into existence>
=item * (Variable Suicide)
Variable suicide behavior is more consistent under Perl 5.
-Perl5 exhibits the same behavior for associative arrays and scalars,
-that perl4 exhibits only for scalars.
+Perl5 exhibits the same behavior for hashes and scalars,
+that perl4 exhibits for only scalars.
$aGlobal{ "aKey" } = "global value";
print "MAIN:", $aGlobal{"aKey"}, "\n";
sub test {
local( *theArgument ) = @_;
local( %aNewLocal ); # perl 4 != 5.001l,m
- $aNewLocal{"aKey"} = "this should never appear";
+ $aNewLocal{"aKey"} = "this should never appear";
print "SUB: ", $theArgument{"aKey"}, "\n";
$aNewLocal{"aKey"} = "level $GlobalLevel"; # what should print
$GlobalLevel++;
&test( *aNewLocal );
}
}
-
+
# Perl4:
# MAIN:global value
# SUB: global value
# SUB: level 0
# SUB: level 1
# SUB: level 2
-
+
# Perl5:
# MAIN:global value
# SUB: global value
@<<<<< @||||| @>>>>>
@fmt;
.
- write;
-
+ write;
+
# perl4 errors: Please use commas to separate fields in file
# perl5 prints: foo bar baz
=item * (scalar context)
-The C<caller()> function now returns a false value in a scalar context
-if there is no caller. This lets library files determine if they're
+The C<caller()> function now returns a false value in a scalar context
+if there is no caller. This lets library files determine if they're
being required.
caller() ? (print "You rang?\n") : (print "Got a 0\n");
-
+
# perl4 errors: There is no caller
# perl5 prints: Got a 0
@y= ('a','b','c');
$x = (1, 2, @y);
print "x = $x\n";
-
+
# Perl4 prints: x = c # Thinks list context interpolates list
# Perl5 prints: x = 3 # Knows scalar uses length of list
@z = ('%s%s', 'foo', 'bar');
$x = sprintf(@z);
if ($x eq 'foobar') {print "ok 2\n";} else {print "not ok 2 '$x'\n";}
-
+
# perl4 prints: ok 2
# perl5 prints: not ok 2
C<printf()> works fine, though:
printf STDOUT (@z);
- print "\n";
-
+ print "\n";
+
# perl4 prints: foobar
# perl5 prints: foobar
Perl4-to-Perl5 traps involving precedence order.
+Perl 4 has almost the same precedence rules as Perl 5 for the operators
+that they both have. Perl 4 however, seems to have had some
+inconsistencies that made the behavior differ from what was documented.
+
=over 5
=item * Precedence
-LHS vs. RHS when both sides are getting an op.
+LHS vs. RHS of any assignment operator. LHS is evaluated first
+in perl4, second in perl5; this can affect the relationship
+between side-effects in sub-expressions.
@arr = ( 'left', 'right' );
$a{shift @arr} = shift @arr;
print "n is $n, ";
$m = keys %map + 2; # number of items in hash plus 2
print "m is $m\n";
-
+
# perl4 prints: n is 3, m is 6
# perl5 errors and fails to compile
operator. So you now must parenthesize them in expressions like
/foo/ ? ($a += 2) : ($a -= 2);
-
+
Otherwise
/foo/ ? $a += 2 : $a -= 2
On the other hand,
- $a += /foo/ ? 1 : 2;
+ $a += /foo/ ? 1 : 2;
now works as a C programmer would expect.
open FOO || die;
-is now incorrect. You need parens around the filehandle.
-Otherwise, perl5 leaves the statement as it's default precedence:
+is now incorrect. You need parentheses around the filehandle.
+Otherwise, perl5 leaves the statement as its default precedence:
open(FOO || die);
-
+
# perl4 opens or dies
# perl5 errors: Precedence problem: open FOO should be open(FOO)
treats C<$::> as main C<package>
$a = "x"; print "$::a";
-
+
# perl 4 prints: -:a
# perl 5 prints: x
=item * Precedence
-concatenation precedence over filetest operator?
+perl4 had buggy precedence for the file test operators vis-a-vis
+the assignment operators. Thus, although the precedence table
+for perl4 leads one to believe C<-e $foo .= "q"> should parse as
+C<((-e $foo) .= "q")>, it actually parses as C<(-e ($foo .= "q"))>.
+In perl5, the precedence is as documented.
+
+ -e $foo .= "q"
- -e $foo .= "q"
-
# perl4 prints: no output
# perl5 prints: Can't modify -e in concatenation
=item * Precedence
-Assignment to value takes precedence over assignment to key in
-perl5 when using the shift operator on both sides.
+In perl4, keys(), each() and values() were special high-precedence operators
+that operated on a single hash, but in perl5, they are regular named unary
+operators. As documented, named unary operators have lower precedence
+than the arithmetic and concatenation operators C<+ - .>, but the perl4
+variants of these operators actually bind tighter than C<+ - .>.
+Thus, for:
- @arr = ( 'left', 'right' );
- $a{shift @arr} = shift @arr;
- print join( ' ', keys %a );
+ %foo = 1..10;
+ print keys %foo - 1
- # perl4 prints: left
- # perl5 prints: right
+ # perl4 prints: 4
+ # perl5 prints: Type of arg 1 to keys must be hash (not subtraction)
+
+The perl4 behavior was probably more useful, if less consistent.
=back
=item * Regular Expression
C<s'$lhs'$rhs'> now does no interpolation on either side. It used to
-interpolate C<$lhs> but not C<$rhs>. (And still does not match a literal
+interpolate $lhs but not $rhs. (And still does not match a literal
'$' in string)
$a=1;$b=2;
$string = '1 2 $a $b';
$string =~ s'$a'$b';
print $string,"\n";
-
+
# perl4 prints: $b 2 $a $b
# perl5 prints: 1 2 $a $b
&doit("blah");
}
sub doit{local($_) = shift; print "Got $_ "}
-
+
# perl4 prints: blah blah blah
# perl5 prints: infinite loop blah...
=item * Regular Expression
+Currently, if you use the C<m//o> qualifier on a regular expression
+within an anonymous sub, I<all> closures generated from that anonymous
+sub will use the regular expression as it was compiled when it was used
+the very first time in any such closure. For instance, if you say
+
+ sub build_match {
+ my($left,$right) = @_;
+ return sub { $_[0] =~ /$left stuff $right/o; };
+ }
+
+build_match() will always return a sub which matches the contents of
+$left and $right as they were the I<first> time that build_match()
+was called, not as they are in the current call.
+
+This is probably a bug, and may change in future versions of Perl.
+
+=item * Regular Expression
+
If no parentheses are used in a match, Perl4 sets C<$+> to
the whole match, just like C<$&>. Perl5 does not.
"abcdef" =~ /b.*e/;
print "\$+ = $+\n";
-
+
# perl4 prints: bcde
# perl5 prints:
$string = "test";
$value = ($string =~ s/foo//);
print $value, "\n";
-
+
# perl4 prints: 0
# perl5 prints:
=item * Regular Expression
-C<s`lhs`rhs`> (using backticks) is now a normal substitution, with no
+C<s`lhs`rhs`> (using backticks) is now a normal substitution, with no
backtick expansion
$string = "";
$string =~ s`^`hostname`;
print $string, "\n";
-
+
# perl4 prints: <the local hostname>
# perl5 prints: hostname
Stricter parsing of variables used in regular expressions
s/^([^$grpc]*$grpc[$opt$plus$rep]?)//o;
-
+
# perl4: compiles w/o error
# perl5: with Scalar found where operator expected ..., near "$opt$plus"
the actual value of the s'd string after the substitution.
C<[$opt]> is a character class in perl4 and an array subscript in perl5
- $grpc = 'a';
+ $grpc = 'a';
$opt = 'r';
$_ = 'bar';
s/^([^$grpc]*$grpc[$opt]?)/foo/;
print ;
-
+
# perl4 prints: foo
# perl5 prints: foobar
if( &match() ) {
# m?x? matches more then once
print "perl4\n";
- } else {
+ } else {
# m?x? matches only once
- print "perl5\n";
+ print "perl5\n";
}
-
+
# perl4 prints: perl4
# perl5 prints: perl5
sub SeeYa { warn"Hasta la vista, baby!" }
$SIG{'TERM'} = SeeYa;
print "SIGTERM is now $SIG{'TERM'}\n";
-
+
# perl4 prints: SIGTERM is main'SeeYa
# perl5 prints: SIGTERM is now main::1
reverse is no longer allowed as the name of a sort subroutine.
sub reverse{ print "yup "; $a <=> $b }
- print sort reverse a,b,c;
-
+ print sort reverse a,b,c;
+
# perl4 prints: yup yup yup yup abc
- # perl5 prints: abc
+ # perl5 prints: abc
-=item * warn() specifically implies STDERR
+=item * warn() won't let you specify a filehandle.
+
+Although it _always_ printed to STDERR, warn() would let you specify a
+filehandle in perl4. With perl5 it does not.
warn STDERR "Foo!";
# perl4 prints: Foo!
- # perl5 prints: String found where operator expected
+ # perl5 prints: String found where operator expected
=back
=item * (SysV)
-Under HPUX, and some other SysV OS's, one had to reset any signal handler,
-within the signal handler function, each time a signal was handled with
-perl4. With perl5, the reset is now done correctly. Any code relying
+Under HPUX, and some other SysV OSes, one had to reset any signal handler,
+within the signal handler function, each time a signal was handled with
+perl4. With perl5, the reset is now done correctly. Any code relying
on the handler _not_ being reset will have to be reworked.
-5.002 and beyond uses sigaction() under SysV
+Since version 5.002, Perl uses sigaction() under SysV.
sub gotit {
- print "Got @_... ";
- }
+ print "Got @_... ";
+ }
$SIG{'INT'} = 'gotit';
-
+
$| = 1;
$pid = fork;
if ($pid) {
kill('INT', $pid);
sleep(1);
kill('INT', $pid);
- } else {
+ } else {
while (1) {sleep(10);}
- }
-
+ }
+
# perl4 (HPUX) prints: Got INT...
# perl5 (HPUX) prints: Got INT... Got INT...
=item * (SysV)
-Under SysV OS's, C<seek()> on a file opened to append C<E<gt>E<gt>> now does
-the right thing w.r.t. the fopen() man page. e.g. - When a file is opened
+Under SysV OSes, C<seek()> on a file opened to append C<<< >> >>> now does
+the right thing w.r.t. the fopen() manpage. e.g., - When a file is opened
for append, it is impossible to overwrite information already in
the file.
open(TEST,">>seek.test");
- $start = tell TEST ;
+ $start = tell TEST ;
foreach(1 .. 9){
print TEST "$_ ";
}
$end = tell TEST ;
seek(TEST,$start,0);
print TEST "18 characters here";
-
+
# perl4 (solaris) seek.test has: 18 characters here
# perl5 (solaris) seek.test has: 1 2 3 4 5 6 7 8 9 18 characters here
=head2 Interpolation Traps
+Perl4-to-Perl5 traps having to do with how things get interpolated
+within certain expressions, statements, contexts, or whatever.
+
=over 5
=item * Interpolation
@ now always interpolates an array in double-quotish strings.
- print "To: someone@somewhere.com\n";
-
+ print "To: someone@somewhere.com\n";
+
# perl4 prints: To:someone@somewhere.com
- # perl5 errors : Literal @somewhere now requires backslash
+ # perl5 errors : In string, @somewhere now must be written as \@somewhere
=item * Interpolation
-Perl4-to-Perl5 traps having to do with how things get interpolated
-within certain expressions, statements, contexts, or whatever.
-
Double-quoted strings may no longer end with an unescaped $ or @.
$foo = "foo$";
$bar = "bar@";
print "foo is $foo, bar is $bar\n";
-
+
# perl4 prints: foo is foo$, bar is bar@
# perl5 errors: Final $ should be \$ or $name
=item * Interpolation
+Perl now sometimes evaluates arbitrary expressions inside braces that occur
+within double quotes (usually when the opening brace is preceded by C<$>
+or C<@>).
+
+ @www = "buz";
+ $foo = "foo";
+ $bar = "bar";
+ sub foo { return "bar" };
+ print "|@{w.w.w}|${main'foo}|";
+
+ # perl4 prints: |@{w.w.w}|foo|
+ # perl5 prints: |buz|bar|
+
+Note that you can C<use strict;> to ward off such trappiness under perl5.
+
+=item * Interpolation
+
The construct "this is $$x" used to interpolate the pid at that
-point, but now apparently tries to dereference C<$x>. C<$$> by itself still
+point, but now apparently tries to dereference $x. C<$$> by itself still
works fine, however.
print "this is $$x\n";
=item * Interpolation
-Creation of hashes on the fly with C<eval "EXPR"> now requires either both
-C<$>'s to be protected in the specification of the hash name, or both curlies
+Creation of hashes on the fly with C<eval "EXPR"> now requires either both
+C<$>'s to be protected in the specification of the hash name, or both curlies
to be protected. If both curlies are protected, the result will be compatible
with perl4 and perl5. This is a very common practice, and should be changed
to use the block form of C<eval{}> if possible.
perl4 programs which unconsciously rely on the bugs in earlier perl versions.
perl -e '$bar=q/not/; print "This is $foo{$bar} perl5"'
-
+
# perl4 prints: This is not perl5
# perl5 prints: This is perl5
=item * Interpolation
-You also have to be careful about array references.
+You also have to be careful about array references.
print "$foo{"
$foo = "array";
print "\$$foo{bar}\n";
-
+
# perl4 prints: $array{bar}
# perl5 prints: $
\$count++;
}
);
-
+
# perl4 runs this ok
- # perl5 prints: Can't find string terminator ")"
+ # perl5 prints: Can't find string terminator ")"
=back
=over 5
-=item * Unclassified
-
-C<require>/C<do> trap using returned value
+=item * C<require>/C<do> trap using returned value
If the file doit.pl has:
sub foo {
$rc = do "./do.pl";
return 8;
- }
+ }
print &foo, "\n";
And the do.pl file has the following single line:
Running doit.pl gives the following:
# perl 4 prints: 3 (aborts the subroutine early)
- # perl 5 prints: 8
+ # perl 5 prints: 8
Same behavior if you replace C<do> with C<require>.
+=item * C<split> on empty string with LIMIT specified
+
+ $string = '';
+ @list = split(/foo/, $string, 2)
+
+Perl4 returns a one element list containing the empty string but Perl5
+returns an empty list.
+
=back
-As always, if any of these are ever officially declared as bugs,
+As always, if any of these are ever officially declared as bugs,
they'll be fixed and removed.