Perl Snippets

 Name                    Last modified      Size  Description
 Parent Directory                             -   
 Readme.txt              23-Jun-2004 13:23  475   
 appendfile              06-May-2003 15:00  191   Open file, append text, close file
 check_keys              20-Mar-2003 14:04  440   
 decode_S                27-Jul-2005 16:53  793   
 decode_w                27-Jul-2005 16:54  206   
 encode_S                27-Jul-2005 16:53  5.3K  
 encode_w                27-Jul-2005 16:54  435   
 encodex                 02-Dec-2002 13:59  203   A way of making non-printable chars printable
 get_new_filename        03-Jul-2007 10:53  1.1K  Finds a new file name using suggested name or prefix
 getfile                 29-Nov-2002 08:43  181   Get file contents into a variable
 htmlquote               23-Dec-2012 10:39  264   Quotes HTML metacharacters
 intersection            20-Mar-2003 15:48  401   
 locking_files           10-Feb-2013 08:24  2.2K  
 month_to_digits         02-Sep-2003 15:55  628   
 options                 30-Dec-2002 12:17  1.5K  Example of options analysis
 putfile                 05-Dec-2002 10:23  185   Rewrite a file with new text
 quoted-printable        12-Mar-2004 08:12  179   
 random_choose           30-Oct-2008 07:19  718   Randomly chooses n elements without repetition and returns them
 random_sequence         25-Jan-2007 13:58  337   
 randomize-array         20-Jan-2006 07:19  119   
 read_db                 19-Feb-2006 12:15  936   
 regex-uri               08-Jul-2004 15:03  1.2K  
 rm_recursively.pl       07-Jan-2003 13:56  1.0K  Recursive remove of files
 tmp1                    23-Dec-2012 10:44  689   
 toString                09-May-2003 12:54  1.3K  
 union                   20-Mar-2003 15:48  347   
 update_db               18-Aug-2010 11:37  2.0K  
 weekday_to_digits       03-Sep-2003 16:48  446