Up to Home Programming

Site Map | Text version

Perl

• ActiveState has a free Win32 version of Perl.
• Perl Core Documentation, including PerlFunc
• Quickies:
  • my ($progname) = $0 =~ m{^(?:.*/)?(.*)$};
  • Base 64 decoder
      perl -MMIME::Decoder -e '(new MIME::Decoder "base64")->decode(\*STDIN, \*STDOUT)'
  • Print up to 10 entries from call stack
      print map {caller $_ && sprintf("    %s called from %s %s\n", (caller $_)[3,1,2])} 0..9;
  • Get modules from CPAN interactively with
      perl -MCPAN -e shell
    Note: If behind a firewall, then use:
      export FTP_PASSIVE=1 perl -MCPAN -e shell
  • Perl profiling with the DProf module:
      perl -d:DProf prog.pl
  dprofpp -u
    or combined:
      dprofpp -u -p prog.pl
  • Generate the cartesian product of a list of arrays:
      sub cartprod{my$a=shift;[map{my$y=$_;map{[$_,@$y]}@$a}@_?@{cartprod(@_)}:[]]}
  • Generate all permutations of a list:
      sub perm{@_?map{my$e=$_[$_];map[$e,@$_],perm(@_[0..$_-1,$_+1..$#_])}0..$#_:[]}
  • Generate a random permutation of a list:
      sub random_perm{my@r;push(@r,splice(@_,int(rand()*@_),1))while(@_);@r}
  • Generate all subsets of a list:
      sub subsets         {map{my$n=$_;[@_[grep{$n&1<<$_}0..$#_]]}(1..2**($#_+1));}
  sub nonempty_subsets{map{my$n=$_;[@_[grep{$n&1<<$_}0..$#_]]}(1..2**($#_+1)-1);}
  • Remove and return a random element from an array ref (undef if empty list):
      sub remove_random_elt{my$r=@_[0];@$r?splice(@$r,int(rand()*@$r),1):undef}
• mirror.aarnet.edu.au - an Australian CPAN site
• Ivan Kurmanov's advice on dealing with Unicode-processing issues in Perl
• Phil Hazel's PCRE library makes Perl regular expressions available to C/C++ programs
• Liraz Siri has a Perl Obfuscation Service that will obfuscate your precious scripts.
• Beginner's tutorials:
  • Picking Up Perl, Edition 0.12, A Freely Redistributable Perl Tutorial Book - can be downloaded as Postscript / PDF / TeX source / one huge HTML file
• The Perl Quiz of the Week provides thought-provoking perl problems for amateurs and experts.
• Perl humour: Perl module Lingua::Romana::Perligata -- write Perl code in Latin
• Malcolm Beattie's web page (http://users.ox.ac.uk/~mbeattie/) may be extinct, but his Perl Compiler (which may be several versions out of date) can still be downloaded. Download the Perl Compiler Kit from a UK FTP server.

This page last changed: 1 Aug 2009 [Validate HTML]

Donate free food & land

Google Google Books Websters Dict. Wiktionary Roget's Thes. Open Directory WikiPedia Google News FTP -- English FTP -- Russian Tucows FileDudes RPM Find Perl Modules Search4Science f2.org - This site for

Feedback by email or Web form