Foro - Perl en Español

Buenas a todos.

Tengo una pequeña duda: no sé cómo hago para leer el número de línea de un archivo de texto. Lo único que me puedo imaginar es que se podría hacer con for().

Saludos.

Saludos a todos.

Hice una aplicación para Ferreterías y Farmacias, que cubre la parte de ventas, ingresos e inventarios y en la parte del Punto de Venta, imprimo el tique de cada venta y todo está muy bien, pero me gustaría agregarle el importe total de la venta, también en letras, por ejemplo:

Si el total de la venta fue ==> $ 1,546.75 M.N.

Que me aparezca la leyenda:

Mil quinientos cuarenta y seis pesos, ...

Buenas a todos. Pues tengo dos variables con dos valores de texto iguales y mediante la condición if() verifico que los valores sean iguales y si son iguales almaceno las dos variables en una sola; luego con un print() a la variable en la que almacene los dos textos que prima lo mismo.

Ejemplo:

my $var1 = hola;
my $var2 = hola;
if ($var1 == $var2) {

}
else {
print "las variables no ...

¡Hola!

Estoy trabajando con las interfaces gráficas de gtk2 y acabo de hacer un combobox para que el usuario elija un número.

La cosa es que... ¿cómo sé yo cuál de todos los números ha pulsado? ¿Y si quiero luego pasarle en una variable a otra interfaz el número pulsado... ¿cómo lo hago?

Esto es lo que yo he escrito:

$tabla_combo= Gtk2::Table->new(2,3,TRUE);
$comboBox = Gtk2::ComboBox-> new_text;
$model = $comboBox->get_model;
$model->set ($model->append, 0, "1");
$model->set ($model->append, ...

Hola.

¿Cómo hago una depuración de Perl desde línea de comandos?

¿Cómo inserto los breakpoints al código? ¿Cómo veo el valor de las variables? ¿Cómo ejecuto paso a paso? ¿Cómo le doy a continuar?

Estuve leyendo el manual de depuración desde consola, pero no le entendí nada, agregando que mi inglés es muy bajo, pues me pareció chino.

Por favor, ayúdenme con este problema; es que ya llevo retraso en mi proyecto y no puedo ...

José Rey ha mandado una actualización de su módulo, Lingua::ES::Numeros, donde corrige un pequeño problema.

Este módulo permite traducir números a Español.

Por ejemplo:
use Lingua::ES::Numeros;
my $obj = Lingua::ES::Numeros->new('MAYUSCULAS' => 1);
print $obj->cardinal(124856), "\n" # CIENTO VEINTICUATRO MIL OCHOCIENTOS CINCUENTA Y SEIS;

Atención, la sinopsis está mal: los nombres de los métodos han de ser todo en minúsculas.

Bueno, me presento, soy Icaro, estoy empezando en esto de Perl. Después de hacer un curso guiado para meter correctamente el captcha de la web, me dispongo a hacer mi pregunta.

Mi problema es que tengo dos archivos de texto, Texto1.txt, Texto2.txt y contienen una lista de palabras.

Ejemplo:
texto1: Admin, 123, great, Password
texto2: Great, Admin, 123, password, excel, good

Y la salida sería esto:

Text3.txt: AdminGreat, AdminAdmin, Admin123, Adminpassword ... PasswordGreat, PasswordAdmin, ...

Hola. Quisiera saber cómo puedo darme cuenta en un server gratuito de cuáles módulos de Perl se encuentran instalados, porque tengo una cuenta en http://www.netfirms.com (dan Perl en el hosting).

Y la verdad, quisiera saber si de alguna manera consultar qué módulos de Perl están instalados.

Gracias por la ayuda.

Hi!

Estoy intentando crear una ventana Tk que en vez de ponerle un fondo negro como background ponerle una imagen bitmap que abarque toda la ventana pero sin que me tape los textos y los botones que he hecho, o sea, que sea transparente.

¿Alguien me podría decir cómo lo hago con un ejemplo?

Buenas tardes, soy nuevo en Perl y en CGI y pues no entiendo muchas cosas, como por ejemplo cómo ejecutar un código .cgi desde el servidor. Mi código está guardado como misusuarios.cgi que es para ejecutar el código descrito en esta misma página.

Básicamente estoy copiando por el momento el código tal cual para probarlo pero como ya dije soy nuevo en esto y aún no logro hacerlo funcionar; me funciona el .htacces y el ...