[perl] costum headers uitlezen

[BetuweKees]

hi,

ben voor het eerst sinds tijden weer eens bezig met een klein appje in perl, dat moet gaan samen werken met een client. voor identificatie van deze client zou ik graag een mac-address meesturen in de http header naar de server toen. dit is geen probleem natuurlijk.
waar ik echter mee zit is hoe ik in perl deze costum header weer kan uitlezen. heb eea geprobeerd met $ENV{}, maar dat wil niet echt, en met een webzoektocht kom ik steeds bij voorbeelden uit waar verteld wordt hoe headers verzonden kunnen worden (maar dat lukt dus al); over uitlezen ervan vind ik echter niets.
wie kan me hierbij helpen?

[chaotik]

Ik neem even aan dat je het over een CGI Perl script hebt.

Nou moet ik zeggen dat ik zelf ook al een tijdje niet meer met CGI Perl bezig ben geweest. Weet dus ook niet of het via CGI.pm mogelijk is om HTTP eaders uit te lezen. Waar het wel mee kan is mod_perl.

Mod_perl is een module voor Apache waarmee je een perl interpretor in een Apache server krijgt. Dit heeft als voordeel dat je binnen een Perl script bij wat meer informatie kan komen als onder CGI.

Dit zou een stukje code kunnen zijn wat je kan gebruiken om een header uit te lezen.

Perl:

my $r = shift; # eerste argument, die een mod_perl request handler meekrijgt,
               # is een Apache::Request object 
my $mac_addie = $r->header_in('MAC-addres'); #simpelweg uitlezen van de header

Nog ff een maar links:

http://perl.apache.org/
mod_perl 1.0 docs
mod_perl 2.0 docs

[BetuweKees]

helaas ondersteund mijn server geen mod_perl, maar naar nog langer zoeken kwam ik in cgi.pm de http() functie tegen, en is me gelukt daarmee de costum header uit te vragen..
(woei.. net php scriptje geschreven dat naar perl script connect om te testen.. )