[uylug-programming] Problema con perl

[Haroldo Stenger]

(seek es una función de la biblioteca estándar AFAICS)

El día 9 de noviembre de 2012 12:54, Haroldo Stenger
<haroldo.stenger at gmail.com> escribió:
> 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