Foro - Perl en Español

La comunidad de programadores en Perl de habla hispana.

Obviar


  • Publicidad

Comprobar y añadir

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.
Publicar una respuesta

Comprobar y añadir

Notapor later » 2007-12-08 12:47 @574

Hola. Tengo una pregunta, yo quiero hacer una aplicación que pida al usuario por pantalla una url y si la url está incompleta, es decir sin: "http://" al principio y "/" al final que el programa lo añada automaticamente.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
print "introduce url:\n";
$url=<STDIN>;
chomp $url;

--pseudocódigo

Si la url no tiene http:// al principio
lo añadimos

Si la url no tiene / al final
lo añadimos
 
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


Gracias amigos.
later
Perlero nuevo
Perlero nuevo
 
Mensajes: 46
Registrado: 2007-10-06 12:42 @570
Arriba

Publicidad

Notapor explorer » 2007-12-08 13:29 @603

Pero... si casi has escrito la solución.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Arriba

Notapor later » 2007-12-08 15:47 @699

Sí, pero es que no sé crear la expresión regular para ello.
later
Perlero nuevo
Perlero nuevo
 
Mensajes: 46
Registrado: 2007-10-06 12:42 @570
Arriba

Notapor joss » 2007-12-08 15:57 @706

Puedes hacer algo así:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
print "introduce url:\n";
$url=<STDIN>;
chomp $url;

if ($url =~ m/\//){
}
else
{
$url2=$url;
$barra="/";
$url=$url2 . $barra;
}


if ($url =~ m/http:\/\//){
}
else
{
$url2=$url;
$http="http://";
$url=$http . $url2;

}

print $url;
 
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Así es una de las muchas maneras de hacerlo. A ver si explorer te puede decir alguna más sencilla. :P
joss
Perlero nuevo
Perlero nuevo
 
Mensajes: 36
Registrado: 2007-09-10 13:04 @586
Arriba

Notapor explorer » 2007-12-08 19:22 @849

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl

print "introduce url:\n";
$url=<STDIN>;
chomp $url;

# Si la url no tiene http: al principio
  if ( $url   !~   /^http:/ ) {

    # lo añadimos
    $url = 'http://' . $url;
}

# Si la url no tiene / al final
  if ( $url   !~   /\/$/ ) {

    # lo añadimos
    $url = $url . '/';
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Arriba

Notapor later » 2007-12-09 06:28 @311

Muchas gracias a los dos: Joss y Explorer.
later
Perlero nuevo
Perlero nuevo
 
Mensajes: 46
Registrado: 2007-10-06 12:42 @570
Arriba
Publicar una respuesta

Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot] y 27 invitados

Powered by phpBB® Forum Software © phpBB Group
Traducción al Español Mexicano por nextgen en colaboración con phpbb-es.com
phpBB SEO
Advertisements by Advertisement Management
cron