Logan & Amy’s Blog

Ok, I think I’ve nearly got the design complete for my personal site, Pacifickid.com. I hope to have the layout done this weekend and start slicing/dicin it up into CSS/html. I’ve also been working on my own site framework in Perl for this. Got some interesting classes for dbi handling, can’t wait to share.

Ciao

Interesting article. Sigh.. I wait patiently for Perl 6. In the end I predict it’ll be Python and Perl.

Perl has gained the reputation, rightfully, as a hacker’s language, which has both negative and positive connotations. The community of Perl programmers often pride themselves as artists in the many ways they represent the counter culture of software development. There appears to be a general ignorance of the powerful tools available with Perl, especially among new comers to the community. I hope in the weeks to come to unveil the power behind the Perl Debugger. Be prepared, it’s going to be an amazing journey.

I came across this article on Perl.com, probably one of the best articles to describe Big “O” Notation in very simpleton terms. Of course those astute in algorithmic design know this encompasses all areas of computer science, just a good refresher to optimize any program one has wrote in whatever language.

s;;5776?12321=10609$d=9409:12100$xx;;s;(d*);push @_,$1;eg;
map{print chr(sqrt($_))."n"} @_;

Guess what it prints:

L

o

g

a

n

Well... I'm proud of it.  PerlMonks have shortened it.



sildenafil citrateviagra cialis which is bettercialis side effectshow buy viagra onlinecialis price comparisoncialis dosage instructionsviagra dose instructionsviagra side effectscialis order onlineviagra order onlineorder tadalafil onlineorder sildenafil onlinecialis professionalviagra professionalpurchase cialis onlinepurchase viagra onlineviagra onlinecialis onlinepurchase viagrapaxilpropeciacialis super activelexaprocialis professionalcialisviagraviagra professionalviagra super activeviagra soft tabscialis soft tabsgeneric viagrageneric cialislevitrafamviraccutaneclomidxenicalpropeciazybanpaxileffexorlexaprogeneric cialiscialis reviewsorder viagra international shipsbuy viagra next day deliverybuy cheap sale viagrabuy generic viagrabuy viagra american expressbuy viagra money orderpurchase viagra onlineOrder Viagra Discount Pricebuy viagra cheap pricepurchase generic viagra onlineorder cialis securelybuy cialis no prescriptioncialis discount pricebuy cialis fedex shippingbuy nexium onlinebuy paxil onlineorder viagra onlineviagra informationlegal viagra salescompare viagra pricecialis soft onlineorder viagra free shippingexpress delivery viagraorder viagra discount priceorder viagra visaviagra discount priceorder viagra onlinepurchase viagra onlineviagra soft onlinecheap cialis substitutediscount price sale cialishow to buy cialisbuy cialis securelybuy cialis fast deliverybuy cialis legal salesbuy cialis official drugstorebuy generic cialis cheapmail buy cialis prescriptionpurchase generic cialisbuy cialis upsbuy cialis phonebuying cialisbuy cialis low pricediscount price sale viagraorder viagra cheap priceorder viagra upsmail order viagra prescriptionbuy viagra professionalbuy cialis professionalbuy generic cialisbuy cialis onlinebuy viagra super activebuy cialis softbuy levitra onlinebuy generic viagrapurchase cialis onlineorder lexapro onlinepurchase viagra onlinebuy viagra onlinebuy paxilbuy lexaproorder effexorbuy cialis visabuy cialis cheap priceorder cheap cialiscialis onlineorder cialispaxileffexorlexapropropeciaorder cialisbuy cialis online cheaporder cialis online no prescriptionorder viagraorder viagra online cheaporder viagra online no prescriptioncompare viagra pricescompare cialis pricesviagra soft tabscialis soft tabsviagra super activecialis professionalcialis super activeorder levitra onlinepurchase cialispurchase viagrabuy generic cialisbuy generic viagrabuy cialis onlinebuy viagra onlinebuy generic viagraorder viagra discountbuy viagra online ukbuy viagra lowest priceorder viagra discountorder viagra onlineorder cialis australiahow to order viagra onlineorder viagra fast deliveryorder viagra australia no prescriptionbuy viagra onlinebuy cialis no prescriptionis it illegal to order cialis onlinecialis buy online canadacialis super activeviagra super activecialis professional onlineviagra professionalcialis onlineorder viagra onlineviagra softgeneric cialisgeneric viagrabuy cialis onlinebuy generic viagracialis soft tabsorder cialis super activeorder cialis professionalbuy generic viagracompare cialis pricesbuy cialis super activecialis couponcialis informationcialis reviewsbuy cialis discount pricesbuy cialis softcialis price comparisonbuy cialis super activebuy cialis professionalbuy generic cialispurchase cialis onlineorder generic cialisviagra super active onlineorder viagra professionalorder cialis onlinegeneric viagraorder viagra professionalorder generic viagraviagra onlinebuy generic cialisbuy generic viagrabuy cialis onlinebuy cialis onlinebuy viagra professionalorder generic cialisbuy cialis onlinebuy viagra onlineorder generic viagrageneric cialiscialis super activeorder cialis soft tabsgeneric cialisorder viagra soft tabsviagra professionalbrand viagra
				

1. Submit workable Gen Pix to CPAN. (More info to come.)
2. Finalize my domain manager.
3. Walk or run a mile every single day until Jan 1st .
4. Take a picture everyday.

Seems easy enough. Lets see how self-disciplined I am.

Until I got bored and decided to write my own picture engine. Right now it just displays random images for the front page of my new picture gallery. With a little Ajax magic and CSS 2.0 fun we should have a kickin picture party.

Perl Oopssss

#! /usr/local/bin/perl -w
use strict;
my $picture = new Picture();
print $picture->randomPicture;

package Picture;

sub new {
my $class = shift;
my $self = {
dir => ‘./slovakia’,
reg_exp => ‘.*THUMB.JPG’,
site_domain => ‘http://www.loganandamy.com’,
site_dir => ‘/slovakia’,
@_
};
bless $self, $class;
}

sub giveMePicture{
my $self = shift;
return “siteDomain.$self->siteDir.”/”.$self->randomPicture.”\”>”;
}

sub randomPicture{
my $self = shift;
if (ref(@_)){
$self->{rand_pic} = shift;
}else{
$self->{rand_pic} = ${$self->openDir}[int(rand(scalar(@{$self->openDir})))];
}
return $self->{rand_pic};
}

sub openDir{
my $self = shift;
my $altdir = shift;
if (ref($altdir)){
$self->dirCriteria($altdir);
}
my $reg_exp = $self->fileCriteria;
my $dir = $self->dirCriteria;
opendir DIR, $dir || die “unable to open dir:$!”;
@{$self->{dir_files}} = grep {/$reg_exp/ && -f “$dir/$_” } readdir(DIR);
closedir DIR;
return $self->{dir_files};
}

sub siteDir{
my $self = shift;
shift @_ ? $self->{site_dir} = shift : $self->{site_dir};
}

sub siteDomain{
my $self = shift;
shift @_ ? $self->{site_domain} = shift : $self->{site_domain};
}

sub fileCriteria{
my $self = shift;
shift @_ ? $self->{reg_exp} = shift : $self->{reg_exp};

}

sub dirCriteria{
my $self = shift;
shift @_ ? $self->{dir} = shift : $self->{dir};
}

I’m currently slugging my way through “Mastering Algorithms with Perl”, which is an excellent read for any lover of Perl, and I stumbled across some interesting factos. Take the following example:

#—-Example Begin—#
#!/usr/bin/perl

$answer = 2.4/0.2;

print $answer,”\n”;
print int($answer);

#—-Example End—#

Executing the above script will print the following:

12
11

Line one is what we expected, because 2.4 divided by 0.2 is 12, and 12 is technically the integer of 12. But wait a minute, there’s something wrong with line 2. So what devil is going on here? News to me, but apparently, with floating points, and this is with most programming languages, the floating point has a binary representation. What is really happening is the binary representation is being divided, which when converted back is less than 12. The int function in perl always rounds towards 0, hence 11.

More information in regard to the confusing world of floating points and computers, click here.