Foro - Perl en Español

Hola amigos, he creado un pequeño script en Perl para que me corte un trozo de una frase y me la guarde pero no he podido obtener los resultados esperados. Quisiera que esta frase:
h**p://mtomlin:[email protected]
me la partiera y me la dejara solo así:
mtomlin:picard

Un saludo.

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

print "Escriba la url.\n";

my $url = <STDIN>;

if ($url =~ /:/) {

my @datos = split (/\/\/(.+)@/,$url);

print "frase ...

Gente: dentro de los varios menús que tengo en un script de consola asigné un número para salir del programa... ¿Con qué sentencia saldría del programa? Probé con exit(); pero no funciona si estoy en el primer menú aunque desde el segundo menú sí funciona.

Hola, mi problema es el siguiente: necesito saber cómo hacer para que no todo quede tan separado uno de otro... espero hacerme entender.

Ejemplo:
________________________________________________________________ <-largo aplicación
_________lb1___________________.____________txt1________________

entonces el lb1 se auto estira junto el text1...

y lo que yo necesito es:
________
lb1.txt1 <---que no se estire o poder definir las dimensiones de los componentes


use Gtk2 '-init';
my $window=Gtk2::Window->new('toplevel');
$window->set_border_width(10);
$window->signal_connect(destroy =>sub{
Gtk2->main_quit
});
$lb1=Gtk2::Label->new('Numero 1:');
$lb2=Gtk2::Label->new('Numero 2:');
$lb3=Gtk2::Label->new('Opcion:');
$lb4=Gtk2::Label->new('Resultado:'); ...

Buenas, he estado codeando una función para incrementar números, pero tengo un problema, y es que cuando ejecuto el script se queda en 1...
mi script:

my $d = "numero=";
$d .= a();
print "$d\n";

sub a {
for ($f=1;$f<=10;$f++) {
$x .= $f.",";
my $a;
$a .= $x;
$a =~ s/,$//;
my $y .= $a;
return "$y\n";
}
}

Quiero que su salida sea así:
numero=1
numero=1,2
numero=1,2,3
numero=1,2,3,4
numero=1,2,3,4,5
etc... hasta llegar ...

Hola,

Soy nuevo en el tema de Perl, y mi problema es el siguiente.

He creado un web service en Java con un método. La idea es que se pueda consumir ese web service desde Perl, y con ese método realizar una acción sobre un módulo que está hecho en Perl.

El lío es que no sé cómo consumir ese WS en Perl ni nada por el estilo...

De manera que si alguien me puede ...

Bueno, amigos, hice el siguiente código...
pero (SOLO ME MUESTRA UN BOTÓN :( ...)
¿Alguien me da una mano?


#!/usr/bin/perl -w

use Gtk2 '-init';
$ventana = Gtk2::Window->new('toplevel');
$ventana->set_title('Hello World!');
$ventana->set_border_width(50);
$boton =Gtk2::Button->new('Hello World!');
$boton1 =Gtk2::Button->new('Hola 2');
$ventana->add($boton);
$ventana->add($boton1);


$ventana->show_all;
# Empieza el show...
Gtk2->main;

Hola, amigos.

Soy nuevo en el foro y nuevo en el lenguaje. Me gustaría saber si usan Tk o Gtk ¿Por qué? Algunas diferencias o cosas así para ver con cual parto...

Saludos

Hola, amigos, tengo un problemilla.

Trato de meter en un archivo todos los datos de un array:

open (texto,">archivo.txt")

@total = <texto>;

close (texto);

Según una web donde busqué, me dice que de esta manera quedaría pero no me da los resultados esperados. Saludos y espero sus comentarios.

Hola, estaba buscando la forma de hacer una petición GET a un sitio WEB determinado vía SSL y manipular el contenido.

Lo que sucede es que tengo un hosting que autoinstala paquetes pero necesito automatizar la creación de bases de datos y para eso necesito hacer tan solo una petición GET con mi autenticación en el header y listo, pero no sé cómo hacerlo ya que sólo puedo ingresar vía SSL.

Encontré por ahí un ...

Hola, amigos. Soy nuevo en Perl y en el foro. Mi problema es que quiero sacar datos de un array y guardarlos en una variable y viceversa, pasarlos de una variable a un array. Si pudieran darme una luz se los agradecería. Un saludo, bytes.