find `perl -e 'print "@INC"'` -name '*.pm' -print

by-authors       Modules by author's registered CPAN name

by-category      Modules by subject matter (see below)

by-module        Modules by namespace (i.e., MIME)

               

02_Perl_Core_Modules

03_Development_Support

04_Operating_System_Interfaces

05_Networking_Devices_IPC

06_Data_Type_Utilities

07_Database_Interface

08_User_Interfaces

09_Language_Interfaces

10_File_Names_Systems_Locking

11_String_Lang_Text_Proc

12_Opt_Arg_Param_Proc

13_Internationalization_Locale

14_Security_and_Encryption

15_World_Wide_Web_HTML_HTTP_CGI

16_Server_and_Daemon_Utilities

17_Archiving_and_Compression

18_Images_Pixmaps_Bitmaps

19_Mail_and_Usenet_News

20_Control_Flow_Utilities

21_File_Handle_Input_Output

22_Microsoft_Windows_Modules

23_Miscellaneous_Modules

24_Commercial_Software_Interfaces

99_Not_In_Modulelist

99_Not_Yet_In_Modulelist

#!/usr/bin/perl -spi.bak

#!/usr/bin/perl -s -p -i.bak

% perl -MO=CC,-ohi.c hi.pl

hi.pl syntax OK

% perl cc_harness -O2 -ohi hi.c  

# You may have to provide the full path of where cc_harness lives

gcc -B/usr/ccs/bin/ -D_REENTRANT -DDEBUGGING -I/usr/local/include 

-I/usr/local/lib/perl5/sun4-solaris-thread/5.00466/CORE -O2 -ohi hi.c 

-L/usr/local/lib /usr/local/lib/perl5/sun4-solaris-thread/5.00466/CORE/libperl.a 

-lsocket -lnsl -lgdbm -ldl -lm -lposix4 -lpthread -lc -lcrypt

% hi

Hi there, world!

SOMELABEL: {

  ...statements...

  }

if (expression) {block} else {block}



unless (expression) {block} else {block}



if (expression1) {block}

elsif (expression2) {block}

  ...

elsif (lastexpression) {block}

else {block}

while (<INFILE>) {

    chomp;

    print OUTFILE, "$_\n";

}

$text =~ /sampo/;

sub name {block}

sub name (proto) {block}

$subref = sub {block};

                  name(args);        # & is optional with parentheses

name 

                  args;         # Parens optional if predeclared/imported

&name;             # Passes current @_ to subroutine

&$subref(args);    # & is not optional on indirect call

&$subref;          # Passes current @_ to subroutine

@returnlist = ref_conversion(\@temps1, \@temps2, \@temps3);

open (DATA, "numbers.txt");

open(OUT, ">outfile");

open(LOGFILE, ">>error_log");

open(LOGFILE, "/usr/httpd/error_log") 

        || warn "Could not open /usr/httpd/error_log.\n";

open(DATA, ">/tmp/data") || die "Could not create /tmp/data\n.";

$SIG{I_GOT_THIS_SIGNAL} = \&now_call_this_sub_to_handle_it;

sub now_call_this_sub_to_handle it {

    ...

}

#!/usr/local/bin/perl -w



use Config;



print "Perl knows about the following signals:\n";

print $Config{sig_name_init}, "\n";

$SIG{HUP} = \&hic_hup;

sub hic_hup {

	my $signal = shift;

	# Don't die for now.  Just warn us.

	warn "Somebody sent me a SIG${signal}\n";

}

sub kill_handler {

    local $SIG{KILL} = 'IGNORE'; # Inherited by all functions here

    i_will_settle_for_denial();

}



sub i_will_settle_for_denial {

	# KILL ignored for now.  Go in peace.

}

format name =

 ...template lines...

 ...argument line...

.

Hello, my name is @<<<<<<<<<< and I'm @<< years old.

$name, $age

perl -d myprogram

perl -d myprogram myinput

DB<8>

DB<<17>>

DB<1> sub foo { \

cont:   print "fooline\n"; \

cont: }

DB<2> foo

fooline

$DB::alias{'len'}  = 's/^len(.*)/p length($1)/';

$DB::alias{'stop'} = 's/^stop (at|in)/b/';

$DB::alias{'ps'}   = 's/^ps\b/p scalar /';

$DB::alias{'quit'} = 's/^quit\b.*/exit/';

&parse_options("NonStop=1 LineInfo=db.out");

sub afterinit { $trace = 1; }

perl -d:DProf testpgm

% dprofpp tmon.out

Total Elapsed Time =    0.15 Seconds

  User+System Time =     0.1 Seconds

Exclusive Times

%Time Seconds     # Calls sec/call Name

 30.0   0.030          1   0.0300 Text::Wrap::CODE(0x175f08)

 20.0   0.020          1   0.0200 main::CODE(0xc7880)

 20.0   0.020          1   0.0200 main::CODE(0xfe480)

 10.0   0.010          1   0.0100 Text::Wrap::CODE(0x17151c)

 10.0   0.010         10   0.0010 Text::Tabs::expand

 0.00   0.000          1   0.0000 lib::CODE(0xfe5b8)

 0.00   0.000          3   0.0000 Exporter::export

 0.00   0.000          1   0.0000 Config::FETCH

 0.00   0.000          1   0.0000 lib::import

 0.00   0.000          1   0.0000 Text::Wrap::CODE(0x171438)

 0.00   0.000          3   0.0000 vars::import

 0.00   0.000          3   0.0000 Exporter::import

 0.00   0.000          2   0.0000 strict::import

 0.00   0.000          1   0.0000 Text::Wrap::CODE(0x171684)

 0.00   0.000          1   0.0000 lib::CODE(0xfe4d4)

% perlbug -t

% ls -aF /usr/local/lib/perl

./               I18N/            bigfloat.pl      less.pm

../              IO/              bigint.pl        lib.pm

AnyDBM_File.pm   IPC/             bigrat.pl        locale.pm

AutoLoader.pm    Math/            blib.pm          look.pl

AutoSplit.pm     Net/             cacheout.pl      man/

Benchmark.pm     Pod/             chat2.pl         newgetopt.pl

Bundle/          Search/          complete.pl      open2.pl

CGI/             SelectSaver.pm   constant.pm      open3.pl

CGI.pm           SelfLoader.pm    ctime.pl         perl5db.pl

CPAN/            Shell.pm         diagnostics.pm   pod/

CPAN.pm          Symbol.pm        dotsh.pl         pwd.pl

Carp.pm          Sys/             dumpvar.pl       shellwords.pl

        ...

sub in_class {

   my $class = shift; # object reference

   my ($this, $that) = @_; # params

}

PackageName->constructor(args)->method_name(args);

$object = PackageName->constructor(args);

$object->method_name(args);

sub new {

   my $self = {};

   bless $self;

   return $self;

}

sub instance_method {

   my $self = shift;

   my($one, $two, $three) = @_;

   # do stuff

}

$tri = Triangle::Right->new(side1 => 3, side2 => 4);

$h = $tri->hypot;

print "The hypotenuse is: $h.\n";

$obj->method(args)

CLASS->method(args)

@AnyDBM_File::ISA = qw(DB_File GDBM_File NDBM_File);

package HandlerBing;

use Attribute::Handlers;

sub Nate1 :ATTR {

    my(@attrs) = @_; # We simply want to test by dumping the attributes

    print "attributes: \n", 

       join("\n", @attrs), "\n";

}

 # true.

1;

sub Nate2 :Nate1 {

    my (@stuff) = @_;

        print STDERR "in Nate2 ", join("\n", @stuff), "\n";

}

my $monica :Nate1;

my $phoebe :Nate1;

sub foo : method ;

    use attributes (  );    # Optional, to get subroutine declarations

    my @attrlist = attributes::get(\&foo);

sub test {

    use attrs qw(locked method);

    ...

}

@a = attrs::get(\test);

sub test : locked method { }

# From a program

use AutoSplit;

autosplit_modules(@ARGV)



# From the command line

perl -MAutoSplit -e 'autosplit(FILE, DIR, KEEP, CHECK, MODTIME)' ... 



# Another interface

perl -MAutoSplit -e 'autosplit_lib_modules(@ARGV)' ...

use autouse module => qw(sub1 [sub2 ...])

perl -MO=Bblock[,options] filename

            

perl -MO=Bytecode[,options] program

            

perl -MO=C[,options

               ] 

               program

            

perl -MO=C[,options

               ] 

               program

            

perl -MO=Concise[,options] program

            

perl -MO=Debug[,exec] filename

            

perl -MO=Deparse[,options] program

            

perl -MO=Lint[,options] program