Foro - Perl en Español

josago escribiste:He hecho lo que decías y siempre me devuelve el número 2, independientemente de la longitud de la cadena de texto.

Eso es muy raro... he leído la documentación y he visto las fuentes:

Código: Seleccionar todo

sub width {
    my ($self,@text) = @_;
    my $aref = SDL::TTFSizeText($$self{-font},join(" ",@text));
    $$aref[0];
}

y el resultado debería ser el esperado: el ancho de lo que ocupa el texto. En la documentación pone que el comportamiento puede ser errático si se pasa NULL como texto. Haz una prueba con "Hola".

josago escribiste:Por cierto, no entiendo la diferencia entre $ancho y @{$ancho}.

La función debería devolverte un escalar, el ancho del texto, pero en realidad te está devolviendo un puntero a un array. El ponerlo en forma @{$ancho} es una forma de desreferenciarlo (queremos que nos de el contenido del array apuntado por $ancho).

josago escribiste:El manual que uso es el CPAN y las páginas man del módulo en cuestión, pero lo único que hacen es nombrar la función, ni siquiera me dicen qué es lo que devuelve.

Mira aquí.
Si no lo consigues funcionar, prueba llamando a SDL::TTFSizeText, como ves en el código. Te devolverá un apuntador a un array, con dos valores, siendo el ancho y alto del texto.

En el código que pones, entonces vemos donde está el error: la salida de la función SDL::TTFSizeText, según la documentación, es un puntero a un array de dos valores, y por eso te sale lo del ARRAY(...).

Lo que me extraña ahora es que poniendo el código anterior (sacada de la v2), dicen que te sigue fallando. ¿Has dejado tu código como estaba al principio? Me refiero a cuando hacías $ancho = .... -> width( ... );

Es decir, ¿te falla esa línea aun cuando has puesto el núevo código de la función width en SDL::TTFont.pm? Cuando haces un print, ¿qué te sale ahora?