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

Otávio Fernandes otaviof em gmail.com
Segunda Dezembro 4 07:47:01 PST 2006


Olá Nelson,

Preciso sim, até gostaria de usar o Inline, mas neste caso é
necessário ... consegui, com ajuda do pessoal da Perl Monks (louvados
sejam !) fazer uma versão bem funcinal, porem os últimos dois dígitos
que esta função retorna são diferentes do que o código perl retorna,
olha a minha versão:

------------------------------------------------------------------------------------------
#!/usr/bin/perl -w

use warnings;
use Fcntl qw(:seek);

my $key = "";
my $read = "";
my @list;

# getting value from /dev/mem
open(MEM, "< /dev/mem") or die "Error while opening /dev/mem";
seek(MEM, 0xFFFF2, SEEK_SET);
sysread(MEM, $read, 14);
close(MEM);

@list = split('', $read);
$key = join "", map { sprintf "%2.2x", ord } @list;

print $key, "\n";
------------------------------------------------------------------------------------------

alguma idéia ?

um abraço,

On 12/4/06, Nelson Ferraz <nferraz em gmail.com> wrote:
> Otávio Fernandes wrote:
> > Gostaria da ajuda de vcs para traduzir o código abaixo, escrito em
> > ANSI C, para Perl.
>
> Você *precisa* traduzir o código?
>
> Não pode usar o Inline::C ?
>
>     use Inline C;
>
>     greet('Ingy');
>     greet(42);
>
>     __END__
>     __C__
>
>     void greet(char* name) {
>       printf("Hello %s!\n", name);
>     }
>
> []s
>
> Nelson
>
> --
> Nelson Corrêa de Toledo Ferraz
>
> Segula Technologies (www.segula.fr)
> Free Software Foundation Associate Member #3203
> Sociedade Perl do Brasil (www.perl.org.br)
> Rede Livre de Compartilhamento de Cultura Digital
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

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


Mais detalhes sobre a lista de discussão Cascavel-pm