Not the fastest code, but is easy to read.
# grepasskey
# This function greps for a certain string in just the key. All
# elements with matching keys are returned.
sub grepasskey {
my($base) = shift(@_);
my(%ret);
my(%array) = @_;
my(@array) = sort(keys(%array));
my($path) = "/home/jstorms/public_html/images/";
my(@files) = get_jpg_from_dir($path);
sub get_jpg_from_dir {
my($path) = $_[0];
opendir(DIR,"$path");
my($filename,@jpeg);
$filename = readdir(DIR);
while($filename ne "") {
if( substr($filen
# to, from, subject, body, [mailhost]
sub mailit {
my(%mail) = @_;
if($mail{'to'} eq "") { return(0); }
# Set default mail host
if($mail{'host'} eq "") {$mail{'host'} = "yourmail.yourdomain.com";}
my($date) = getdate();
my(%sys) = getplatform();
You can use PERL to build an interface to a database,
You can use PERL to write your HTML pages on the fly,
shopping carts
counters
dropin ad banners
---
[EMAIL PROTECTED] (Galactic Hero)
Diplomacy: The art of saying good doggie
while searching for a big rock.
> -Original Message-
> Fro
Is it possible to have an array of associative arrays?
---
[EMAIL PROTECTED] (Galactic Hero)
Diplomacy: The art of saying good doggie
while searching for a big rock.