Index of /~vlado/srcperl/snip

 Name                    Last modified       Size  Description

 Parent Directory        07-Feb-2008 12:20      -  
 Readme.txt              23-Jun-2004 13:23     1k  
 appendfile              06-May-2003 15:00     1k  
 check_keys              20-Mar-2003 14:04     1k  
 decode_S                27-Jul-2005 16:53     1k  
 decode_w                27-Jul-2005 16:54     1k  
 encode_S                27-Jul-2005 16:53     5k  
 encode_w                27-Jul-2005 16:54     1k  
 encodex                 02-Dec-2002 13:59     1k  
 get_new_filename        03-Jul-2007 10:53     1k  
 getfile                 29-Nov-2002 08:43     1k  
 intersection            20-Mar-2003 15:48     1k  
 month_to_digits         02-Sep-2003 15:55     1k  
 options                 30-Dec-2002 12:17     2k  
 putfile                 05-Dec-2002 10:23     1k  
 quoted-printable        12-Mar-2004 08:12     1k  
 random_choose           30-Oct-2008 07:19     1k  
 random_sequence         25-Jan-2007 13:58     1k  
 randomize-array         20-Jan-2006 07:19     1k  
 read_db                 19-Feb-2006 12:15     1k  
 regex-uri               08-Jul-2004 15:03     1k  
 rm_recursively.pl       07-Jan-2003 13:56     1k  
 toString                09-May-2003 12:54     1k  
 union                   20-Mar-2003 15:48     1k  
 weekday_to_digits       03-Sep-2003 16:48     1k  

This directory contains some useful Perl functions and code snippets.

Designed for the cut-and-paste software reuse. :-)

read_db - read a database from a string or file ("file=filename") into
          an array of records.  DB format:
              id:1
              name: J. Public
              phone: 000-111
             
              id:2
              etc.
          line can be continued with \ at the end or by starting the
          next line with space or tab.