in reply to Variation on a (JAPH) theme
Some documentation, some code modifications to try:
s oohaa ctkseurjogis;
#print "$_\n";
s ii rpeehrtlo nisom;
#print "$_\n";
+$ -= + split $ +; ;
=pod
split In scalar context, returns the number of fields found and
splits into the @_ array. Use of split in scalar context is
deprecated, however, because it clobbers your subroutine argu-
ments.
$- The number of lines left on the page of the currently selected
output channel. Used with formats. (Mnemonic: lines_on_page -
lines_printed.)
=cut
#$\ = $/; do {local $\; print "$- "},
print + splice @ ## ;
_ => + $ ---, $ ++ 1
while + $ ---- $ ++ @
_
In My 1st post (japh) I saw 0-1=1 using $|. Now I see 0-1=0 using $-. You and blazar should write a tutorial on "special properties of special variables".
|