[uylug-programming] Problema con perl

[Haroldo Stenger]

Bueno te paso esto que al menos me llegó a leer el archivo que le pasé
(sin conocer para nada del tema fonts), pero tratando de ordenar el
pasaje de parámetros a los módulos:

#!/usr/bin/perl

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

my $m;
my $o;

my $ARCHIVO;
open($ARCHIVO,$ARGV[0]);

$m = Font::TTF::Silf->new();
$m->{' INFILE'} = $ARCHIVO;
$m->read();
print $ARGV[0];

Suerte y contame.

Haroldo

El día 8 de noviembre de 2012 17:55, Eduardo Trápani
<etrapani at unesco.org.uy> escribió:
> 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
> _______________________________________________
> Uylug-programming mailing list
> Uylug-programming at listas.uylug.org.uy
> http://listas.uylug.org.uy/listinfo.cgi/uylug-programming-uylug.org.uy