[uylug-programming] Problema con perl

[Eduardo Trápani]

Hola,

Tengo un módulo (Font::TTF::Silf[1]) que puede mostrarme la estructura
interna de un archivo.  El tema es que no sé cómo llamarlo.

Tiene un método read que empieza así:

sub read
{
    my ($self) = @_;
    my ($dat, $d);
    my ($fh) = $self->{' INFILE'};
    my ($moff) = $self->{' OFFSET'};
    my ($numsilf, @silfo);
...
        $fh->seek($moff + $silfo[$sili], 0);
...

Desde afuera hago un new, pero no importa qué le paso como parámetro al
read (archivo, iostring, stdin) siempre me dice que no puede hacer seek.

¿Cómo cargo ese $self->{' INFILE'};?

Me está enloqueciendo.  Aclaro que mi manejo de perl es ínfimo (supo ser
mínimo en una época ;)), sólo quiero poder ver esa estructura, que es
bastante compleja y ese módulo es lo único que hay ya hecho.  ¿Ideas?

Mi super código :) por ahora es:

use strict;
use Font::TTF::Font;
use Font::TTF::Silf;
use IO::String;

my $m;
my $o;

$m = Font::TTF::Silf->new();

open(ARCHIVO,$ARGV[0]);

$m->read(<ARCHIVO>);
print $ARGV[0];

Gracias, Eduardo.

[1] http://search.cpan.org/~mhosken/Font-TTF-1.02/lib/Font/TTF/Silf.pm#read