From 197aec242db45fbf1d7853a1ae22a108cc09d23c Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 8 Jan 2003 20:48:19 +0000 Subject: PerlFAQ sync. p4raw-id: //depot/perl@18459 --- pod/perlfaq3.pod | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to 'pod/perlfaq3.pod') diff --git a/pod/perlfaq3.pod b/pod/perlfaq3.pod index 37be251412..7843dbff7d 100644 --- a/pod/perlfaq3.pod +++ b/pod/perlfaq3.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq3 - Programming Tools ($Revision: 1.29 $, $Date: 2002/11/13 06:23:50 $) +perlfaq3 - Programming Tools ($Revision: 1.31 $, $Date: 2003/01/03 20:10:11 $) =head1 DESCRIPTION @@ -68,7 +68,7 @@ shows up as "Perl" (although you can get those with Mod::CoreList). use ExtUtils::Installed; - + my $inst = ExtUtils::Installed->new(); my @modules = $inst->modules(); @@ -76,11 +76,11 @@ If you want a list of all of the Perl module filenames, you can use File::Find::Rule. use File::Find::Rule; - + my @files = File::Find::Rule->file()->name( '*.pm' )->in( @INC ); If you do not have that module, you can do the same thing -with File::Find which is part of the standard library. +with File::Find which is part of the standard library. use File::Find; my @files; @@ -89,10 +89,10 @@ with File::Find which is part of the standard library. @INC; print join "\n", @files; - + If you simply need to quickly check to see if a module is available, you can check for its documentation. If you can -read the documentation the module is most likely installed. +read the documentation the module is most likely installed. If you cannot read the documentation, the module might not have any (in rare cases). @@ -102,10 +102,10 @@ You can also try to include the module in a one-liner to see if perl finds it. perl -MModule::Name -e1 - + =head2 How do I debug my Perl programs? -Have you tried C or used C<-w>? They enable warnings +Have you tried C or used C<-w>? They enable warnings to detect dubious practices. Have you tried C? It prevents you from using symbolic @@ -131,9 +131,9 @@ why what it's doing isn't what it should be doing. =head2 How do I profile my Perl programs? You should get the Devel::DProf module from the standard distribution -(or separately on CPAN) and also use Benchmark.pm from the standard -distribution. The Benchmark module lets you time specific portions of -your code, while Devel::DProf gives detailed breakdowns of where your +(or separately on CPAN) and also use Benchmark.pm from the standard +distribution. The Benchmark module lets you time specific portions of +your code, while Devel::DProf gives detailed breakdowns of where your code spends its time. Here's a sample use of Benchmark: @@ -167,7 +167,7 @@ of contrasting algorithms. =head2 How do I cross-reference my Perl programs? -The B::Xref module can be used to generate cross-reference reports +The B::Xref module can be used to generate cross-reference reports for Perl programs. perl -MO=Xref[,OPTIONS] scriptname.plx @@ -566,7 +566,7 @@ instead of this: When the files you're processing are small, it doesn't much matter which way you do it, but it makes a huge difference when they start getting -larger. +larger. =item * Use map and grep selectively @@ -641,7 +641,7 @@ everything works out right. return \@a; } - for $i ( 1 .. 10 ) { + for ( 1 .. 10 ) { push @many, makeone(); } @@ -919,7 +919,7 @@ L, L, L, and L for reference. try http://www.perldoc.com/ , but consider upgrading your perl.) A good book on OO on Perl is the "Object-Oriented Perl" -by Damian Conway from Manning Publications, +by Damian Conway from Manning Publications, http://www.manning.com/Conway/index.html =head2 Where can I learn about linking C with Perl? [h2xs, xsubpp] -- cgit v1.2.1