Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Seeking a job.

by hagus (Monk)
on May 21, 2002 at 23:09 UTC ( #168310=poem: print w/ replies, xml ) Need Help??

package Retrenchment; use LWP::Simple; my @buzzwords = qw(java oo sdlc); my $mobile = new MobilePhone; while (not $employed) { sleep(86400/2); $self->unshaven(1); $self->{esteem}--; for (1..12) { my @options = getprint 'http://www.jobsearch.com.au'; foreach $option (@options) { foreach $buzzword (@buzzwords) { if (not grep /$buzzword/ $option) { # detailed parse of the job offer. $potentialOption = new DetailedExamination($option); next if not $potentialOption->cbd_area; next if not $potentialOption->reasonable_pay; next if not $potentialOption->perl_skills; # we may be on to something # PhoneCall is a special IO::Pipe; $phonecall = new PhoneCall($mobile, $potentialOption->number); $recruiter = $phonecall->endpoint; if ($recruiter->bullshitFactor > 50) { $phonecall->terminate; $self->{esteem}--; next; } else { $recruiter->apply($self); $self->{esteem}++; next; } } } } # accepts an IO::Pipe; my $call = $mobile->accept; my $endpoint = $call->endpoint; if ($endpoint->type eq 'recruiter') { # tentative $self->{esteem}++; my $recruiter = $endpoint; if ($recruiter->joboffer) { print "Search for work finally over."; exit(0); } else { # rejection. $self->{esteem}--; print $call "!@#$%\n"; $call->terminate; } } else { # probably commiserating with someone. # not defined in this package. handle_phone_call($endpoint); } } # Penfolds implements the Vino interface. my $sanity = new Penfolds({type=>'merlot'}); $self->drink($sanity); # no-op - immediately decremented at start of loop anyway. $self->{esteem}++; }
--
Ash OS durbatulk, ash OS gimbatul,
Ash OS thrakatulk, agh burzum-ishi krimpatul!
Uzg-Microsoft-ishi amal fauthut burguuli.

Comment on Seeking a job.
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://168310]
Approved by VSarkiss
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (8)
As of 2014-12-27 00:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (176 votes), past polls