-
- Publicidad
Fecha actual 2025-01-10 19:45 @864
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.Primera visita
Hola a todos, recien estoy conociendo lo que es Perl y encontre un buen tutorial de Uriel Lizama. Quisiera saber donde encuentro más información. Gracias
Read more : Primera visita | Vistas : 847 | Respuestas : 3
Tamaño máximo de un string en Perl
Hola, mi pregunta es muy básica, me gustaría saber cuál es el tamaño máximo que puedo asignar a un string. Es decir, si tengo algo así:
my $cadena = "cosas que escribo dentro de la cadena hasta que me aburro...";
¿Cuántos caracteres puedo poner como máximo entre las comillas?
Gracias
my $cadena = "cosas que escribo dentro de la cadena hasta que me aburro...";
¿Cuántos caracteres puedo poner como máximo entre las comillas?
Gracias
Read more : Tamaño máximo de un string en Perl | Vistas : 867 | Respuestas : 1
problemas con debug perl
Hola a todos,
Tengo problemas al lanzar el debugger de perl (perl -d).
perl -d NombreScript -d 2006-11-12 -r
El resultado:
¿Cómo puedo hacer para lanzar en modo debug dicho script? ¿Alguien ve el problema?
¡¡Gracias!!
Felipe
Tengo problemas al lanzar el debugger de perl (perl -d).
perl -d NombreScript -d 2006-11-12 -r
El resultado:
- Code: Seleccionar todo
Loading DB routines from perl5db.pl version 1.25
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
-d: bad option(s)
¿Cómo puedo hacer para lanzar en modo debug dicho script? ¿Alguien ve el problema?
¡¡Gracias!!
Felipe
Read more : problemas con debug perl | Vistas : 918 | Respuestas : 1
Errores en el log del apache
Buenas. Me gustaría saber si conocen la razón de que aparezca este error en el log del Apache.
Mi script completo es el siguiente:
#!c:\perl\bin\perl.exe
use strict;
use base 'usuario';
# Variables a guardar
my $nombre_usuario;
my $apellido_usuario;
my $login_usuario;
my $password_usuario;
my $numero_sap;
my $iniciales_gerencia;
my $extension_telefonica;
my $cargo_desempena;
my $correo_electronico;
my $ubicacion_empresa;
my $roles;
my $status_usuario;
# Métodos para introducir variables
coge_parametros(); ...
- Code: Seleccionar todo
Global symbol "$method" requires explicit package name at c:\\appserv\\www\\cgi-bin\\usuario.pl line 37.\n
Mi script completo es el siguiente:
#!c:\perl\bin\perl.exe
use strict;
use base 'usuario';
# Variables a guardar
my $nombre_usuario;
my $apellido_usuario;
my $login_usuario;
my $password_usuario;
my $numero_sap;
my $iniciales_gerencia;
my $extension_telefonica;
my $cargo_desempena;
my $correo_electronico;
my $ubicacion_empresa;
my $roles;
my $status_usuario;
# Métodos para introducir variables
coge_parametros(); ...
Read more : Errores en el log del apache | Vistas : 719 | Respuestas : 1
Problema con fechas
Hola a todos,
El caso es que estoy bloqueado con un problema de fechas:
(undef, undef, undef, $d_, $mth_, $y_, undef, undef, undef) = gmtime();
# compute and enter the right directory
$day = sprintf("%04d",($y_+1900)).sprintf("%02d",($mth_+1)).sprintf("%02d",$d_-1);
$workingDir = "$workingDirBase/$day";
El caso es que dicho código no funciona cuando estamos en el primero de mes, pues para calcular $day, hago un $d-1.
¿Cómo obtener el día anterior correctamente? ¿Hay alguna función/librería que lo haga?
¡¡Gracias por ...
El caso es que estoy bloqueado con un problema de fechas:
(undef, undef, undef, $d_, $mth_, $y_, undef, undef, undef) = gmtime();
# compute and enter the right directory
$day = sprintf("%04d",($y_+1900)).sprintf("%02d",($mth_+1)).sprintf("%02d",$d_-1);
$workingDir = "$workingDirBase/$day";
El caso es que dicho código no funciona cuando estamos en el primero de mes, pues para calcular $day, hago un $d-1.
¿Cómo obtener el día anterior correctamente? ¿Hay alguna función/librería que lo haga?
¡¡Gracias por ...
Read more : Problema con fechas | Vistas : 943 | Respuestas : 4
Interpretar fichero CSV
Hola a todos,
Tengo que implementar un script Perl que haga lo siguiente:
Tengo que implementar un script Perl que haga lo siguiente:
- Leer fichero del tipo CSV (campos separados por el carácter ';' )
- Dicho fichero tiene una primera línea y última línea que debo ignorar, o mejor dicho, copiar literalmente en el fichero de salida.
- A partir de la segunda línea del fichero, encontramos los campos separados por ';'.
- El primer campo de la línea lo llamare CARF y su valor puede aparecer ...
Read more : Interpretar fichero CSV | Vistas : 1286 | Respuestas : 5
Histograma
Necesito ayuda. Necesito un histograma de porcentajes de uso de discos y de la memoria del servidor.
Creo que debo utilizar los comandos df y free del sistema.
Debe ser en html. Aquí tengo algo. Ayuda plz
#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
print "Content-type: text/html\n\n";
print "<html><head><title>Ejercicio 2</title></head>\n";
print "<body>\n";
print "<center><h1> <font color=\"blue\">Ejercicio 2</font></h1></center>\n";
print "<br><br>\n";
print "Mostrando Histograma<br>\n";
print "<br>";
print "<br>\n";
print "<br>\n";
print "</body>";
print ...
Creo que debo utilizar los comandos df y free del sistema.
Debe ser en html. Aquí tengo algo. Ayuda plz
#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
print "Content-type: text/html\n\n";
print "<html><head><title>Ejercicio 2</title></head>\n";
print "<body>\n";
print "<center><h1> <font color=\"blue\">Ejercicio 2</font></h1></center>\n";
print "<br><br>\n";
print "Mostrando Histograma<br>\n";
print "<br>";
print "<br>\n";
print "<br>\n";
print "</body>";
print ...
Read more : Histograma | Vistas : 1025 | Respuestas : 3
Ejemplos XML::CSV
Por favor si alguno tuviera un ejemplo de cómo utilizar esta librería exactamente en este ejemplo:
use XML::CSV;
$csvo = XML::CSV->new();
$csvo->{column_heading} = \@arr_of_headings;
$csvo->parse_doc("A.csv");
$csvo->print_xml("Z.xml", {format => " ", file_tag = "x.xml", parent_tag => "alfa"});
me sale un error :
use XML::CSV;
$csvo = XML::CSV->new();
$csvo->{column_heading} = \@arr_of_headings;
$csvo->parse_doc("A.csv");
$csvo->print_xml("Z.xml", {format => " ", file_tag = "x.xml", parent_tag => "alfa"});
me sale un error :
- Code: Seleccionar todo
Can't modify constant item in scalar assignment at arch.pl line 5, near "x.xml","
Read more : Ejemplos XML::CSV | Vistas : 1829 | Respuestas : 9
Error en código simple
¡¡Hola a todos!!
Estoy teniendo un problema en un código muy simple, y es tan simple que no puede encontrar el error por lo cual no puede compilarse...
Estoy tratando de encontrar una línea dentro del archivo de configuración del Apache...
el código es el siguiente:
#!/usr/bin/perl -w
$dominio="dominio.com.ar";
$archivo="/root/httpd.conf.bk";
$servername="ServerAlias $dominio";
open(APACHE,"$archivo");
while(<APACHE>)
{
$linea=_$;
if( "$linea" eq "$servername" )
{
print "La línea está";
}
}
close (APACHE)
Y los errores que me ...
Estoy teniendo un problema en un código muy simple, y es tan simple que no puede encontrar el error por lo cual no puede compilarse...
Estoy tratando de encontrar una línea dentro del archivo de configuración del Apache...
el código es el siguiente:
#!/usr/bin/perl -w
$dominio="dominio.com.ar";
$archivo="/root/httpd.conf.bk";
$servername="ServerAlias $dominio";
open(APACHE,"$archivo");
while(<APACHE>)
{
$linea=_$;
if( "$linea" eq "$servername" )
{
print "La línea está";
}
}
close (APACHE)
Y los errores que me ...
Read more : Error en código simple | Vistas : 1096 | Respuestas : 4
Acerca de Catalyst
¿Alguien ha usado Catalyst?, ¿como se trabaja con él?, ¿qué necesito para usarlo?, ¿para qué me sirve?
P.d: he leído algo acerca de ello y aun continúo documentandome... pero hago este post para conocer la opinión de ustedes... salu2 y gracias. :wink:
P.d: he leído algo acerca de ello y aun continúo documentandome... pero hago este post para conocer la opinión de ustedes... salu2 y gracias. :wink:
Read more : Acerca de Catalyst | Vistas : 974 | Respuestas : 2
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981