Ayuda con un CGI que haga checkouts y commits a un CVS.
La idea es manejar archivos zip donde contenga el contenido de un módulo.
He puesto un servidor con un CVS en mi laptop.
Empezé a trabajar con un equipo. Sólo somos 5 personas pero quiero tener todo organizado asi que uso un repositorio CVS, dos de las personas con las que trabajo son diseñadores y se les hace complicado el uso del CVS ...
-
- Publicidad
Fecha actual 2024-12-21 07:41 @362
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.CGI que haga commits y checkouts a CVS
Read more : CGI que haga commits y checkouts a CVS | Vistas : 2843 | Respuestas : 3 | Foro : Web
Problema con multihilo
Hola a todos,
Tengo un módulo Perl que es ejecutado por muchos threads (creo que 4) en paralelo.
El caso es que tengo un contador:
my $flatValidLines = 0; # Number of valid lines
que es incrementado en una determinada función:
sub printFlatDecodedLine {
...
$flatValidLines++;
}
y otra función, llamada al final que imprime el valor de dicho contador:
sub printFlatReport {
...
my $nblines = $self->getFlatValidLines();
if ($self->reopenReport($fileName) != 0 ) { return ...
Tengo un módulo Perl que es ejecutado por muchos threads (creo que 4) en paralelo.
El caso es que tengo un contador:
my $flatValidLines = 0; # Number of valid lines
que es incrementado en una determinada función:
sub printFlatDecodedLine {
...
$flatValidLines++;
}
y otra función, llamada al final que imprime el valor de dicho contador:
sub printFlatReport {
...
my $nblines = $self->getFlatValidLines();
if ($self->reopenReport($fileName) != 0 ) { return ...
Read more : Problema con multihilo | Vistas : 3976 | Respuestas : 28 | Foro : Básico
Recorrer un array (autentica duda de novato)
tengo un array: $xmlAggregations
¿Cómo hago para recorrerlo y recuperar uno por uno sus elementos?
¡¡Disculpen lo tonto de la pregunta, pero es que el aprendizaje de Perl me esta volviendo loco!!
Gracias,
Felipe
¿Cómo hago para recorrerlo y recuperar uno por uno sus elementos?
¡¡Disculpen lo tonto de la pregunta, pero es que el aprendizaje de Perl me esta volviendo loco!!
Gracias,
Felipe
Read more : Recorrer un array (autentica duda de novato) | Vistas : 2169 | Respuestas : 3 | Foro : Básico
Pequeña duda sobre funcionamiento de la instrucción "do
En el siguiente código:
sub loadStatsValues {
our %Summary;
# Read the dump file
my $status = do "$workingDirectory/$commonValuesFile";
if ($status) {
# Read global variables
$startDate = $Summary{startDate};
$endDate = $Summary{endDate};
$readLines = $Summary{readLines};
$firstReadDate = $Summary{firstRead};
$lastReadDate = $Summary{lastRead};
$currentFileName = $Summary{currentFileName};
# Delegates the aggregation reload to any submodule.
&Aggregation::reloadAggregationsFromDumper(\%Summary);
&Projection::reloadProjectionsInfoFromDumper(\%Summary);
} else {
&Logger::logInfo("Can't eval $workingDirectory/$commonValuesFile.\n");
}
return $status;
}
aparentemente lo que hace es cargar el contenido del fichero $commonValuesFile ...
sub loadStatsValues {
our %Summary;
# Read the dump file
my $status = do "$workingDirectory/$commonValuesFile";
if ($status) {
# Read global variables
$startDate = $Summary{startDate};
$endDate = $Summary{endDate};
$readLines = $Summary{readLines};
$firstReadDate = $Summary{firstRead};
$lastReadDate = $Summary{lastRead};
$currentFileName = $Summary{currentFileName};
# Delegates the aggregation reload to any submodule.
&Aggregation::reloadAggregationsFromDumper(\%Summary);
&Projection::reloadProjectionsInfoFromDumper(\%Summary);
} else {
&Logger::logInfo("Can't eval $workingDirectory/$commonValuesFile.\n");
}
return $status;
}
aparentemente lo que hace es cargar el contenido del fichero $commonValuesFile ...
Read more : Pequeña duda sobre funcionamiento de la instrucción "do | Vistas : 951 | Respuestas : 2 | Foro : Básico
Ejecución de comandos en Perl
Hola.
Me gustaría ejecutar una serie de comandos durante el funcionamiento de mi programa en Perl. Usando el comando 'system' he obtenido buenos resultados. Por ejemplo:
#!/bin/perl
system (ifconfig);
Ahora bien, si lo que yo quiero es ejecutar un comando que todavía no conozco no me funciona. Veamos otro sencillo ejemplo:
#!/bin/perl
$comando = ifconfig;
system ($comando);
$argumento = Modo1
system (/home/user/seleccion $argumento)
Lo que no sé es como debo ejecutar comandos que tenga almacenados ...
Me gustaría ejecutar una serie de comandos durante el funcionamiento de mi programa en Perl. Usando el comando 'system' he obtenido buenos resultados. Por ejemplo:
#!/bin/perl
system (ifconfig);
Ahora bien, si lo que yo quiero es ejecutar un comando que todavía no conozco no me funciona. Veamos otro sencillo ejemplo:
#!/bin/perl
$comando = ifconfig;
system ($comando);
$argumento = Modo1
system (/home/user/seleccion $argumento)
Lo que no sé es como debo ejecutar comandos que tenga almacenados ...
Read more : Ejecución de comandos en Perl | Vistas : 4296 | Respuestas : 11 | Foro : Intermedio
Problemas con un hash
Hola a todos,
A ver si alguien me ayuda pues tengo ya la cabeza como un chorizo de cantimpalos:
Tengo un hash determinado con información en su interior organizada tal y como sigue:
%Summary =
( 'AAAAcontador1' => 333,
'BBBBcontador3' => 344,
'AAAAHash' => { #otro hash con mas hashes en su interior
}
'CCCCcontador5' => 566,
'AAAAcontador3' =>32,
'BBBBHash' => ....
)
Osea, tenemos para AAAA (que es un identificador), una serie de contadores, ...
A ver si alguien me ayuda pues tengo ya la cabeza como un chorizo de cantimpalos:
Tengo un hash determinado con información en su interior organizada tal y como sigue:
%Summary =
( 'AAAAcontador1' => 333,
'BBBBcontador3' => 344,
'AAAAHash' => { #otro hash con mas hashes en su interior
}
'CCCCcontador5' => 566,
'AAAAcontador3' =>32,
'BBBBHash' => ....
)
Osea, tenemos para AAAA (que es un identificador), una serie de contadores, ...
Read more : Problemas con un hash | Vistas : 1709 | Respuestas : 5 | Foro : Básico
Problemas en cgi
Tengo un cgi que desde la linea de comandos se ejecuta perfectamente, pero cuando lo llamo desde un web form pasandole los parametros me devuelve un error. El código del web form:
<html>
<form action="../perl/blog.pl" method="POST">
NickName: <input type="text" name="nick"><br>
Email: <input type="text" name="email"><br>
Titulo: <input type="text" name="titulo"><br>
Asunto: <input type="text" name="asunto"><br>
Comments:<br>
<textarea name="comentario" rows="5"
cols="80"></textarea>
<br>
<input type="submit" value="Enviar al blog.">
</form>
</html>
El código del cgi:
# codigo creado por Legolas.
# ...
<html>
<form action="../perl/blog.pl" method="POST">
NickName: <input type="text" name="nick"><br>
Email: <input type="text" name="email"><br>
Titulo: <input type="text" name="titulo"><br>
Asunto: <input type="text" name="asunto"><br>
Comments:<br>
<textarea name="comentario" rows="5"
cols="80"></textarea>
<br>
<input type="submit" value="Enviar al blog.">
</form>
</html>
El código del cgi:
# codigo creado por Legolas.
# ...
Read more : Problemas en cgi | Vistas : 1598 | Respuestas : 1 | Foro : Web
Formatear texto de salida
Tengo el siguiente problema. Necesito imprimir en pantalla cierta información, pero dependiendo del tamaño de la ventana (consola linux), de manera que la información no quede en dos líneas, sino que al llegar al extremo de la terminal, se corte.
¿ es posible ?
¿ es posible ?
Read more : Formatear texto de salida | Vistas : 1285 | Respuestas : 4 | Foro : Intermedio
Ejecutar scripts de Perl desde una página web
Estimados :D ,
Necesito ejecutar dos scripts que tengo hechos en Perl desde una página web. La idea es ejecutarlo desde una simple página web en donde se tenga que loguear un usuario previamente. Y que al hacer un click sobre el botón 1 se ejecute el determinado script_1 y lo mismo con el 2.
¿¿¿ Alguien ya lo ha realizado ??? ¿Tienen algún modelo de ...
Necesito ejecutar dos scripts que tengo hechos en Perl desde una página web. La idea es ejecutarlo desde una simple página web en donde se tenga que loguear un usuario previamente. Y que al hacer un click sobre el botón 1 se ejecute el determinado script_1 y lo mismo con el 2.
¿¿¿ Alguien ya lo ha realizado ??? ¿Tienen algún modelo de ...
Read more : Ejecutar scripts de Perl desde una página web | Vistas : 15675 | Respuestas : 28 | Foro : Web
Duda con Expresión Regular
Hola a todos,
Dado un string (por ejemplo "ELPREPOFFxmlValidLines") necesito recuperar únicamente las primeras letras mayúsculas de dicho string, ignorando el resto una vez encontrada la primera minúscula.
En el ejemplo anterior, necesitaría recuperar únicamente "ELPREPOFF" y guardarlo en una variable.
¿Existe algún método sencillo usando expresiones regulares?
¡¡¡Gracias por adelantado!!!
Dado un string (por ejemplo "ELPREPOFFxmlValidLines") necesito recuperar únicamente las primeras letras mayúsculas de dicho string, ignorando el resto una vez encontrada la primera minúscula.
En el ejemplo anterior, necesitaría recuperar únicamente "ELPREPOFF" y guardarlo en una variable.
¿Existe algún método sencillo usando expresiones regulares?
¡¡¡Gracias por adelantado!!!
Read more : Duda con Expresión Regular | Vistas : 847 | Respuestas : 1 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981