Каморка

CGI & mod_perl programmer

...

#!/usr/bin/perl -w

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@tucows.com';
}

char *text = {78,111,119,32,104,105,114,105,110,103};

alpax писал(а):В свое время у EA было объявление типа такого:

char *text = {78,111,119,32,104,105,114,105,110,103};

Gatchinskiy писал(а):.... висело долго на терминал авеню ....

Gatchinskiy писал(а):.... висело долго на терминал авеню ....

Аман Ванкуверский писал(а): ... я после того как запостил здесь перловскую объяву, вспомнил про эту рекламу и весь вечер ее искал, но так и не нашел