[oak perl] (fwd) How Perl Powers Christmas

[Belden Lyman]

David Alban wrote:
> At 2002/12/19/12:09 -0800 Belden Lyman <blyman at iii.com> wrote:
> 
>>Great article. Thanks for the link, David.
> 
> 
> :-)
> 
> Now to figure out how to write a perl program that will improve the
> economy and create lots of new tech jobs...
> 

David,

The program is simple. You just need to write the back-end modules.

Belden


#!/usr/bin/perl

use strict;
use warnings;
use Tech::Sector;
use Linus::Torvalds;
use Bill::Gates qw(unholy_trade_practices); # Bill::Gates not OO :(
use Bill::Joy;

my $java_peddler = Bill::Joy->new();
my $revolutionary = Linus::Torvalds->new();
my $market = new Tech::Sector; # singleton class, this sucks :(

do {    # gotta do it at least once
   $java_peddler->buzzwordiness()--;
   our $strategy = $revolutionary->new_idea();
   $market->consider( $strategy );
} until ( ! unholy_trade_practices() or $market->recovers() );

__END__

Can't locate Tech/Sector.pm in @INC (@INC contains: 
/usr/local/lib/perl5/5.8.0/alpha-dec_osf /usr/local/lib/perl5/5.8.0 
/usr/local/lib/perl5/site_perl/5.8.0/alpha-dec_osf 
/usr/local/lib/perl5/site_perl/5.8.0 /usr/local/lib/perl5/site_perl .) 
at dt line 5.
BEGIN failed--compilation aborted at dt line 5.

Grumble, hurry up with that new Tech::Sector.pm, David.