[Cascavel-pm] Tradução de ANSI C para Perl

[Otávio Fernandes]

Senhores,

Gostaria da ajuda de vcs para traduzir o código abaixo, escrito em
ANSI C, para Perl. A minha maior dificuldade é a parte do "seek", fiz
vários testes aqui, mas o resultado não foi satisfatório, segue o
código:

char *getDevMemSTR (void) {

    FILE            *arqh;
    unsigned char    lido[32];
    char            *chave;
    int              n = 0;

    chave = (char *) malloc(20 * sizeof(char));
    arqh = fopen("/dev/mem","r");
    fseek(arqh,0xFFFF2,SEEK_SET);
    fgets(lido,14,arqh);

    for (n = 0; n < 14; n++) {
        sprintf(chave, "%s%2.2x", chave, lido[n]);
    }

    return chave;

}

agradeço antecipadamente,

um abraço,

-- 
 | --
 | Otávio Fernandes <otaviof at gmail dot com>
 | Ubuntu 6.10 -- GNU/Linux User: 283.396
 | http://otaviof.googlepages.com
 | --