B.pm: [PJA] EMPLOYMENT OPPORTUNITY: Perl/Web Developer (fwd)

Jim Meyer purp at selequa.com
Tue Aug 31 23:49:43 CDT 1999


Okay, I'm not scalping for, nor urging anyone to go to, this company.

I just had to share it because it's WAY too clever. =]

--j

---------- Forwarded message ----------
Date: Tue, 31 Aug 1999 17:51:02 -0400 (EDT)
From: hrdept at mail.tucows.com
To: perl-jobs-announce at happyfunball.pm.org
Subject: [PJA] EMPLOYMENT OPPORTUNITY: Perl/Web Developer

#!/usr/bin/perl

use Employee qw(:WebProgrammer);
use CGI;
use DBI;

$You = new Employee;
$in = new CGI;
$use_mod_perl = ((exists $ENV{'GATEWAY_INTERFACE'}
                  and $ENV{'GATEWAY_INTERFACE'} =~ /CGI-Perl/)
                  or exists $ENV{'MOD_PERL'} );
$os = $in->param('os') || 'Linux' || 'Solaris' || 'BSD';
$knowledge = "/usr/local/lib/required";
open(REQUIRED, "$knowledge");
while (<REQUIRED>) {
    next if (/Do not understand this message/);
    ($apache, $SQL, $HTML, $Javascript) = split;
}
close(REQUIRED)
$knowledge = "/usr/local/lib/helpful";
open(BENEFICIAL, "$knowledge");
$nice_to_have = <BENEFICIAL>;
$nice_to_have =~ m/(sendmail)(MySQL)(Oracle)(DNS\/BIND)(Java)/;
close(BENEFICIAL);

$dbh = DBI->connect('dbi:mysql:TUCOWS','you','hired') || die "can't
connect";
$query = "SELECT the_best FROM applicants WHERE experience like 'at least
1-2 year%';
$sth = $dbh->prepare("$query");
$sth->execute;
$sth->finish;
$dbh->disconnect;

if ($interested) {
    $email = 'hrdept at tucows.com';
    $fax = "416-239-8409";
    $phone !~ /good/;
}



[Perl Jobs Announce List]

----------------------------------------------------------------------------
>> To unsubscribe: send "unsubscribe burbank-pm-list" to majordomo at pm.org <<
>> To get a human's attention: send email to owner-burbank-pm-list at pm.org <<
>>          To become independently wealthy: buy low, sell high.          <<



More information about the Burbank-pm mailing list