Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse,-p almsdealer.pl >deparse.pl
    
  2. or download this
    use strict;
    use warnings;
    ...
        (@allTags = (@allTags, keys(%uniqueTags)));
    }
    print(("@allTags\n"));
    
  3. or download this
        my ($str) = @_;
    
  4. or download this
        my $str = shift;    # the string to be trimmed