scratchpad
Stoney2005
<code>s/(\b)([a-z])/$1\u$2/g; # Convert to title case</code>
<code>sub doLock {
use Fcntl ':flock'; # import LOCK_* constants
my($flag) = @_;
if($flag) {
if ((open(LOCK, ">> $0.pid") || open(LOCK, ">> $0.pid")) && !flock(LOCK, LOCK_EX|LOCK_NB)) {print "FAILED TO GET LOCK\nError: $!\nFile: $0.pid\n"; exit()}
return();
}
flock(LOCK, LOCK_UN); close(LOCK);
} # doLock(0) or doLock(1)</code>
<code>sub RandomAlpha {
my($digits)=@_;
my($alpha);
while($digits){
$alpha.=((A..Z)[int(rand()*26]));
$digits--
};
return($alpha)
} # RandomAlpha(5) returns 5 random alpha chars</code>
<code>sub RandomAlpha {
my($count,$digits)=@_;
my($counter,$alpha,@array);
while($count){
$counter=$digits;
while($counter){
$alpha.=(A..Z)[int(rand()*26)];
$counter--;
};
push(@array,$alpha);
$alpha="";
$count--;
};
return(@array);
}
# @array = RandomAlpha(5,12);
# foreach $value @array {print "$value\n"}
</code>
<code>use Mail::Sendmail;
%mail = ( To => 'email',
From => 'from',
Subjest => 'Testing',
Message => "Testing the Mail::Sendmail"
);
sendmail(%mail) or die $Mail::Sendmail::error;</code>