diff options
| -rw-r--r-- | README.aix | 2 | ||||
| -rw-r--r-- | README.cygwin | 2 | ||||
| -rw-r--r-- | README.jp | 4 | ||||
| -rw-r--r-- | README.ko | 4 | ||||
| -rw-r--r-- | README.macos | 1 | ||||
| -rw-r--r-- | README.tw | 4 | ||||
| -rw-r--r-- | pod/perl561delta.pod | 8 | ||||
| -rw-r--r-- | pod/perldelta.pod | 2 | ||||
| -rw-r--r-- | pod/perlfaq4.pod | 19 | ||||
| -rw-r--r-- | pod/perlfaq5.pod | 10 | ||||
| -rw-r--r-- | pod/perlfunc.pod | 2 | ||||
| -rw-r--r-- | pod/perlhack.pod | 4 | ||||
| -rw-r--r-- | pod/perlipc.pod | 2 | ||||
| -rw-r--r-- | pod/perlsub.pod | 2 | ||||
| -rw-r--r-- | pod/perlthrtut.pod | 6 | ||||
| -rw-r--r-- | pod/perlunicode.pod | 2 | ||||
| -rw-r--r-- | pod/perluniintro.pod | 14 |
17 files changed, 45 insertions, 43 deletions
diff --git a/README.aix b/README.aix index c8cdadbc89..6da0cb2c50 100644 --- a/README.aix +++ b/README.aix @@ -175,7 +175,7 @@ Follow the messages ... and you're done. Using gcc-3.0 (tested with 3.0.4) now works out of the box, as do recent gcc-2.9 builds available directly from IBM as part of their Linux compatibility packages, available here: - + http://www.ibm.com/servers/aix/products/aixos/linux/ =head2 Using Large Files with Perl diff --git a/README.cygwin b/README.cygwin index baa4fe157a..c09eeaba6a 100644 --- a/README.cygwin +++ b/README.cygwin @@ -403,7 +403,7 @@ access by native Win32 programs). Inplace editing ( perl -i ) of files doesn't work without doing a backup of the file being edited ( perl -i.bak ). - + =back =head1 INSTALL PERL ON CYGWIN @@ -103,11 +103,11 @@ Perl5.8¤Ç¤Ï¡¢¤³¤ì¤é¤Îµ¡Ç½¤¬¤¹¤Ù¤ÆPerlËÜÂΤÀ¤±¤Ç¼Â¸½¤Ç¤¤ë¾å¤Ë¡¢ÆüËܸì¤Î¤ß¤Ê¤é¤º¾ Jperl ¸ß´¹¥¹¥¯¥ê¥×¥È ¤¤¤ï¤æ¤ë"shebang"¤òÊѹ¹¤¹¤ë¤À¤±¤Ç¡¢JperlÍѤÎscript¤Î¤Û¤È¤ó¤É¤ÏÊѹ¹¤Ê¤·¤ËÍøÍѲÄǽ¤À¤È»×¤ï¤ì¤Þ¤¹¡£ - + #!/path/to/jperl ¢ #!/path/to/perl -Mencoding=euc-jp - + ¾Ü¤·¤¯¤Ï perldoc encoding ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ =back @@ -165,7 +165,7 @@ Perl Àü¹Ý »Ó ¾Æ´Ï¶ó À¯´ÏÄÚµå Áö¿ø, EncodeÀÇ »ç¿ë¹ý µî¿¡ ¸¹Àº °ÍÀ» Home for Korean Perlmanias =item L<http://www.oreilly.co.kr/perl/> - + O'Reilly¿¡¼ ³ª¿Â Çѱ¹¾î Perl ¼Àû ¸ñ·Ï =item L<http://www.perlschool.net/> @@ -195,7 +195,7 @@ Character Set)À» ¸¸µå´Â ISO/IEC JTC1/SC2/WG2ÀÇ À¥ ÆäÀÌÁö. Çѱ¹¾î ¹®ÀÚ ÁýÇÕ ¹× ÀÎÄÚµù¿¡ ´ëÇÑ ¾È³». -=item L<htp://www.cl.cam.ac.uk/~mgk25/unicode.html> +=item L<http://www.cl.cam.ac.uk/~mgk25/unicode.html> À¯´Ð½º/¸®´ª½º¿¡¼ À¯´ÏÄÚµå¿Í UTF-8 »ç¿ë¿¡ ´ëÇÑ ¹®´äÁý(FAQ) diff --git a/README.macos b/README.macos index 5df494c710..d0ac88e4ea 100644 --- a/README.macos +++ b/README.macos @@ -6,7 +6,6 @@ designed to be readable as is. README.macos - Perl under Mac OS (Classic) - =head1 SYNOPSIS This document briefly describes perl under Mac OS (Classic). @@ -141,8 +141,12 @@ Unicode ¾Ç³N¾Ç·| (Unicode ¼Ð·Çªº¨î©wªÌ) Unix/Linux ¤Wªº UTF-8 ¤Î Unicode µª«È°Ý +=back + =head2 ¤¤¤å¤Æ¸ê°T +=over 4 + =item ¬°¤°»ò¥s "¥¿Å餤¤å" ¤£¥s "ÁcÅ餤¤å"? L<http://www.csie.ntu.edu.tw/~b7506051/mozilla/faq.html#faqglossary> diff --git a/pod/perl561delta.pod b/pod/perl561delta.pod index cc411dcf8c..ddc250982b 100644 --- a/pod/perl561delta.pod +++ b/pod/perl561delta.pod @@ -3444,7 +3444,7 @@ is executed: =over -=item +=item * 64-bit builds @@ -3459,7 +3459,7 @@ in 64-bit HP-UX. The test attempts to create and connect to Note that 64-bit support is still experimental. -=item +=item * Failure of Thread tests @@ -3468,7 +3468,7 @@ fundamental problems in the 5.005 threading implementation. These are not new failures--Perl 5.005_0x has the same bugs, but didn't have these tests. (Note that support for 5.005-style threading remains experimental.) -=item +=item * NEXTSTEP 3.3 POSIX test failure @@ -3477,7 +3477,7 @@ operating system libraries is buggy: the %j format numbers the days of a month starting from zero, which, while being logical to programmers, will cause the subtests 19 to 27 of the lib/posix test may fail. -=item +=item * Tru64 (aka Digital UNIX, aka DEC OSF/1) lib/sdbm test failure with gcc diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 7df5050c4b..251ec2016e 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -2010,7 +2010,7 @@ exist, if that's what they were. # Nothing has set the FOO element so far { local $tied_hash{FOO} = 'Bar' } - + # This used to print, but not now. print "exists!\n" if exists $tied_hash{FOO}; diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod index ab71cb19e0..365bdbd4f9 100644 --- a/pod/perlfaq4.pod +++ b/pod/perlfaq4.pod @@ -135,7 +135,9 @@ functions is that it works with numbers of ANY size, that it is optimized for speed on some operations, and for at least some programmers the notation might be familiar. -=item B<How do I convert hexadecimal into decimal:> +=over 4 + +=item How do I convert hexadecimal into decimal Using perl's built in conversion of 0x notation: @@ -158,7 +160,7 @@ Using the CPAN module Bit::Vector: $vec = Bit::Vector->new_Hex(32, "DEADBEEF"); $dec = $vec->to_Dec(); -=item B<How do I convert from decimal to hexadecimal:> +=item How do I convert from decimal to hexadecimal Using sprint: @@ -181,7 +183,7 @@ And Bit::Vector supports odd bit counts: $vec->Resize(32); # suppress leading 0 if unwanted $hex = $vec->to_Hex(); -=item B<How do I convert from octal to decimal:> +=item How do I convert from octal to decimal Using Perl's built in conversion of numbers with leading zeros: @@ -200,7 +202,7 @@ Using Bit::Vector: $vec->Chunk_List_Store(3, split(//, reverse "33653337357")); $dec = $vec->to_Dec(); -=item B<How do I convert from decimal to octal:> +=item How do I convert from decimal to octal Using sprintf: @@ -212,7 +214,7 @@ Using Bit::Vector $vec = Bit::Vector->new_Dec(32, -559038737); $oct = reverse join('', $vec->Chunk_List_Read(3)); -=item B<How do I convert from binary to decimal:> +=item How do I convert from binary to decimal Perl 5.6 lets you write binary numbers directly with the 0b notation: @@ -236,7 +238,7 @@ Using Bit::Vector: $vec = Bit::Vector->new_Bin(32, "11011110101011011011111011101111"); $dec = $vec->to_Dec(); -=item B<How do I convert from decimal to binary:> +=item How do I convert from decimal to binary Using unpack; @@ -251,6 +253,7 @@ Using Bit::Vector: The remaining transformations (e.g. hex -> oct, bin -> hex, etc.) are left as an exercise to the inclined reader. +=back =head2 Why doesn't & work the way I want it to? @@ -1404,12 +1407,12 @@ case), you modify the value. for $orbit ( values %orbits ) { ($orbit **= 3) *= (4/3) * 3.14159; } - + Prior to perl 5.6 C<values> returned copies of the values, so older perl code often contains constructions such as C<@orbits{keys %orbits}> instead of C<values %orbits> where the hash is to be modified. - + =head2 How do I select a random element from an array? Use the rand() function (see L<perlfunc/rand>): diff --git a/pod/perlfaq5.pod b/pod/perlfaq5.pod index d3c8c96486..777350867d 100644 --- a/pod/perlfaq5.pod +++ b/pod/perlfaq5.pod @@ -42,7 +42,7 @@ per-filehandle variables. Some idioms can handle this in a single statement: select((select(OUTPUT_HANDLE), $| = 1)[0]); - + $| = 1, select $_ for select OUTPUT_HANDLE; Some modules offer object-oriented access to handles and their @@ -162,11 +162,11 @@ You can then pass these references just like any other scalar, and use them in the place of named handles. open my $fh, $file_name; - + open local $fh, $file_name; - + print $fh "Hello World!\n"; - + process_file( $fh ); Before perl5.6, you had to deal with various typeglob idioms @@ -175,7 +175,7 @@ which you may see in older code. open FILE, "> $filename"; process_typeglob( *FILE ); process_reference( \*FILE ); - + sub process_typeglob { local *FH = shift; print FH "Typeglob!" } sub process_reference { local $fh = shift; print $fh "Reference!" } diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index 0b40eb78fc..7982c0b6d2 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -2889,7 +2889,7 @@ C<STDERR> using various methods: #!/usr/bin/perl open my $oldout, ">&STDOUT" or die "Can't dup STDOUT: $!"; open OLDERR, ">&", \*STDERR or die "Can't dup STDERR: $!"; - + open STDOUT, '>', "foo.out" or die "Can't redirect STDOUT: $!"; open STDERR, ">&STDOUT" or die "Can't dup STDOUT: $!"; diff --git a/pod/perlhack.pod b/pod/perlhack.pod index 66023bdfdf..8837328423 100644 --- a/pod/perlhack.pod +++ b/pod/perlhack.pod @@ -495,10 +495,6 @@ For more info on the web see http://bugs.perl.org/perlbug.cgi?req=spec - -B<The interfaces:> - - =item 1 http://bugs.perl.org Login via the web, (remove B<admin/> if only browsing), where interested Cc's, tests, patches and change-ids, etc. may be assigned. diff --git a/pod/perlipc.pod b/pod/perlipc.pod index 58e063f4d0..3b997ac444 100644 --- a/pod/perlipc.pod +++ b/pod/perlipc.pod @@ -304,7 +304,7 @@ those signals (it does not do the C<wait>). Again the failure will look like a loop as the operating system will re-issue the signal as there are un-waited-for completed child processes. -=back 4 +=back =head1 Using open() for IPC diff --git a/pod/perlsub.pod b/pod/perlsub.pod index 2b33bd89eb..b92c63a6f4 100644 --- a/pod/perlsub.pod +++ b/pod/perlsub.pod @@ -686,7 +686,7 @@ subroutine never gets that chance. Consider; # set_arr_lv cannot stop this ! set_arr_lv() = { a => 1 }; - + =back =head2 Passing Symbol Table Entries (typeglobs) diff --git a/pod/perlthrtut.pod b/pod/perlthrtut.pod index b1f29c8d2f..6fda10f1f8 100644 --- a/pod/perlthrtut.pod +++ b/pod/perlthrtut.pod @@ -331,7 +331,7 @@ Perl's threading package provides the yield() function that does this. yield() is pretty straightforward, and works like this: use threads; - + sub loop { my $thread = shift; my $foo = 50; @@ -344,7 +344,7 @@ this. yield() is pretty straightforward, and works like this: my $thread1 = threads->new(\&loop, 'first'); my $thread2 = threads->new(\&loop, 'second'); my $thread3 = threads->new(\&loop, 'third'); - + It is important to remember that yield() is only a hint to give up the CPU, it depends on your hardware, OS and threading libraries what actually happens. Therefore it is important to note that one should not build the scheduling of @@ -433,7 +433,7 @@ L<threads::shared> module and the C< : shared> attribute: my $foo : shared = 1; my $bar = 1; threads->new(sub { $foo++; $bar++ })->join; - + print "$foo\n"; #prints 2 since $foo is shared print "$bar\n"; #prints 1 since $bar is not shared diff --git a/pod/perlunicode.pod b/pod/perlunicode.pod index 260dc0f911..25d512e70e 100644 --- a/pod/perlunicode.pod +++ b/pod/perlunicode.pod @@ -765,7 +765,7 @@ But in this particular example, you probably really want which will match assigned characters known to be part of the Greek script. -[b] See L</User-defined Character Properties>. +[b] See L</"User-Defined Character Properties">. =item * diff --git a/pod/perluniintro.pod b/pod/perluniintro.pod index 0d840d11d8..8222e70a93 100644 --- a/pod/perluniintro.pod +++ b/pod/perluniintro.pod @@ -588,7 +588,7 @@ than ASCII 0 to 9 (and ASCII a to f for hexadecimal). =over 4 -=item +=item * Will My Old Scripts Break? @@ -600,7 +600,7 @@ produced a character modulo 255. C<chr(300)>, for example, was equal to C<chr(45)> or "-" (in ASCII), now it is LATIN CAPITAL LETTER I WITH BREVE. -=item +=item * How Do I Make My Scripts Work With Unicode? @@ -608,7 +608,7 @@ Very little work should be needed since nothing changes until you generate Unicode data. The most important thing is getting input as Unicode; for that, see the earlier I/O discussion. -=item +=item * How Do I Know Whether My String Is In Unicode? @@ -655,7 +655,7 @@ defined function C<length()>: print length($unicode), "\n"; # will also print 2 # (the 0xC4 0x80 of the UTF-8) -=item +=item * How Do I Detect Data That's Not Valid In a Particular Encoding? @@ -679,7 +679,7 @@ warning is produced. The "U0" means "expect strictly UTF-8 encoded Unicode". Without that the C<unpack("U*", ...)> would accept also data like C<chr(0xFF>), similarly to the C<pack> as we saw earlier. -=item +=item * How Do I Convert Binary Data Into a Particular Encoding, Or Vice Versa? @@ -734,14 +734,14 @@ B<Any random collection of bytes isn't well-formed UTF-8>. You can use C<unpack("C*", $string)> for the former, and you can create well-formed Unicode data by C<pack("U*", 0xff, ...)>. -=item +=item * How Do I Display Unicode? How Do I Input Unicode? See http://www.alanwood.net/unicode/ and http://www.cl.cam.ac.uk/~mgk25/unicode.html -=item +=item * How Does Unicode Work With Traditional Locales? |