[uylug-programming] Problema con perl

[Haroldo Stenger]

jajja, andá a saber por qué sí anduvo acá, pero a mí me daba error en
el mismo módulo (Table) mientras no lograba abrir el archivo. Lo
cierto es que encontraste la punta de la madeja de la API con ese
método para abrir el archivo. No es "así nomás" que el módulo se queda
contento para abrir un archivo. Me alegro de haber contribuido a
descubrirlo, de paso aprendí un poco más :-)

abrazo
Haroldo

El día 9 de noviembre de 2012 10:28, Eduardo Trápani
<etrapani at unesco.org.uy> escribió:
>> 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.
>
> Lo puse *tal cual* y me dice (pasándole como parámetro un tipo de letra,
> claro ;):
>
> Can't locate object method "seek" via package "IO::Handle" at
> /home/edu/projektoj/graphite/Font-TTF/trunk/lib//Font/TTF/Table.pm line 107.
>
> Como seek() no está en IO::Handle (lo digo con esta frescura pero me
> llevó un buen rato descubrirlo ;)) entonces cambié la línea de apertura,
> en lugar de:
>
> open($ARCHIVO,$ARGV[0]);
>
> puse:
>
> $ARCHIVO = new IO::File($ARGV[0], "r");
>
> ¡Y ahora anda el read()!
>
> ¡¡¡MUCHAS GRACIAS Haroldo!!!
>
> Eduardo.
>
> PD: lo que no entendí es por qué si a vos te anduvo ...
> _______________________________________________
> Uylug-programming mailing list
> Uylug-programming at listas.uylug.org.uy
> http://listas.uylug.org.uy/listinfo.cgi/uylug-programming-uylug.org.uy