Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Perl 4.010 Reference Guide Kits - Patch 01

1 view
Skip to first unread message

Johan Vromans

unread,
Jul 26, 1991, 4:33:47 AM7/26/91
to

Patch-To: Perl Reference Guide PostScript Kit, version 4.010.1.8
Patch-To: Perl Reference Guide LaTeX Kit, version 4.010.1.8
Priority: HIGH

The following patch corrects most printing problems and a few typos.
It bumps the version number of the Guide to 4.010.2.1.
See the file ChangeLog for more details.

This patch applies to both kits.
If you have unloaded only the PostScript kit, you may safely skip the
patches to refbase.tex and refbase.sty.
If you have unloaded only the LaTeX kit, you may safely skip the
patch to refbase.ps.

diff -r -c ../../Postings/4.010.1/tmp/ChangeLog ./ChangeLog
*** ../../Postings/4.010.1/tmp/ChangeLog Tue Jul 23 09:58:51 1991
--- ./ChangeLog Fri Jul 26 09:41:23 1991
***************
*** 1,6 ****
Sat Jul 20 00:31:47 1991 Johan Vromans (jv at pronto)

! * Released to USEnet

* This is a brand new version.

--- 1,39 ----
+ Fri Jul 26 09:15:58 1991 Johan Vromans (jv at largo)
+
+ * Released to USEnet (patch). Official version is 4.010.2.1.
+
+ * ch04: typo: | -> || (two locations)
+
+ * parr: slightly increase $topmargin for US paper.
+
+ * ch06: typo: log or/and | & -> || &&
+
+ Thu Jul 25 11:11:24 1991 Johan Vromans (jv at largo)
+
+ * Makefile/README: Clarify the use of guide-{odd,even?}.ps.
+
+ * parr: Suppress extraneous %%Page comments to obtain more
+ conformant PostScript. Some PS viewers and printers (or
+ print-spoolers) seem to choke in these extraneous comments.
+
+ Set $leftmargin to 0 for US-Letter format. According to most
+ respondents this seems to be the correct value.
+
+ Tue Jul 23 18:32:54 1991 Johan Vromans (jv at largo)
+
+ * Makefile: allow MASTER=test for testing.
+
+ * ch03: typo: $var -> $#var is last element of array.
+
+ * ch00: move front page info a bit down/right.
+
+ Mon Jul 22 22:05:57 1991 Johan Vromans (jv at pronto)
+
+ * ch00: typo: deigned -> designed.
+
Sat Jul 20 00:31:47 1991 Johan Vromans (jv at pronto)

! * Released to USEnet. Official version is 4.010.1.8.

* This is a brand new version.

diff -r -c ../../Postings/4.010.1/tmp/Makefile ./Makefile
*** ../../Postings/4.010.1/tmp/Makefile Tue Jul 23 09:58:52 1991
--- ./Makefile Fri Jul 26 09:42:49 1991
***************
*** 1,4 ****
! # @(#)@ Makefile 4.1.10 - Makefile for Perl Reference Guide

# This Makefile requires perl to be in your PATH.

--- 1,4 ----
! # @(#)@ Makefile 4.2.1 - Makefile for Perl Reference Guide

# This Makefile requires perl to be in your PATH.

***************
*** 17,26 ****
-o 21,2,3,20,19,4,5,18,17,6,7,16,15,8,9,14,13,10,11,12 \
refbase.ps > refguide.ps

! # Odd and even passes for centerfold printing. First print
! # guide-odd.ps, then find out which of the others to use.
! # guide-even1.ps is for Apple LaserWriter II, guide-even1.ps for old
! # Apple LaserWriters.
guide-odd.ps: refbase.ps parr
perl ./parr $(PAPER) \
-o 21,2,19,4,17,6,15,8,13,10 refbase.ps > guide-odd.ps
--- 17,29 ----
-o 21,2,3,20,19,4,5,18,17,6,7,16,15,8,9,14,13,10,11,12 \
refbase.ps > refguide.ps

! # Odd and even passes for centerfold printing.
! # First print guide-odd.ps, then find out which of the others to use.
! # guide-even1.ps is for printers with correct output stacking like
! # Apple LaserWriter II.
! # guide-even2.ps for printers with reverse output stacking, like old
! # Apple LaserWriters.
!
guide-odd.ps: refbase.ps parr
perl ./parr $(PAPER) \
-o 21,2,19,4,17,6,15,8,13,10 refbase.ps > guide-odd.ps
***************
*** 64,75 ****
if [ -f $(TEXTMP)dvi ]; then \
mv $(TEXTMP)dvi refbase.dvi; fi

! refbase-tex: refmaster.tex $(CH)
perl -n \
! -e 'if (/input (ch\d\d)/)' \
-e ' { open(CH,$$1.".tex"); print while <CH>; close (CH); }' \
-e ' else { print; }' \
! refmaster.tex > refbase.tex

shar: $(AUX) $(SRC) refbase.ps
rm -f perlref_shr.* perlref_ltx.*
--- 67,79 ----
if [ -f $(TEXTMP)dvi ]; then \
mv $(TEXTMP)dvi refbase.dvi; fi

! MASTER=ref
! refbase-tex: $(MASTER)master.tex $(CH)
perl -n \
! -e 'if (/^\\input (ch\d\d)/)' \
-e ' { open(CH,$$1.".tex"); print while <CH>; close (CH); }' \
-e ' else { print; }' \
! $(MASTER)master.tex > refbase.tex

shar: $(AUX) $(SRC) refbase.ps
rm -f perlref_shr.* perlref_ltx.*
diff -r -c ../../Postings/4.010.1/tmp/README ./README
*** ../../Postings/4.010.1/tmp/README Tue Jul 23 09:58:49 1991
--- ./README Fri Jul 26 09:42:49 1991
***************
*** 3,9 ****

The Perl 4.0 Reference Guide

! Revised: 91/07/20

The Perl Reference Guide is a typeset quick reference guide to
Larry Wall's Perl program.
--- 3,9 ----

The Perl 4.0 Reference Guide

! Revised: 91/07/26

The Perl Reference Guide is a typeset quick reference guide to
Larry Wall's Perl program.
***************
*** 85,90 ****
--- 85,98 ----
paper back in the tray, and print either "guide-even1.ps" or
"guide-even2.ps", depending on the way your printer arranges
the printed paper.
+ "guide-even1.ps" is for printers with correct output stacking like
+ Apple LaserWriter II.
+ "guide-even2.ps" is for printers with reverse output stacking,
+ like old Apple LaserWriters.
+ In other words, after printing "guide-odd.ps", if the
+ text of the cover page is on top -- use "guide-even1.ps".
+ But if you're looking at the text of pages 9/10 -- use
+ "guide-even2.ps".

"make" without arguments will default to refguide.ps .

***************
*** 141,147 ****
email: <j...@mh.nl>
----------------------------------------------------------------------

! I like to thank everyone who has helped me )and encouraged me) to get
the job done, and to get the results to you. Especially Tom
Christiansen and JGreely (for "parr") And Larry Wall, of course,
without whom I would have spent lots of time annoying myself.
--- 149,155 ----
email: <j...@mh.nl>
----------------------------------------------------------------------

! I like to thank everyone who has helped me (and encouraged me) to get
the job done, and to get the results to you. Especially Tom
Christiansen and JGreely (for "parr") And Larry Wall, of course,
without whom I would have spent lots of time annoying myself.
***************
*** 148,151 ****


-- PostScript is a trademark of Adobe, I assume.
! @(#)@ README 4.1.9
--- 156,159 ----


-- PostScript is a trademark of Adobe, I assume.
! @(#)@ README 4.2.1
diff -r -c ../../Postings/4.010.1/tmp/parr ./parr
*** ../../Postings/4.010.1/tmp/parr Tue Jul 23 09:58:53 1991
--- ./parr Fri Jul 26 09:42:48 1991
***************
*** 1,6 ****
#!/usr/bin/perl

! # @(#)@ parr 4.1.6

# rearrange conforming PS code to print the pages in an arbitrary
# order. The -o option takes a list of ranges, like this:
--- 1,6 ----
#!/usr/bin/perl

! # @(#)@ parr 4.2.1

# rearrange conforming PS code to print the pages in an arbitrary
# order. The -o option takes a list of ranges, like this:
***************
*** 34,41 ****
#
next if /^%%Pages:/;
if (/^%%Page:/) {
- close(FILE);
$sheet++;
$file = "$TMPDIR/p$$.$sheet";
push(@files,$file);
open(FILE,">$file") || die "$file: $!\n";
--- 34,42 ----
#
next if /^%%Pages:/;
if (/^%%Page:/) {
$sheet++;
+ $pagemap{$sheet} = $1 if /%%Page:\s+(\S+)\s+\S+/;
+ close(FILE);
$file = "$TMPDIR/p$$.$sheet";
push(@files,$file);
open(FILE,">$file") || die "$file: $!\n";
***************
*** 103,109 ****

foreach $page (@order) {
$count++;
! print "%%Page: ? $count\n%%OldPage: $page\n";
if ($page eq "B") {
print "showpage\n";
}else{
--- 104,115 ----

foreach $page (@order) {
$count++;
! $num = "?";
! $num = $pagemap{$page} if defined $pagemap{$page};
! $num .= "/" . $pagemap{$order[$count]}
! if defined $pagemap{$order[$count]};
! print "%%Page: $num ", ($count+1)/2, "\n" if $count & 1;
! print "%%OldPage: $page\n";
if ($page eq "B") {
print "showpage\n";
}else{
***************
*** 132,139 ****
$othermargin = 445; # do not change -- relative to $leftmargin
}
else {
! $topmargin = -57;
! $leftmargin = 60;
$othermargin = 445; # do not change -- relative to $leftmargin
}
$vsize = -1 - $factor;
--- 138,145 ----
$othermargin = 445; # do not change -- relative to $leftmargin
}
else {
! $topmargin = -30;
! $leftmargin = 0;
$othermargin = 445; # do not change -- relative to $leftmargin
}
$vsize = -1 - $factor;
diff -r -c ../../Postings/4.010.1/tmp/refbase.ps ./refbase.ps
*** ../../Postings/4.010.1/tmp/refbase.ps Tue Jul 23 09:59:00 1991
--- ./refbase.ps Fri Jul 26 09:38:00 1991
***************
*** 182,210 ****
%%Page: 0 1
bop eop
%%Page: 0 2
! bop 354 0 a Fk(Perl)20 b(Reference)i(Guide)p 354 21 1512 2
! v 354 121 a Fj(for)13 b(Perl)g(version)g(4.010)354 304 y Fi(Perl)f(program)f
! (deigned)g(and)h(created)g(by)354 361 y(Larry)g(W)l(all)g Fh(<)p
! Fi(lw...@netlabs.com)p Fh(>)354 543 y Fi(Reference)i(guide)d(designed)f(and)i
! (created)g(by)354 600 y(Johan)f(V)m(romans)g Fh(<)q Fi(j...@mh.nl)p
! Fh(>)354 844 y Fk(Contents)p 354 865 V 403 965 a Fi(1.)21 b(Command)11
! b(line)g(options)403 1022 y(2.)21 b(Literals)403 1078 y(3.)g(V)-5
! b(ariables)403 1135 y(4.)21 b(Statements)403 1191 y(5.)g(Flow)11
! b(control)403 1248 y(6.)21 b(Operators)403 1304 y(7.)g(File)12
! b(test)e(operators)403 1361 y(8.)21 b(Arithmetic)10 b(functions)403
! 1417 y(9.)21 b(Conversion)11 b(functions)380 1473 y(10.)21
! b(Structure)12 b(conversion)380 1530 y(11.)21 b(String)11 b(functions)380
! 1586 y(12.)21 b(Array)12 b(and)f(list)g(functions)380 1643
! y(13.)21 b(File)12 b(operations)380 1699 y(14.)21 b(Directory)12
! b(reading)f(routines)380 1756 y(15.)21 b(Input)11 b(/)g(Output)380
! 1812 y(16.)21 b(Search)13 b(and)e(replace)h(functions)380 1869
! y(17.)21 b(System)11 b(interaction)380 1925 y(18.)21 b(Networking)380
! 1982 y(19.)g(SystemV)11 b(IPC)380 2038 y(20.)21 b(Miscellaneous)380
! 2094 y(21.)g(Formats)380 2151 y(22.)g(Info)12 b(from)f(system)f(\256les)380
! 2207 y(23.)21 b(Regular)12 b(expressions)380 2264 y(24.)21
! b(Special)12 b(variables)380 2320 y(25.)21 b(Special)12 b(arrays)380
! 2377 y(26.)21 b(The)12 b(perl)f(debugger)354 2560 y Fg(Rev)n(.)e(4.010.1.8)p
! eop
%%Page: 1 3
bop 361 -101 a Ff(Perl)14 b(Reference)f(Guide)p 361 -89 1512
3 v 354 0 a Fk(Conventions)p 354 21 1512 2 v 354 121 a Fh(fixed)102
--- 182,210 ----
%%Page: 0 1
bop eop
%%Page: 0 2
! bop 591 341 a Fk(Perl)20 b(Reference)h(Guide)p 591 362 1264
! 2 v 591 462 a Fj(for)12 b(Perl)h(version)g(4.010)591 645 y
! Fi(Perl)f(program)f(designed)f(and)i(created)g(by)591 701 y(Larry)f(W)l(all)h
! Fh(<)p Fi(lw...@netlabs.com)p Fh(>)591 884 y Fi(Reference)h(guide)e(designed)
! g(and)g(created)h(by)591 941 y(Johan)e(V)m(romans)i Fh(<)p
! Fi(j...@mh.nl)p Fh(>)591 1185 y Fk(Contents)p 591 1206 V 639
! 1306 a Fi(1.)21 b(Command)11 b(line)g(options)639 1363 y(2.)21
! b(Literals)639 1419 y(3.)g(V)-5 b(ariables)639 1476 y(4.)21
! b(Statements)639 1532 y(5.)g(Flow)12 b(control)639 1589 y(6.)21
! b(Operators)639 1645 y(7.)g(File)12 b(test)f(operators)639
! 1701 y(8.)21 b(Arithmetic)11 b(functions)639 1758 y(9.)21 b(Conversion)11
! b(functions)616 1814 y(10.)21 b(Structure)12 b(conversion)616
! 1871 y(11.)21 b(String)11 b(functions)616 1927 y(12.)21 b(Array)12
! b(and)g(list)e(functions)616 1984 y(13.)21 b(File)12 b(operations)616
! 2040 y(14.)21 b(Directory)12 b(reading)f(routines)616 2097
! y(15.)21 b(Input)11 b(/)g(Output)616 2153 y(16.)21 b(Search)13
! b(and)e(replace)i(functions)616 2210 y(17.)21 b(System)11 b(interaction)616
! 2266 y(18.)21 b(Networking)616 2323 y(19.)g(SystemV)11 b(IPC)616
! 2379 y(20.)21 b(Miscellaneous)616 2435 y(21.)g(Formats)616
! 2492 y(22.)g(Info)12 b(from)f(system)f(\256les)616 2548 y(23.)21
! b(Regular)12 b(expressions)616 2605 y(24.)21 b(Special)12 b(variables)616
! 2661 y(25.)21 b(Special)12 b(arrays)616 2718 y(26.)21 b(The)12
! b(perl)f(debugger)591 2901 y Fg(Rev)n(.)d(4.010.2.1)p eop
%%Page: 1 3
bop 361 -101 a Ff(Perl)14 b(Reference)f(Guide)p 361 -89 1512
3 v 354 0 a Fk(Conventions)p 354 21 1512 2 v 354 121 a Fh(fixed)102
***************
*** 302,309 ****
354 2090 y Fh($)q(var[28])161 b Fi(29th)11 b(element)g(of)g(array)i
Fh(@var)g Fi(\(the)e Fh([])h Fi(are)g(part)g(of)f(it\))354
2155 y Fh($)q(var{)q('Feb'})79 b Fi(one)12 b(value)f(from)g(associative)g
! (array)h Fh(\045var)354 2220 y($)q(var)269 b Fi(last)11 b(index)g(of)g(array)
! i Fh(@var)354 2285 y(@var)270 b Fi(the)11 b(entire)h(array;)732
2349 y(in)f(scalar)h(context:)f(the)g(number)g(of)g(elements)g(in)g(the)g
(array)354 2414 y Fh(@var[3,4)q(,5])80 b Fi(a)12 b(slice)f(of)h(the)f(array)h
Fh(@var)354 2479 y(@var{)r('a','b'})25 b Fi(a)12 b(slice)f(of)h
--- 302,309 ----
354 2090 y Fh($)q(var[28])161 b Fi(29th)11 b(element)g(of)g(array)i
Fh(@var)g Fi(\(the)e Fh([])h Fi(are)g(part)g(of)f(it\))354
2155 y Fh($)q(var{)q('Feb'})79 b Fi(one)12 b(value)f(from)g(associative)g
! (array)h Fh(\045var)354 2220 y($)q(#var)242 b Fi(last)11 b(index)g(of)g
! (array)i Fh(@var)354 2285 y(@var)270 b Fi(the)11 b(entire)h(array;)732
2349 y(in)f(scalar)h(context:)f(the)g(number)g(of)g(elements)g(in)g(the)g
(array)354 2414 y Fh(@var[3,4)q(,5])80 b Fi(a)12 b(slice)f(of)h(the)f(array)h
Fh(@var)354 2479 y(@var{)r('a','b'})25 b Fi(a)12 b(slice)f(of)h
***************
*** 326,334 ****
Fc(if)p Fi(,)g Fc(unless)p Fi(,)i Fc(while)e Fi(or)g Fc(until)p
Fi(,)h(e.g.:)400 362 y Fe(EXPR1)f Fc(if)f Fe(EXPR2)h Fh(;)400
418 y Fe(EXPR1)g Fc(until)g Fe(EXPR2)f Fh(;)354 483 y Fi(Also,)h(by)g(using)g
! (one)g(of)h(the)f(logical)g(operators)g Fh(|)p Fi(,)h Fh(&&)g
! Fi(or)g Fh(?)28 b(:)p Fi(,)12 b(e.g.:)400 548 y Fe(EXPR1)f
! Fh(|)g Fe(EXPR2)g Fh(;)400 604 y Fe(EXPR1)g Fh(?)g Fe(EXPR2)g
Fh(:)h Fe(EXPR3)e Fh(;)354 669 y Fi(Statements)h(can)h(be)f(combined)g(to)g
(form)g(a)h Fe(BLOCK)f Fi(when)g(enclosed)g(in)g Fh({})p Fi(.)354
734 y(Compound)g(statements)f(may)h(be)g(used)h(to)f(control)f(\257ow:)400
--- 326,334 ----
Fc(if)p Fi(,)g Fc(unless)p Fi(,)i Fc(while)e Fi(or)g Fc(until)p
Fi(,)h(e.g.:)400 362 y Fe(EXPR1)f Fc(if)f Fe(EXPR2)h Fh(;)400
418 y Fe(EXPR1)g Fc(until)g Fe(EXPR2)f Fh(;)354 483 y Fi(Also,)h(by)g(using)g
! (one)g(of)h(the)f(logical)g(operators)g Fh(||)q Fi(,)h Fh(&&)g
! Fi(or)f Fh(?)28 b(:)p Fi(,)12 b(e.g.:)400 548 y Fe(EXPR1)f
! Fh(||)h Fe(EXPR2)e Fh(;)400 604 y Fe(EXPR1)h Fh(?)g Fe(EXPR2)g
Fh(:)h Fe(EXPR3)e Fh(;)354 669 y Fi(Statements)h(can)h(be)f(combined)g(to)g
(form)g(a)h Fe(BLOCK)f Fi(when)g(enclosed)g(in)g Fh({})p Fi(.)354
734 y(Compound)g(statements)f(may)h(be)g(used)h(to)f(control)f(\257ow:)400
***************
*** 388,394 ****
f(have)g(an)h(assignment)e(operator)n(,)i(e.g.)g(\252)p Fh(.=)p
Fi(\272.)354 644 y Fh(++)56 b(--)g Fi(Auto-increment)10 b(\(magical)h(on)g
(strings\),)g(auto-decrement.)354 701 y Fh(?)28 b(:)138 b Fi(Alternation)10
! b(\(if-then-else\))i(operator)m(.)354 757 y Fh(|)83 b(&)g Fi(Logical)10
b(or)n(,)i(logical)f(and.)354 813 y Fh(=)d(=)48 b(!=)56 b Fi(Numeric)11
b(equality)m(,)g(inequality)m(.)354 870 y Fc(eq)62 b(ne)g Fi(String)11
b(equality)m(,)g(inequality)m(.)354 926 y Fh(<)83 b(>)g Fi(Numeric)11
--- 388,394 ----
f(have)g(an)h(assignment)e(operator)n(,)i(e.g.)g(\252)p Fh(.=)p
Fi(\272.)354 644 y Fh(++)56 b(--)g Fi(Auto-increment)10 b(\(magical)h(on)g
(strings\),)g(auto-decrement.)354 701 y Fh(?)28 b(:)138 b Fi(Alternation)10
! b(\(if-then-else\))i(operator)m(.)354 757 y Fh(|)q(|)55 b(&&)h Fi(Logical)10
b(or)n(,)i(logical)f(and.)354 813 y Fh(=)d(=)48 b(!=)56 b Fi(Numeric)11
b(equality)m(,)g(inequality)m(.)354 870 y Fc(eq)62 b(ne)g Fi(String)11
b(equality)m(,)g(inequality)m(.)354 926 y Fh(<)83 b(>)g Fi(Numeric)11
***************
*** 1254,1260 ****
3018 1512 3 v 1818 3065 a Ff(18)p eop
%%Page: 19 21
bop 361 -101 a Ff(Perl)14 b(Reference)f(Guide)p 361 -89 1512
! 3 v 354 -12 a Fi(Perl)f(Reference)i(Guide)d(Revision)g(4.010.1.8)1242
-13 y(c)1230 -12 y Fd(\015)p Fi(1989,1990,1991)g(Johan)f(V)m(romans)p
361 3018 V 361 3065 a Ff(19)p eop
%%Trailer
--- 1254,1260 ----
3018 1512 3 v 1818 3065 a Ff(18)p eop
%%Page: 19 21
bop 361 -101 a Ff(Perl)14 b(Reference)f(Guide)p 361 -89 1512
! 3 v 354 -12 a Fi(Perl)f(Reference)i(Guide)d(Revision)g(4.010.2.1)1242
-13 y(c)1230 -12 y Fd(\015)p Fi(1989,1990,1991)g(Johan)f(V)m(romans)p
361 3018 V 361 3065 a Ff(19)p eop
%%Trailer
diff -r -c ../../Postings/4.010.1/tmp/refbase.sty ./refbase.sty
*** ../../Postings/4.010.1/tmp/refbase.sty Tue Jul 23 19:14:30 1991
--- ./refbase.sty Fri Jul 26 09:42:48 1991
***************
*** 1,6 ****
%% refbase.sty -- standard style for Perl Reference Guide
%%
! %% SCCS Status : @(#)@ refbase.sty 4.1.8
%% Author : Johan Vromans
%% Created On : Wed Jul 3 13:58:33 1991
%% Last Modified By: Johan Vromans
--- 1,6 ----
%% refbase.sty -- standard style for Perl Reference Guide
%%
! %% SCCS Status : @(#)@ refbase.sty 4.2.1
%% Author : Johan Vromans
%% Created On : Wed Jul 3 13:58:33 1991
%% Last Modified By: Johan Vromans
***************
*** 33,40 ****
%
% Allow % to be printed (for SCCS keywords)
\catcode`\%=11
! \typeout{Document Style 'perlref' Version 4.1.8}
! \def\perlrev{4.010.1.8}
\catcode`\%=14
%
%%%%%%%%%%%%%%%% Other Styles %%%%%%%%%%%%%%%%
--- 33,40 ----
%
% Allow % to be printed (for SCCS keywords)
\catcode`\%=11
! \typeout{Document Style 'perlref' Version 4.2.1}
! \def\perlrev{4.010.2.1}
\catcode`\%=14
%
%%%%%%%%%%%%%%%% Other Styles %%%%%%%%%%%%%%%%
diff -r -c ../../Postings/4.010.1/tmp/refbase.tex ./refbase.tex
*** ../../Postings/4.010.1/tmp/refbase.tex Tue Jul 23 19:14:28 1991
--- ./refbase.tex Fri Jul 26 09:36:21 1991
***************
*** 1,5 ****
% refmaster.tex -- Perl Reference Guide
! % SCCS Status : @(#)@ refmaster 4.1.8
% Author : Johan Vromans
% Created On : Wed Jul 10 18:26:19 1991
% Last Modified By: Johan Vromans
--- 1,5 ----
% refmaster.tex -- Perl Reference Guide
! % SCCS Status : @(#)@ refmaster 4.2.1
% Author : Johan Vromans
% Created On : Wed Jul 10 18:26:19 1991
% Last Modified By: Johan Vromans
***************
*** 35,43 ****
\end{titlepage}

\begin{titlepage}

- \vskip3cm
-
\vbox{{\xviipt\sl Perl Reference Guide}
{\rule[0.3cm]{\textwidth}{0.25pt}}}

--- 35,44 ----
\end{titlepage}

\begin{titlepage}
+ \addtolength{\evensidemargin}{2cm}
+ \addtolength{\textwidth}{-2.1cm}
+ \vspace*{2.5cm}

\vbox{{\xviipt\sl Perl Reference Guide}
{\rule[0.3cm]{\textwidth}{0.25pt}}}

***************
*** 44,50 ****
{\bf for Perl version 4.010}

\vskip1cm
! Perl program deigned and created by \\
Larry Wall \<lw...@netlabs.com\>

\vskip1cm
--- 45,51 ----
{\bf for Perl version 4.010}

\vskip1cm
! Perl program designed and created by \\
Larry Wall \<lw...@netlabs.com\>

\vskip1cm
***************
*** 239,245 ****

\Xi{|\$var\{'Feb'\}|} one value from associative array |%var|

! \Xi{|\$var|} last index of array |@var|

\Xi{|@var|} the entire array;

--- 240,246 ----

\Xi{|\$var\{'Feb'\}|} one value from associative array |%var|

! \Xi{|\$\#var|} last index of array |@var|

\Xi{|@var|} the entire array;

***************
*** 272,280 ****
\quad <expr1> \kwd{if} <expr2> |;| \\
\quad <expr1> \kwd{until} <expr2> |;|

! Also, by using one of the logical operators \|, |&&| or |? :|, e.g.:

! \quad <expr1> \| <expr2> |;| \\
\quad <expr1> |?| <expr2> |:| <expr3> |;|

Statements can be combined to form a <block> when enclosed in |{}|.
--- 273,281 ----
\quad <expr1> \kwd{if} <expr2> |;| \\
\quad <expr1> \kwd{until} <expr2> |;|

! Also, by using one of the logical operators \|\|, |&&| or |? :|, e.g.:

! \quad <expr1> \|\| <expr2> |;| \\
\quad <expr1> |?| <expr2> |:| <expr3> |;|

Statements can be combined to form a <block> when enclosed in |{}|.
***************
*** 364,370 ****
| |\=| |\= \kill
|++| \> |--| \> Auto-increment (magical on strings), auto-decrement. \\
|? :|\> \> Alternation (if-then-else) operator. \\
! \| \> \& \> Logical or, logical and. \\
|=|\,|=| \> |!=| \> Numeric equality, inequality. \\
\kwd{eq} \> \kwd{ne} \> String equality, inequality. \\
|<| \> |>| \> Numeric less than, greater than. \\
--- 365,371 ----
| |\=| |\= \kill
|++| \> |--| \> Auto-increment (magical on strings), auto-decrement. \\
|? :|\> \> Alternation (if-then-else) operator. \\
! \|\| \> \&\& \> Logical or, logical and. \\
|=|\,|=| \> |!=| \> Numeric equality, inequality. \\
\kwd{eq} \> \kwd{ne} \> String equality, inequality. \\
|<| \> |>| \> Numeric less than, greater than. \\
--
Johan Vromans j...@mh.nl via internet backbones
Multihouse Automatisering bv uucp: ..!{uunet,hp4nl}!mh.nl!jv
Doesburgweg 7, 2803 PL Gouda, The Netherlands phone/fax: +31 1820 62911/62500
------------------------ "Arms are made for hugging" -------------------------

0 new messages