Este es el codigo:
#!/usr/bin/perl
use strict;
require "cgi-lib.pl";
my $RASpath = "/";
my $RASlist = "$RASpath/RAS.list";
# ---- Leemos el fichero de RASes ----------------------------------------
open (RASES,"$RASlist"); # Abro el archivo
my @RASes = <RASES>; # Leo...
close (RASES); # Cierro el archivo
print "Content-type: text/html\n\n";
print <<HTML;
<HTML>
<HEAD>
<TITLE>Datos</title>
<BODY>
HTML
foreach my $ras (@RASes){
chomp($ras);
print "<h4>$ras</h4><br>\n";
}
print "</BODY>\n";
print "</HTML>\n";
Como veis, basicamente leo los datos de un ...
-
- Publicidad
Fecha actual 2025-03-17 00:50 @076
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.No veo datos de fichero en el explorador
Read more : No veo datos de fichero en el explorador | Vistas : 2165 | Respuestas : 4 | Foro : Web
Problema CPAN
Sabéis cual puede ser el problema...
Gracias
- Code: Seleccionar todo
cpan> ! perl -code
Unquoted string "perl" may clash with future reserved word at (eval 14) line 1, <FIN> line 3.
Argument "code" isn't numeric in subtraction (-) at (eval 14) line 1, <FIN> line 3.
Argument "perl" isn't numeric in subtraction (-) at (eval 14) line 1, <FIN> line 3.
Gracias
Read more : Problema CPAN | Vistas : 1754 | Respuestas : 10 | Foro : Básico
Cookies Con Perl
hola bueno espongo mi problema o duda miren quisiera saber si hay alguna forma de modificar las cookies de firefox o internet explorer con solo un script en perl o si con alguna script puedo crear una cookie para firefox o internet explorer.
Read more : Cookies Con Perl | Vistas : 1620 | Respuestas : 5 | Foro : Básico
Manipular router Cisco con Perl
Tengo un router Cisco con un Access List donde solo ciertas IP están permitidas para pasar tráfico pero todos los días hay que agregar IP nuevas, etc. Yo me hice un programa Perl que me muestra la configuración del router, etc, pero no me es posible agregar una IP... Me gustaría saber si esto es posible.
Saludos a todos
Saludos a todos
Read more : Manipular router Cisco con Perl | Vistas : 9261 | Respuestas : 10 | Foro : Administración
Problema con threads al hacer un servidor
Hola.
Siguiendo el recipiente 17.14 de Perl CookBook (2nd edition) de hacer un servidor multitasking (uso Sockets y no IO::Sockets por algunos problemas y limitaciones).
La cosa es que al usarlo ciertas veces el servidor muere... sin dar error alguno.
El código es muy similar al del libro (la parte de thread es 100% igual) y me pregunto sí el problemas es threads y si es bueno hacerlo con threads.pm o si hay mejor forma ...
Siguiendo el recipiente 17.14 de Perl CookBook (2nd edition) de hacer un servidor multitasking (uso Sockets y no IO::Sockets por algunos problemas y limitaciones).
La cosa es que al usarlo ciertas veces el servidor muere... sin dar error alguno.
El código es muy similar al del libro (la parte de thread es 100% igual) y me pregunto sí el problemas es threads y si es bueno hacerlo con threads.pm o si hay mejor forma ...
Read more : Problema con threads al hacer un servidor | Vistas : 3367 | Respuestas : 15 | Foro : Intermedio
Buscar dentro de directorios
Hola:
Soy nuevo en esto y estoy comenzando con algunos script chicos, y me surgieron 2 dudas, necesito buscar dentro de un directorio y sus subdirectorios uno o más archivos y eliminarlos , el drama es que no sé cómo hacer para que las variables generen la consulta en el directorio.
Lo hice en batch pero en Perl no lo sé. Lo hice con TK y logré hacer casi todo.
Me falta esto...
c:\\$var1\\$var2
find ...
Soy nuevo en esto y estoy comenzando con algunos script chicos, y me surgieron 2 dudas, necesito buscar dentro de un directorio y sus subdirectorios uno o más archivos y eliminarlos , el drama es que no sé cómo hacer para que las variables generen la consulta en el directorio.
Lo hice en batch pero en Perl no lo sé. Lo hice con TK y logré hacer casi todo.
Me falta esto...
c:\\$var1\\$var2
find ...
Read more : Buscar dentro de directorios | Vistas : 1236 | Respuestas : 5 | Foro : Básico
Valor desaparecido de una función en contexto lista
Del siguiente programa, publicado ayer en PerlMonks:
sub foo { return; }
sub bar {
my ($a, $b, $c) = @_;
return if !defined $b;
die if !defined $c;
}
bar(1, foo(), 3); # explodesEstá puesto como ejemplo para rebatir la recomendación de Damian de que las funciones deben devolver con un simple return en caso de querer indicar un fallo en la función (pág. 199 del PBP).
De esa manera, en contexto lista, devolvería ...
sub foo { return; }
sub bar {
my ($a, $b, $c) = @_;
return if !defined $b;
die if !defined $c;
}
bar(1, foo(), 3); # explodesEstá puesto como ejemplo para rebatir la recomendación de Damian de que las funciones deben devolver con un simple return en caso de querer indicar un fallo en la función (pág. 199 del PBP).
De esa manera, en contexto lista, devolvería ...
Read more : Valor desaparecido de una función en contexto lista | Vistas : 1721 | Respuestas : 0 | Foro : Avanzado
Ejecutar un bat en el servidor
Hola a todos. Agradeceré mucho la ayuda de algún gurú. Tengo el siguiente código:
#!C:\perl\bin\perl.exe -w
use CGI qw(:standard);
print redirect( 'http://localhost/Auco/atavancese.php' );
sub inspeccionar_datos
{
local (*FORM_DATA) = @_;
local ( $request_method, $query_string, @key_value_pairs,
$key_value, $key, $value);
$request_method = $ENV{'REQUEST_METHOD'};
if ($request_method eq "GET") {
$query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
} else {
&return_error (500, "Server Error",
" No es posible utilizar ese metodo");
}
@key_value_pairs ...
#!C:\perl\bin\perl.exe -w
use CGI qw(:standard);
print redirect( 'http://localhost/Auco/atavancese.php' );
sub inspeccionar_datos
{
local (*FORM_DATA) = @_;
local ( $request_method, $query_string, @key_value_pairs,
$key_value, $key, $value);
$request_method = $ENV{'REQUEST_METHOD'};
if ($request_method eq "GET") {
$query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
} else {
&return_error (500, "Server Error",
" No es posible utilizar ese metodo");
}
@key_value_pairs ...
Read more : Ejecutar un bat en el servidor | Vistas : 8173 | Respuestas : 11 | Foro : Web
Comparación de dos listas
Hola:
Ojalá me pudieran ayudar a entender la lógica de los siguientes bucles porque aparentemente no es como yo creo. Me explico: lo que quiero es lo siguiente, abrir dos archivos para compararlos y crear un tercero con los elementos que NO estén en el segundo archivo:
el código que utilizo es el siguiente:
#!/usr/bin/perl -w
use strict;
my $i;
my @archivo1;
my @archivo2;
my $arch3 = 'archivo-sin-bc.txt';
@archivo1 = 'aaa bbb ccc ddd eee'; ...
Ojalá me pudieran ayudar a entender la lógica de los siguientes bucles porque aparentemente no es como yo creo. Me explico: lo que quiero es lo siguiente, abrir dos archivos para compararlos y crear un tercero con los elementos que NO estén en el segundo archivo:
el código que utilizo es el siguiente:
#!/usr/bin/perl -w
use strict;
my $i;
my @archivo1;
my @archivo2;
my $arch3 = 'archivo-sin-bc.txt';
@archivo1 = 'aaa bbb ccc ddd eee'; ...
Read more : Comparación de dos listas | Vistas : 3262 | Respuestas : 4 | Foro : Básico
Comparar dos ficheros de texto
Hola me gustaría saber cómo puedo hacer para comparar dos ficheros de texto iguales para saber si son exactamente iguales o por lo contrario no lo son.
¿Existe algún modulo que me lo haga?
Gracias y un saludo
¿Existe algún modulo que me lo haga?
Gracias y un saludo
Read more : Comparar dos ficheros de texto | Vistas : 1435 | Respuestas : 1 | Foro : Intermedio
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981